[单项选择]

在窗体上有—个名为CommonDialog1的通用对话框和一个名称为Command1的命令按钮，以及其他—些控件。要求在程序运行时，单击Command1按钮，则显示打开文件对话框，并在选择或输入了—个文件名后，就可以打开该文件。以下是Command1_Click事件过程的两种算法
算法1：
Private Sub Command1_Click（　）
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
End Sub
算法2：
Private Sub Command1_Click（　）
CommonDialog1.ShowOpen
IfCommonDialog1.FileName＜＞""Then
CommonDialog1.FileName For Input As #1
End If
End Sub
下面关于这两种算法的叙述中正确的是（）。

A. 显示打开文件对话框后若未选择或输入任何文件名，则算法2会出错，算法1不会
B. 显示打开文件对话框后若未选择或输入任何文件名，则算法1会出错，算法2不会
C. 两种算法的执行结果完全—样
D. 算法1允许输入的文件名中含有空格，而算法2不允许

[单项选择]在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮,以及其他一些控件。要求在程序运行时,单击Command1按钮,则显示打开文件对话框,并在选择或输入个文件名后,就可以打开该文件。以下是Command1_Click事件过程的两种算法 算法1： Private Sub Command1_Click（　） CommonDialog1.Show Open Open CommonDialog1.File Name For Input As#1 End Sub 算法2： Private Sub Command1_Click（　） CommonDialog1.Show Open If CommonDialog1.File Name<>" "Then Open CommonDialog1.File Name For Input As#1 EndIf End Sub 下面关于这两种算法的叙述中正确的是【 】
A. 显示打开文件对话框后若未选择或输入任何文件名,则算法2会出错,算法1不会
B. 显示打开文件对话框后若未选择或输入任何文件名,则算法1会出错,算法2不会
C. 两种算法的执行结果完全一样
D. 算法1允许输入的文件名中含有空格,而算法2不允许

[单项选择]

窗体上有一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，并有如下事件过程：
Private Sub Command1_Click（　）
CommandDialog1.DefaultExt=”doc”
CommandDialog1.FileName=”VB.txt”
CommandDialog1.FileName=”All(*.*)|*.*|Word|*.Doc|”
CommandDialog1.FileName=1
CommandDialog1.ShowSave
End Sub
运行上述程序，如下叙述正确的是（　　）。

A. 打开的对话框中文件“保存类型”框中显示“All(*.*)”
B. 实现保存文件的操作，文件名是VB.txt
C. DefaultExt属性与FileName属性所指明的文件类型不一致，程序出错
D. 对话框的Filter属性没有指出txt类型，程序运行出错

[单项选择]在窗体上有一个名称为CommonDialog1的通用对话框和一个名称为Command1的命令按钮，以及其他一些控件。要求在程序运行时，单击Command1按钮，则显示打开文件对话框，并在选择或输入了一个文件名后，就可以打开该文件。以下是Command1_Click事件过程的两种算法。
算法1：
Private Sub Command1_Click（　）
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As#1
End Sub
算法2：
Private Sub Command1_Click（　）
CommonDialog1.ShowOpen
If CommonDialog1.FileName＜＞" "Then
Open CommonDialog1.FileName For Input As#1
End If
End Sub
下面关于这两种算法的叙述，正确的是______。
A. 显示打开文件对话框后若未选择或输入任何文件名，则算法2出错，算法1不会
B. 显示打开文件对话框后若未选择或输入任何文件名，则算法1出错，算法2不会
C. 两种算法的执行结果完全一样
D. 算法1允许输入的文件名中含有空格，而算法2不允许

[单项选择]在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程： Private Sub Command1_Click( ) CommonDialogl．FileName=“” CommonDialogl，Filter＝“All File｜*．*｜(*．Doc)｜*．Doc｜(*．Txt)｜*．Txt” CommonDialogl．Filterlndex＝2 CommonDialogl．DialogTitle＝“VBTest” CommonDialogl．Action＝1 End Sub对于这个程序，以下叙述中错误的是
A. 该对话框被设置为“打开”对话框
B. 在该对话框中指定的默认文件名为空
C. 该对话框的标题为VBTest
D. 在该对话框中指定的默认文件类型为文本文件(*．Tx

[单项选择]在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，要求单击命令按钮时，打开一个保存文件的对话框，该窗口的标题为“Save”，缺省文件名称为“SaveFile”，在“文件类型”栏中显示*txt，则能够满足上述要求的程序是
A) Private Sub Command1_Click ( )　　CommonDialog1．FileName="SaveFile"　　CommonDialog1．Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc"　　CommonDialog1．FilterIndex=2　　CommonDialog1．DialogTitle="Save"　　CommonDialog1．Action=2　　End SubB) Private Sub Command1_Click ( )　　CommonDialog1．FileName="SaveFile"　　CommonDialog1．Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc"　　CommonDialog1．FilterIndex=1　　CommonDialog1．DialogTitle="Save"　　CommonDialog1．Action=2　　End SubC) Private Sub Command1 Click ( )　　CommonDialog1．FileName="Save"　　CommonDialog1．Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc"　　CommonDialog1．FilterIndex=2　　CommonDialog1．DialogTitle="SaveFile"　　CommonDialog1．Action=2　　End SubD) Private Sub Command1 Click ( )　　CommonDialog1．FileName="SaveFile"　　CommonDialog1．Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc"　　CommonDialogl.FilterIndex=1　　CommonDi

[填空题]

在窗体上画1个命令按钮和1个通用对话框，其名称分别为Command1和 CommonDialog1，然后编写如下事件过程：
Private Sub Command1 Click（　）
CommonDialog1.（）="打开文件""
CommonDialog1.Filter="All Files(*.*)|*.*"
CommonDialog1.InitDir="C:/"
CommonDialog1.ShowOpen
End Sub
该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“All Files(*.*)”，并显示C盘根目录下的所有文件，请填空。

[填空题]设窗体上有一个名为CD1的通用对话框、一个名为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示“打开”文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。
Private Sub Command1_Click（　）
CD1.Filter="文本文件|*.txt|Word文档|*.doc"
CD1.FilterIndex=1
CD1.ShowOpen
If CD1.FileName＜＞""Then
Open______For Input As #1
Line Input #1,ch$
Close #1
Text1.Text=______
End If
End Sub

[单项选择]在窗体上有一个名为Cd1的通用对话框，为了在运行程序时打开保存文件对话框，则在程序中应使用的语句是______。
A. Cd1.Action=1
B. Cd1.Action=2
C. Cd1.ShowSave=0
D. Cd1.ShowSave=True

[单项选择]窗体上有一个名称为CDI的通用对话框，一个名称为Command1的命令按钮。命令按钮的单击事件过程如下：
Private Sub Command1_Click（　）
CD1. FileName=""
CD1. Filter="All Files|*. *|(*. Doc)|*.Doc|(*. Txt)|*.Txt"
CD1. FiherIndex=2
CD1. Action=1
End Sub
关于以上代码，叙述错误的是( )。
A. 执行以上事件过程，通用对话框被设置为“打开”文件对话框
B. 通用对话框的初始路径为当前路径
C. 通用对话框的默认文件类型为*. Txt
D. 以上代码不对文件执行读写操作

[单项选择]窗体上有一个名称为CD1的通用对话框，一个名称为Command1的命令按钮，相应的事件过程如下：
Private Sub Command1_Click（　）
CD1. Filter = "All File| *. * |Text File| *. txt|PPT| *. ppt"
CD1. FiherIndex = 2
CD1. InitDir = "C: /"
CD1. FileName = "default"
CD1. ShowSave
End Sub
关于上述过程，以下叙述中正确的是( )。
A. 默认过滤器为“*. ppt”
B. 指定的初始目录为“C: /”
C. 打开的文件对话框的标题为“default”
D. 上面事件过程实现保存文件的操作

[单项选择]窗体上有一个名称为CD1的通用对话框，一个名称为Command1的命令按钮。命令按钮的单击事件过程如下：
Private Sub Command1_Click（　）
CD1.FileName=" "
CD1.Filter="All Files|*.*|(*.Doc)|*.Doc|(*.txt)|*.txt"
CD1.FilterIndex=2
CD1.Action=1
End Sub
关于以上代码，叙述错误的是______。
A. 执行以上事件过程，通用对话框被设置为"打开"文件对话框
B. 通用对话框的初始路径为当前路径
C. 通用对话框的默认文件类型为*.txt
D. 以上代码不对文件执行读写操作

[填空题]设窗体上有一个名称为CD1的通用对话框、一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。
Private Sub Command1_Click（　）
CD1.Filter="文本文件|*.txt|Word文档|*.doc"
CD1.FilterIndex=1
CD1.ShowOpen
If CD1.FileName＜＞"" Then
Open (9) For Input As #1
Line Input #1, Ch$
Close #1
Text1.Text= (10)
End If
End Sub

[单项选择]窗体上有1个名称为CD1的通用对话框，1个名称为Commandl的命令按钮。命令按钮的单击事件过程如下：
Private Sub Commandl_Click（　）
CD1.FileName=""
CD1.Filter="AllFiles|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
CD1.FilterIndex=2
CD1.Action=1
End Sub
关于以上代码，错误的叙述是( )。
A. 执行以上事件过程，通用对话框被设置为“打开”文件对话框
B. 通用对话框的初始路径为当前路径
C. 通用对话框的默认文件类型为*.Txt
D. 以上代码不对文件执行读写操作