2. 计算机
  3. 编写如下程序： Private Sub Commandl＿Click() Dim a(3，3)As Integer Dim s As Integer For i=l To 3 For j=1 To 3

编写如下程序： Private Sub Commandl＿Click() Dim a(3，3)As Integer Dim s As Integer For i=l To 3 For j=1 To 3

admin2013-11-29  26
问题 编写如下程序：
  Private Sub Commandl＿Click()
    Dim a(3，3)As Integer
    Dim s As Integer
    For i=l 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
　　程序运行后，单击命令按钮Commandl，输出结果为(     )。
选项 A、7
B、13
C、16
D、20
答案C
解析 程序通过For循环为数组a赋值，具体值如下：
    a(1，1)=1+l=2，a(1，2)=2+l=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://kaotiyun.com/show/FXQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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