设有命令按钮Command1的单击事件过程,代码如下: Private Sub Command1_Click() Dim a(3,3)As Integer For i=1 To 3 For j=1 To 3 Next

admin2013-05-12  25

问题 设有命令按钮Command1的单击事件过程,代码如下:
   Private Sub Command1_Click()
   Dim a(3,3)As Integer
   For i=1 To 3
     For j=1 To 3

     Next j
   Next i
   Sum=0
   For i=1 To 3

   Next i
   MsgBox Sum
   End Sub
   运行程序,单击命令按钮,消息框输出结果是(       )。

选项

答案22

解析  本题考查VBA中二维数组和循环的知识。本题中的第一个二重循环为二维数组进行了赋值,第二个循环完成累加,关键是分析出累加了哪些元素。由循环体可以看出,实际上3次累加分别累加的是a(1,3)、a(2,2)、a(3,1),实际上就是二维数组的对角线,累加和为7+8+7=22。
转载请注明原文地址:https://kaotiyun.com/show/KFrp777K
0

最新回复(0)