选择题
40.
设有命令按钮Command1的单击事件过程,代码如下:
Private Sub Command1_Click()
Dim a(3, 3)As Integer
For i=1 To 3
For j=1 To 3
a(i, j)=i*j+i+j
Next j
Next i
Sum=0
For i=1 To 3
Sum=Sum+a(i, 4-i)
Next i
MsgBox Sum
End Sub
运行程序,单击命令按钮,消息框输出结果是______。
A、
7
B、
8
C、
15
D、
22
【正确答案】
D
【答案解析】
[考点] 本题考查VBA中二维数组和循环的知识。
本题中的第一个二重循环为二维数组进行了赋值,第二个循环完成累加,关键是分析出累加了哪些元素。由循环体可以看出,实际上3次累加分别累加的是a(1,3)、a(2,2)、a(3,1),实际上就是二维数组的对角线,累加和为7+8+7=22。
提交答案
关闭