在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click() Dim a(3, 3) As Integer Dim i As Integer, j As

admin2018-09-19  35

问题 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Option Base 1
Private Sub Command1_Click()
Dim a(3, 3) As Integer
  Dim i As Integer, j As Integer, s As Integer
  s = 0
  For i = LBound(a, 1) To UBound(a, 1)
      For j = LBound(a, 2) To UBound(a, 2)
          a(i, j) = (i - 1) * 3 + j
          If i >= j Then
             s = s + a(i, j)
          End If
  Next j, i
  Print s
End Sub
程序运行时,单击Command1,则在窗体上输出的结果是

选项 A、15
B、26
C、34
D、19

答案C

解析 UBound函数返回为指定的数组维可用的最大下标,LBound函数返回为指定的数组维可用的最小下标。程序开头定义了Option Base 1这时定义一维数组下标从1开始;故LBound(A,1)=1,Ubound(A,1)=3; LBound(A,2)=1,Ubound(A,2)=3;外层for循环,循环变量i从1取到3,内层for循环,循环变量j从1取到3,根据a(i,j)=(i-j)*3+j可知,a(1,1)=1;a(1,2)=2;a(1,3)=3;a(2,1)=4;a(2,2)=5;a(2,3)=6;a(3,1)=7;a(3,2)=8;a(3,3)=9; If 条件 Then部分,如果选择的条件为真,则执行then部分;满足i>=j的数组元素有a(1,1),a(2,1),a(2,2),a(3,1),a(3,2),a(3,3),将各项值累加得到s的值,s=34。故正确答案为选项C。
转载请注明原文地址:https://jikaoti.com/ti/Nqm0FFFM
0

相关试题推荐
最新回复(0)