问答题
注意：下面出现的“考生文件夹”均为c：/wexam/25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在Form1的窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，名称分别为Dis和Clea，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框显示“计算机考试”；如果单击“清除”命令，则清除文本框中显示的内容。程序的运行情况如图13-1和图13-2所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
(2) 在窗体上画一个文本框，名称为Text1，Text属性为空白。再画一个列表框，名称为L1，通过“属性”窗口向列表框中添加4个项目，分别为“早上好”、“上午好”、“中午好”和“下午好”，编写适当的事件过程。程序运行后，在文本框中输入一个字符串，如果双击列表框中的任一项，则把文本框中的字符串添加到列表框中。程序的运行情况如图13-3所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
【正确答案】
【答案解析】[解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
通过“菜单编辑器”来创建菜单，文本框的内容通过Text属性设置，Tex=""语句可将文本框中的内容清空。
解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表13-1。
表 13-1
第二步：编写程序代码。
参考代码：
Private Sub Clea_Click()
Text1.Text=""
End Sub
Private Sub Dis_Click()
Text1.Text="计算机考试"
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2) [解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
列表框的内容由List属性设置，文本框的内容由Text属性设置，双击触发DblClick事件，向列表框中添加内容用Addltem方法。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表13-2。
表 13-2
第二步：编写程序代码：
参考代码：
Private Sub L1_DblCliCk()
L1.AddItem Text1.Text
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
通过“菜单编辑器”来创建菜单，文本框的内容通过Text属性设置，Tex=""语句可将文本框中的内容清空。
解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表13-1。
表 13-1
|
控 件 |
属 性 |
设 置 值 |
| 菜单 | 名字 标题 |
Op 操作 |
| 菜单 | 名字 标题 |
Dis 显示 |
| 菜单 | 名字 标题 |
Cle 清除 |
| 文本框 | Name | Text1 |
参考代码：
Private Sub Clea_Click()
Text1.Text=""
End Sub
Private Sub Dis_Click()
Text1.Text="计算机考试"
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2) [解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
列表框的内容由List属性设置，文本框的内容由Text属性设置，双击触发DblClick事件，向列表框中添加内容用Addltem方法。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表13-2。
表 13-2
|
控 件 |
属 性 |
设 置 值 |
| 文本框 | Name | Text1 |
| 列表框 | Name | L1 |
参考代码：
Private Sub L1_DblCliCk()
L1.AddItem Text1.Text
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。