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

admin2020-02-27  39

问题 编写如下程序:
Private Sub Command1_Click()
  Dim a(3, 3)As Integer
  Dim s 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),所以s=4+6+6=16。
转载请注明原文地址:https://jikaoti.com/ti/9Jx0FFFM
0

随机试题
最新回复(0)