2. 计算机
  3. 编写如下程序： Private Sub Command1_Click() Dim a(3，3)As Integer Dim 8 As Integer For i=1 To 3 Fo

编写如下程序： Private Sub Command1_Click() Dim a(3，3)As Integer Dim 8 As Integer For i=1 To 3 Fo

admin2019-03-08  51
问题 编写如下程序：
    Private Sub Command1_Click()
        Dim a(3，3)As Integer
        Dim 8 As Integer
        For i=1 To 3
          For j=1 To 3
            a(i，j)=i*j+i
          Next j
        Next i
        s=0
        For i=1 To 3
          s=s+a(i，4-i)
        Next i
        Print s
    End Sub
程序运行后，单击命令按钮Command1，输出结果为(    )。
选项 A、7
B、13
C、16
D、20
答案C
解析 程序通过For循环为数组a赋值，具体值如下：
    a(1，1)=1+1=2，a(1，2)=2+1=3，a(1，3)=3+1=4；
    a(2，1)=2+2=4，a(2，2)=4+2=6，a(2，3)=6+2=8；
    a(3，1)=3+3=6，a(3，2)=6+3=9，a(3，3)=9+3=12；
    程序要计算指定数组元素的和，这几个元素是a(1，3)，a(2，2)，a(3，1)，所以8=4+6+6=16。
转载请注明原文地址:https://kaotiyun.com/show/F4Fp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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