单项选择题

阅读程序：
Option Base 1
Private Sub Form_Click( )
　　Dim Arr(4，4)As Integer
　　For i = 1 To 4
　　　　For j = 1 To 4
　　　　　　Arr(i， j)= (i - 1)* 2 +j
　　　　Next j
　　Next i
　　For i = 3 To 4
　　　　For j = 3 To 4
　　　　　　Print Arr(j， i);
　　　　Next j
　　　　Print
　　Next i
End Sub
程序运行后，单击窗体，输出结果是________。

A．5　7　6　8
B．6　8　7　9
C．7　9　8　10
D．8　10　8　11
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画的3个名称为Command1命令按钮是控件数组，从左到右，控件数组下标分别为0、1、2。如图1所示。有下列程序： Private Sub Command1_Click(Index As Integer) Dim s As String Select Case Index Case 0 s = 飞机 Case 1 s = 汽车 Case 2 s = 火车 End Select MsgBox s, Index End Sub 执行程序后，单击中间那个按钮，显示的对话框的形式为________。
单项选择题
编写如下事件过程： Option Base 1 Private Sub Form_Click( ) Dim x1( )As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)= i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n( )As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)= n(i - 1)* 2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是________。
A．6
B．12
C．24
D．47
相关试题