问答题
注意：下面出现的“考生文件夹”均为C：/wexam/25160002。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在名称为Form1的窗体上画一个名称为Command1的命令按钮，标题为“打开文件”，再画一个名称为CD1的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框。请按下列要求设置属性并编写代码：
设置适当属性，使对话框的标题为“打开文件”；设置适当属性，使对话框的“文件类型”下拉式组合框中有二行：“文本文件”、“所有文件”，如图23-1所示，默认的类型是“所有文件”；编写代码，使得单击按钮可以弹出打开文件对话框。要求：程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
(2) 在名称为Form1的窗体上画一个命令按钮，名称为Command1，标题为“移动本按钮”，如图 23-2所示。要求编写适当的事件过程，使得程序运行时，每单击按钮一次， 按钮向左移动100。要求：程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
【正确答案】
【答案解析】[解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
在Visual Basic中，命令按钮的名称由Caption属性设置。通用对话框的属性可以在属性窗口中直接设置。将 CommonDialog的Name属性设置为CD1，文件类型在CommonDialog的Filter属性中设置，其格式为：
文件说明|文件类型
本题应在Filter属性中设置为：文本文件|*.txt|所有文件|*.*。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及属性设置见表23-1。
表 23-1
第二步：编写程序代码。
参考代码：
Option Explicit
Private Sub Command1_Click()
CD1.ShowOpen
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2) [解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
在Visual Basic中，按钮的标题由Caption属性设置。要使命令按钮向左移动，须用到按钮的Left属性，使其值再每单击一次按钮时减去100。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及属性设置见表23-2。
表 23-2
第二步：编写程序代码。
参考代码：
Option Explicit
Private Sub Command1_Click()
Command1.Left=Command1.Left-100
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
在Visual Basic中，命令按钮的名称由Caption属性设置。通用对话框的属性可以在属性窗口中直接设置。将 CommonDialog的Name属性设置为CD1，文件类型在CommonDialog的Filter属性中设置，其格式为：
文件说明|文件类型
本题应在Filter属性中设置为：文本文件|*.txt|所有文件|*.*。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及属性设置见表23-1。
表 23-1
|
控 件 |
属 性 |
设 置 值 |
| 按钮 | Caption | 打开文件 |
| 通用对话框 | (名称) DialogTitle Filter |
CD1 打开文件 文本文件|*.txt|所有文件|*.*| |
参考代码：
Option Explicit
Private Sub Command1_Click()
CD1.ShowOpen
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2) [解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
在Visual Basic中，按钮的标题由Caption属性设置。要使命令按钮向左移动，须用到按钮的Left属性，使其值再每单击一次按钮时减去100。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及属性设置见表23-2。
表 23-2
|
控 件 |
属 性 |
设 置 值 |
| 按钮 | (名称) Caption |
Command1 移动本按钮 |
参考代码：
Option Explicit
Private Sub Command1_Click()
Command1.Left=Command1.Left-100
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。