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

admin2019-03-08  22

问题 编写如下程序:
    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
0

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