单项选择题

下面程序运行后，输出结果是( )。
Private Sub mysub(b()As Integer,OptionalByValnAsInteger=2)
ForI=1 to 4
b(I)=n*I
NextI
End Sub
Private Sub Commandl_Click()
Dima(1 to 4)As Integer，I As Integer
Callmysub(a()，5)
Mysuba()
ForI=1 to 4
Print a(i)；
Next
End Sub

A．5101520
B．2468
C．出错
D．0000

<上一题目录下一题>

热门试题

单项选择题

单击命令按钮时，下列程序代码的执行结果为( )。 Private Sub Procl(nAs Integer,ByValmASInteger) n=nMod 10 m=m 10 End Sub PrivateSubCommandl_Click() Dimx As Integer Dimy As Integer x=12 y=34 CallProcl(x，y) Printx；y End Sub

A．12 34
B．2 34
C．2 3
D．12 3

单项选择题

在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程： Private Sub Commandl_click() CommonDialogl.Friter= AllFiles(*.*)|*.*|Text Files &_ (*.txt)|*.txt|Executable Files(*.exe)|*.exe CommonDialog1.FilterIndex=3 CommonDialog1.Show Open MsgBOX CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是( )。

A．AllFries(*.*)
B．TextFiles(*.txt)
C．Executable Fries(*.exe)
D．不确定

相关试题