单项选择题

请阅读程序：
Sub subP(b()As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 4)As Integer
A(1)=5:a(2)=6:a(3)=7:a(4)=8
subP a()
For i=1 To 4
Print a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，则输出结果是（）。

A．A
B．B
C．C
D．D

<上一题目录下一题>

热门试题

单项选择题

有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是（）。

A．Private Sub Form_Click()　 PopupMenu cut　　End Sub
B．Private Sub Command1 Click()　　 PopupMenu edit　　 End Sub
C．Private Sub Form_Click()　　 PopupMenu edit　　 End Sub　　 End Sub
D．Private Sub Form_lick()　　 PopupMenu cut　　 PopupMenu paste

单项选择题

下列可以打开随机文件的语句是（）。

A．Open "file1.dat" For Input As#1
B．Open "file1.dat" For Append As#1
C．Open "file1.dat" For Output As#1
D．Open "file1.dat" For Random As#1 Len=20

请阅读程序： Sub subP(b()As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4)As Integer A(1)=5:a(2)=6:a(3)=7:a(4)=8 subP a() For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，则输出结果是（）。

请阅读程序：
Sub subP(b()As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 4)As Integer
A(1)=5:a(2)=6:a(3)=7:a(4)=8
subP a()
For i=1 To 4
Print a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，则输出结果是（）。