问题 填空题

设有命令按钮Command 1的单击事件过程,代码如下: Private Sub Command1_Click() Dima(3,3)As Integer For i=1 To 3For 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 运行程序,单击命令按钮,消息框输出结果是______。

答案

参考答案:V

解析: 本题考查VBA中二维数组和循环的知识。本题中的第一个二重循环对二维数组进行赋值,第二个循环完成累加,关键是分析出累加了哪些元素。由循环体可以看出,实际在3次累加中分别累加的是a(1,3)、a(2,2)、a(3,1),实际上就是二维数组的对角线,其累加和为7+8+7=22。

单项选择题
单项选择题