打印本文 
关闭窗口 A.按钮和按钮，而显示其他按钮
B.按钮，而显示其他按钮
C.按钮和左上角的控制菜单按钮，而显示其他按钮
D.所有按钮
2. 如果在窗体中有一个名为CD1的通用对话框控件，则在程序中可以打开保存文件对话框的语句是
A. CD1.Action=2
B. CD1.ShowSave=True
C. CD1.ShowOpen
D. CD1.Action
3. 设名为CD1的通用对话框控件的Filter属性被设置为“所有文件|*.*|文本文件|*.txt”，FilterIndex属性被设置为2，则在显示打开文件对话框时，“文件类型”列表中显示的默认文件类型是
A. 所有文件
B. *.*
C. 文本文件
D. *.txt
4. 通用对话框控件的Copies属性适用的对话框是
A. 颜色对话框
B. 字体对话框
C. 打印对话框
D. 打开文件对话框
5. "使用通用对话框控件时，要在打开的对话框的标题栏上显示“保存文件”，应把这4个汉字赋给的属性变量是
A. DialogTitle
B. FileName
C. FileTitle
D. FontName
6. 如果设置了DefaultExt=“doc”，FileName=“c:\file 1.txt”，则FileTitle中的值是
A. file1.doc
B. file1.txt
C. c:\file1.txt
D. c:\file1.doc
编程题
1、窗体上有一个名称为CD1的通用对话框控件，一个名为Text1的文本框，两个命令按钮，其标题分别为“打开文件”、“保存文件”，名称分别为C1、C2，编写适当的事件过程，在单击“打开文件”按钮时，弹出打开文件对话框并把选中的文件读入Text1中，在单击“保存文件”按钮时，打开保存文件对话框，并把Text1中的内容按选定的路径和文件名存盘。如果在对话框中单击了“取消”按钮，则不进行任何操作，程序中不使用On Error语句。对话框的默认路径是“c:\my documents\”，默认的文件类型是文本文件。
程序如下：
Private Sub C1_Click( )
Dim a As String
CD1.InitDir = "c:\my documents"
CD1.Filter="文本文件|*.txt"
CD1.FileName = ""
CD1.Action = 1
If CD 1.FileName ＜＞ "" Then
Open CD 1.FileName For Input As #1
Input #1, a
Close #1
Text1.Text = a
End If
End Sub
Private Sub C2_Click( )
CD 1.InitDir = "c:\my documents"
CD1.FileName = ""
CD1.Filter="文本文件|*.txt"
CD 1.Action = 2
If CD1.FileName ＜＞ Then
Open CD1.FileName For Output As #1
Print #1, Text1.Text
Close #1
End If
End Sub
2.在Form1窗体上画一个名称为Text1的文本框和一个名称为CD1的通用对话框控件，再建立一个下拉式菜单，顶级菜单项标题为“文本框颜色”，名称为Colors，含两个子菜单项，其标题分别为“文本颜色”和“背景颜色”，其名称分别为textcolor和back_color。其作用都是打开颜色对话框，“文本颜色”菜单项的功能是把从对话框中选中的颜色设置为文本框中文字的颜色；“背景颜色”菜单项的功能是把从对话框中选中的颜色设置为文本框的背景色。编写适当的事件过程实现这些功能。
程序如下：
Private Sub back_color_Click()
CD 1.CancelError = True
On Error GoTo err01
CD 1.Action = 3
Text1.BackColor = CD 1.Color
err01:
End Sub
Private Sub textcolor_Click()
CD 1.CancelError = True
On Error GoTo err01
CD 1.Action = 3
Text1.ForeColor = CD 1.Color
err01:
End Sub
打印本文 关闭窗口