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

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

admin2018-07-11  37
问题 在窗体上画一个名称为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://www.kaotiyun.com/show/SzFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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