单项选择题

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

单项选择题
在窗体上画一个名称为Timet1的计时器、一个名称为Commandl的命令按钮和一个名称为Labell的标签。编写程序如下： Private Sub Command1_Click() Timer1．Enabled=True Timer1．Interval=1000 End Sub Private Sub Timerl Timer() Labell．Left=Labell．Left + 10 End Sub 当运行程序后，单击命令按钮，将会产生
A．每秒钟显示一次系统时间
B．每10秒钟显示一次系统时间
C．每秒钟标签向右移一段距离
D．每秒钟标签向左移一段距离
单项选择题
编写如下事件过程： 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
相关试题