在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Pr

17 查阅

在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

Dim a(10,10)As Integer

Dim i,j As Integer

For i=2 To 4

For j=3 To 6

Next i

Text1.Text=a(2,3)+a(4,6)

End Sub

程序运行后,单击命令按钮,在文本框中显示的值是( )。

参考答案:

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

计算机二级