更多"在窗体上画一个通用对话框,其名称为CommandDialog1,再画一"的相关试题:
[填空题]
在窗体上画一个命令按钮,名称为Commandl,然后编写如下程序:
Privme Sub Commandl_Click( )
Dim intNum As Integer
intNum=InputBox(“请输入:”)
MsgBox f(intNum)
End Sub
Function f(X As Integer) As Integer
f=IIf (X<10,X,X+5)
End Function
运行程序,单击命令按钮,在输入对话框中输入5,则程序的输出结果为______。
[单项选择]在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:
Private Sub Command1_ Click( )
Dim a As Integer, b As Integer
do while b <100
b=b+5
a=a+ b
if b >20 then exit do
Loop
Print a, b
End Sub
程序运行后,如果甲击命令按钮,则在窗体上显示的内容是______。
A. 50 20
B. 75 25
C. 50 25
D. 75 20
[单项选择]在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如
Private Sub Command1_Click( )
CommonDialogl. Flags = vbOFNHideReadOnly
CommonDialogl. Filter =" All Files(*.*)|*. * |Text Files(*.txt)|*. txt
CommonDialogl. FilterIndex = 1
CommonDialogl. ShowOpen
MsgBox CommonDialogl. FileName
End Sub
程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是
A. All Files(*.*)
B. Text Files(*.txt)
C. Batch Files(*.bat)
D. All Files(*. *)
[单项选择]在窗体上画一个通用对话框,其名称为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. 不确定
[填空题]在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Command1。程序运行时,单击命令按钮,能将事先输入文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容,将程序补充完整。
Private Sub Command1_Click( )
Open"c:/test.dat"For Output As#1
Fori=1 to Len(Text1.Text)
(12)
Next
Close# i
End Sub
[填空题]在窗体上画一个命令按钮,然后编写如下程序: (假定变量x是一个窗体级变量)
Dim x As Integer
Sub inc(a As Integer)
x=x+a
End Sub
Private Sub Command1_Click( )
inc 2
inc 3
inc 4
Print x;
End Sub
程序执行后,单击Command1命令按钮,输出的结果是 【11】 。
[填空题]在窗体上画一个命令按钮,然后编写如下程序: (假定变量x是一个窗体级变量)
Dim x As Integer
Sub inc(a As Integer)
X=x+a
End Sub
Private Sub Camunand1_Click( )
inc 2
inc 3
inc 4
Print x;
End Sub
程序执行后,单击Command1命令,按钮,输出的结果是 【11】 。