题目内容

有以下程序: Private Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3 For j = 1 To 2 arr(i, j) = i * 2 + j Next j Next i ReDim Preserve arr(3, 4) For j = 3 To 4 arr(3, j) = j + 9 Next j Print arr(3, 2); arr(3, 4) End Sub 程序运行后,单击窗体,输出结果是( )

A. 8 13
B. 0 13
C. 7 12
D. 0 0

查看答案

搜索结果不匹配？点我反馈

更多问题

在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程 Option Base 1 Private Sub Command1_Click() Dim a(5,5) As Integer For i=1 To 5 For j=1 to 5 a (i,j) = (i+j)*5\10 Next j Next i S=0 For i=1 To 5 S=s+a(i,i) Next i Print s End Sub 程序运行后,单击命令按钮,输出结果是( )

A. 15
B. 13
C. 11
D. 9

在窗体上画四个文本框,并用这四个文本框建立一个控件数组,名称为Text1(下标从0开始,自左至右顺序增大), 然后编写如下事件过程: Private Sub Command1_Click() For i=0 to 3 Text1(i) = Text1(i).Index Next i End Sub 程序运行后,单击命令按钮,四个文本框中显示的内容分别为( ).

A. 0123
B. 1234
C. 0132
D. 出错信息

在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click() Dim c As Integer, d As Integer d = 0 c = 6 x = Array(2, 4, 6, 8, 10, 12) For i = 1 To 6 If x(i) > c Then d = d + x(i) c = x(i) Else d = d - c End If Next i Print d End Sub 程序运行后,如果单击命令按钮,则在窗体上输入的内容为( ).

A. 10
B. 16
C. 12
D. 20

在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(10, 10) As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = (i - 1) * 3 + j Print a(i, j); Next j Print Next i End Sub 程序运行后,单击命令按钮,窗体上显示的是( )

A. 1 2 3 2 4 6 3 6 9
B. 2 3 4 3 4 5 4 5 6
C. 3 4 7 2 5 8 3 6 9
D. 1 2 3 4 5 6 7 8 9