在窗体上画一个命令按钮和一个通用对话框，其名称分别为Command1 和 CommonDialog1,然后编写如下代码：

Private Sub Command1_Click()
    CommonDialog1.FileName = ""
    CommonDialog1.Flags = vbofnfilemustexist
    CommonDialog1.Filter = "All Files|*.*|(*.exe)|*.exe|(*.TXT)|*.txt" & "(*.doc)|*.Doc"
    CommonDialog1.FilterIndex = 4
    CommonDialog1.DialogTitle = "Open File(*.EXE)"
    CommonDialog1.Action = 1
    If CommonDialog1.FileName = "" Then
        MsgBox "No file selectd", 37, "checking"
    Else
        '对所选择的文件进行处理
    End If
 End Sub

程序运行后，单击命令按钮，将显示一个对话框。
（1）该对话框的标题是什么？
（2）该对话框“文本类型”框中显示的内容是什么
（3）单击“文件类型”框右端的箭头，下拉显示的内容是什么？
（4）如果在对话框中不选择文件，直接单击“取消”按钮，则在信息框中显示的信息是什么？该信息框中的按钮是什么？

    解：
（1）对话框的标题是：Open File(*.EXE).
（2）对话框“文件类型”框中显示的内容是：（*.doc）
（3）单击“文件类型”框右端的箭头，下拉显示的内容是：
      All Files
      *.exe
      *.TXT
      *.doc

(4) 如果在对话框中不选择文件，直接单击“取消”按钮，则在信息框中显示的信息是：No file selected;该信息框中的按钮是“重试”和“取消”。

*********************
新世纪计算机基础教育丛书 丛书主编：谭浩强
Visual Basic 程序设计教程 题解与上机指导（第四版） 刘炳文 编著

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_12.3.html