问题
填空题
在窗体上添加一个名称为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 6a(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。
