更多"在窗体上画一个通用对话框，程序运行后，通过ShowOpen方法显示“打"的相关试题:
[单项选择]在窗体上画一个通用对话框，程序运行后，通过ShowOpen方法显示“打开”对话框，要求在该对话框的“文件类型”栏中只显示扩展名为.DOC的文件，则对通用对话框的 Filter属性的正确设置是______。
A. "(*.DOＣ)*.DOC"
B. "(*.DO｜(.DOＣ)"
C. "(*.DOＣ)｜｜*.DOC"
D. "(*.DOＣ)｜*.DOC"
[单项选择]在窗体上画一个命令按钮，命名为CommandI。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。
能够正确实现上述功能的代码是
A. Privme Sub Command1_Click()
B. Private Sub Command1_Click()
C. Private Sub Command1_Click()
D. Private Sub Command1_Click()
[单项选择]在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是
A. Private Sub Command1_Click( ) x=Input Box("请输入整数") a=F1(Val() Print a End Sub Function Fl(ByRef b As Intege If b Mod2=0 Then Return0 Else Return 1 End lf End Function
B. Private Sub Command1_Click( ) x=Input Box(“请输入整数”) a=Fl(Val() Print a End Sub Function Fl(ByRef b As Intege lf b Mod 2=0 Then Fl=0 Else Fl=1 End lf End Function
C. Private Sub Command1 Click() x= Input Box(“请输入整数”) F1(Val() Print a Enb Sub Function Fl(ByRef b As Intege If b Mod2=0 Then Fl=1 Else Fl=0 End lf End Function
D. Private Sub Command1_Click( ) x=Input Box(“请输入整数”) F1(Val() Print a End Sub Function Fl(ByRef b As Intege lf b Mod2=0 Then Return 0 Else Return1 End lf End Function
[单项选择]在窗体上画一个名称为CD1的通用对话框，并有如下程序：
Private Sub Form_Load（ ）
CD1. DefaultExt="doc"
CD1. FileName="c:/file1.txt"
CD1.Filter="应用程序(*.exe)|*.exe"
End Sub
程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表中的默认文件类型是( )。
A. 应用程序(*.exe)
B. *.doc
C. *.txt
D. 不确定
[单项选择]在用通用对话框的ShowOpen显示“打开”文件对话框时，若要指定其中的文件类型为文本文件，正确的描述格式是( )。
A. "text(.txt)
B. "文本文件(.txt)
C. "text(.txt)
D. "text(.txt)(*.txt)"
[单项选择]在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为Save，默认文件名为SaveFile，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是 ______。
A. Private Sub Command Click() CommonDialogFileName＝"SaveFile" CommonDialogFilte＝"All Files
B. Private Sub Commandl_Click() CommonDialog FileName="SaveFile" CommonDialog Filter= "All Files
C. Private Sub Cmmandl_Click() CommonDialog FileName= "Save" CommonDialog FiLter="All Files
D. Private Sub Commandl_Click() CommonDialog FileName = "SaveFile" CommonDialog Filter= "All Files
