更多"在窗体上画一个命令按钮，然后编写如下事件过程。该程序运行后，单击命令按"的相关试题:
[单项选择]在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Commandl的命令按钮。然后编写如下事件过程：
Private Commandl_Click（ ）
CommonDialogl.FileName=""
CommonDialogl.Filter="Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
CommonDialogl.Filterlndex=2
CommonDialogl.DialogTifle="VBTest"
CommonDialogl.Action=1
EndSub
对于这个程序，以下叙述中错误的是( )。
A. 该对话框被设置为“打开”对话框
B. 在该对话框中指定的默认文件名为空
C. 该对话框的标题为VBTest
D. 在该对话框中指定的默认文件类型为文本文件(*.Txt)
[单项选择]在窗体上画一个命令按钮和一个通用对话框，其名称分别为Command1和CommonDialogl，然后编写如下代码； Private SubCommand1_Click（ ） CommonDialogl.Filter=" All Files |*.*|(*.exe)|*.exe|(*.doc) [*.doc|(*.bmp)|*.bmp" CommonDialogl.FileName=" " CommonDialogl.Flags=vbOFNFileMustExist CommonDialogl.FilterIndex=3 CommonDialogl.DialogTitle="OpenFile(*.doc) " CommonDialogl.Action=1 If CommonDialogl.FileName=" "Then MsgBox "No file selected"，37，"Checking" Else End If End Sub 程序运行后，单击命令按钮，将显示一个对话框，该对话框的标题是 ______。
A. 空字符
B. OpenFile(*.do
C. 打开文件
D. 保存文件
[单项选择]在窗体上画一个通用对话框，其名称为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(*. *)
[单项选择]在窗体上画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 ______。
Function fun(ByVal num As Long) As Long
Dim k As Long
k=1
mum=Abs(num)
Do While num
k=k*(num Mod 10)
num=num/10
Loop
fun=k
End Function
Private Sub Command1_Click（ ）
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数")
n=CLng(n)
r=fun(n)
Print r
End Sub
A. 20
B. 24
C. 9
D. 28
[单项选择]在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如
下事件过程： Private Sub Commandl_Click（ ） CommonDialogl，Flags=vbOFNHideReadOnly CommontDialogl．Filter="All Files(*．*)|*．*|Text Files (*.*)|*．txt|"_ & Batch Files (*．bat) |*．bat" CommonDialogl．Filterlndex=1 CommonDialogl．Showopen MsgBox CommonDialogl．FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是
A. All Fries(*.*)
B. Text Files(*.*)
C. Batch Files(*．bat)
D. All Files (*．*)
[填空题]在窗体上画一个通用对话框，其名称为CommandDialog1，再画一个命令按钮，其名称为Command1。程序运行时，单击命令按钮，在对话框内只允许显示文本文件。将以下程序补充完整。
Private Sub Command1_Click（ ）
CommandDialog1．Filter= 【15】
CommandDialog1．ShowOpen
End Sub
[单项选择]在窗体上画一个通用对话框，其名称为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. 不确定
