单项选择题

阅读如下程序：
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
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码： Private Sub Command1_Click() k=0 Do While k ＜ 70 k=k+2 k=k*k+k a=a+k Loop Text1．Text=a End Sub 程序运行后，文本框中显示的是
A．20
B．32
C．44
D．78
单项选择题
编写如下事件过程： 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
相关试题