2. 计算机
  3. 设有命令按钮Commandl的单击事件过程，代码如下： Private Sub Command1_Click() Dim a(3，3)As Integer For i=1 To 3 Forj=1 To 3 a(i,j

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

admin2020-10-14  52
问题 设有命令按钮Commandl的单击事件过程，代码如下：
    Private Sub Command1_Click()
    Dim a(3，3)As Integer
    For i=1 To 3
    Forj=1 To 3
    a(i,j)=i*j+i+j
    Nextj
    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。
转载请注明原文地址:https://kaotiyun.com/show/wzSp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)