在窗体上画一个命令按钮Command1,编写事件代码如下:
Private Sub Command1_Click()
Dim a1(4,4),a2(4,4)
For i=1 To 4
For j=1 To 4
a1(i,j)=i+j
a2(i,j)=al(i,j)+i+j
Next j
Next i
MsgBox(a1(3,3)*a2(3,3))
End Sub
程序运行后,单击命令按钮,消息框输出的是______。
参考答案:72
解析: 本题使用两重循环为两个二维数组中的元素均进行了赋值,最后求两个数组元素值的积。当i=3,j=3时,a1(3,3)=3+3=6,a2(3,3)=a1(3,3)+3+3=12。本题最后结果为a1*a2=72。