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("请

admin2019-06-20  48
问题 编写如下程序：
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://www.kaotiyun.com/show/srUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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