在窗体上添加一个名称为Text1的文本框和一个名称为commandl的命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() Dim a(10,10)As Integer

admin2012-09-03  67

问题 在窗体上添加一个名称为Text1的文本框和一个名称为commandl的命令按钮,然后编写如下事件过程:
            Private Sub Commandl_Click()
            Dim a(10,10)As Integer
            Dim i,j As Integer
            For i=2 To 4
              Forj=3 To 6
                 a(i,j)=i*j
              Next j
            Next i
            Text1.Text=a(2,3)+a(4,6)
            End Sub
      程序运行后,单击命令按钮,在文本框中显示的值是___________。

选项

答案30

解析 本题考查VBA中二维数组和循环的知识。本题属于比较简单的问题,使用了二重循环为二维数组进行了部分赋值,最后求两个数组元素值并求和,注意这两个元素是否已被赋值,若没有赋值则为0。本题中对于a(2,3)赋值为2*3也就是6,a(4,6)赋值为4*6也就是24,最后的结果为6+24=30。
转载请注明原文地址:https://jikaoti.com/ti/unw0FFFM
0

最新回复(0)