单项选择题
在窗体上画一个名称为command1的命令按钮,然后编写如下程序;
Option Base 1
Private Sub Command1_Click()
Dim arr(4)As String
For i=1 To 4
arr(i) = Chr(Asc("A")+(i-1))
Next i
For Each b1 In arr
Print b1;
Next
End Sub
程序运行后,如果单击命令按钮,则在窗体上输出的内容为 ______。
A.ABCD
B.abcd
C.出错信息
D.1 2 3 4
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox( 请输入a的值 ) a=Val(a) b=InputBox( 请输入b的值 ) b=Val(b) x=InputBox( 请输入x的值 ) x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后,单击命令按钮,依次在输入对话框中输入10、8、9、2、11、-1,则输出结果为 ______。
A.15
B.14
C.13
D.12
点击查看答案&解析
单项选择题
在窗体上画一个通用对话框,其名称为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.不确定
点击查看答案&解析
相关试题
在窗体上画一个命令按钮,其名称为Command...
假定有如下的Sub过程: Sub Func(x As...