在窗体上有个命令按钮,然后编写如下事件过程 m=InputBox("enter the first integer") n=Inp
在窗体上有个命令按钮,然后编写如下事件过程 m=InputBox("enter the first integer") n=InputBox("enter the second integer") Print n+m 程序运行后,单击命令按钮,先后在两个输入框中分别输入“1”和“5”,则输出结果为
A.1
B.51
C.6
D.15
在窗体上有个命令按钮,然后编写如下事件过程 m=InputBox("enter the first integer") n=InputBox("enter the second integer") Print n+m 程序运行后,单击命令按钮,先后在两个输入框中分别输入“1”和“5”,则输出结果为
A.1
B.51
C.6
D.15
在窗体上有一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(5)As String FOR i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next For Each b In a Print b; Next End Sub 程序运行后,单击命令按钮,输出结果是
A.ABCDE
B.1 2 3 4 5
C.abcde
D.出错信息
在窗体中添加~个名称为Commandl的命令按钮,然后编写如下事件代码:窗体打开运行后,单击命令按钮,则消息框的输出结果是()。
A. 1
B. 2
C. 3
D. 4
在窗体上画—个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a<=0 Print s;a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容,是 ______。
A.79
B.340
C.97
D.死循环
在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程: Private Sub Command1_Click() CommonDialogl.Flags=cdlOFNHideReadOnly commonDialogl.Filter="All Files(*.*)|*.*| Text Files"&_ "(*.txt)|*.txt|Batch Files(*.bat)|*.bat" CommonDialogl.Filterlndex=1 CommonDialogl.ShowOpen MsgBox CommonDialogl.FileName End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是 ______。
A.AllFiles(*.*)
B.TextFiles(*.txt)
C.BatchFiles(*.bat)
D.不确定
在窗体上面画一个命令按钮,然后编写如下事件过程______ 。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 TO 1 Step -1 s=s+ a(i)*j j=j*10 Next i Print s End Sub运行上面的程序,单击命令按钮,其输出结果是______ 。
A.4321
B.12
C.34
D.1234
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程: private Sub Command1_Click() CommonDialog1.Flags=cdl0FNHideReadOnly CommonDialog1.Filter="All Files(*.*)|*.*|Text Files"&_ "(*.txt)|*.txt|Batch Files(*.bat)|*.bat" CommonDialog1.Filterlndex=2 CommonDialog1.ShowOPen MsgBox CommonDialog1.filename End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是______。
A.All Files(*.*)
B.Text Files(*.txt)
C.Batch Files(*.bat)
D.不确定
在窗体上画—个命令按钮(其名称为Command1),然后编写如下事件过程: Private Sub Command1_Click() Dim a(5,5)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j) Next j Print Next i End Sub 程序运行后,单击命令按钮,在窗体上的输出结果是:_______。
A.1 4 7 2 5 8 3 6 9
B.1 2 3 4 5 6 7 8 9
C.1 2 3 4 5 6 7 8 9
D.没有输出
Private Sub Commandl_Click()
Counter=0
For i=1 To 4
For j=6 To 1 Step -2
Counter=Counter+1
Next j
Next i
Label1.Caption=Str(Counter)
End Sub
程序运行后,单击命令按钮,标签中显示的内容是()。 A.11
B.12
C.16
D.20
A.AllFiles(*.*)
B.出错
C.BatchFiles(.bat)
D.不确定