2. 计算机
  3. 编写如下程序： Private Sub Command1_Click() Dim a(2, 3) For i = 0 To 2 For j = 0 To 3 a(i, j) = InputBox("请

编写如下程序： Private Sub Command1_Click() Dim a(2, 3) For i = 0 To 2 For j = 0 To 3 a(i, j) = InputBox("请

admin2015-06-30  64
问题 编写如下程序：
Private Sub Command1_Click()
    Dim a(2, 3)
    For i = 0 To 2
        For j = 0 To 3
            a(i, j) = InputBox("请输入整数")
        Next j
    Next i
    For i = 0 To 2
        a(i, 1) = a(i, 3)
    Next i
    For i = 0 To 2
        For j = 0 To 3
            Print a(i, j),
        Next j
    Print
    Next i
End Sub
程序运行后，单击命令按钮Command1，并输入了12个整数：1，2，3，4，5，6，7，8，9，10，11，12，则输出结果为
选项 A、1   4   3   2
5   8   7   6
9   12  11  10
B、 1   4   3   4
5   8   7   8
9   12  11  12
C、3   2   1   4
7   6   5   8
11  10  9   12
D、3   2   3   4
7   6   7   8
11  10  11  12
答案B
解析 第一个For的多重循环，将输入的12个整数赋值给数组a（2，3），a[0,0]=1, a[0,1]=2,a[0,2]=3；a[1,0]=4,a[1,1]=5,a[1,2]=6；a[2,0]=7,a[2,1]=8, a[2,2]=9；
a[3,0]=10,a[3,1]=11,a[3,2]=12；。第二个For循环，将数组a的第4列的值赋值给第2列；故输出结果如B所示，B正确。
转载请注明原文地址:https://kaotiyun.com/show/10Qp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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