问答题
注意：下面出现的“考生文件夹”均为c：/wexam/25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在Form1的窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“隐藏”，名称分别为Dis和Hid，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框中显示“计算机考试”；如果单击“隐藏”命令，则隐藏文本框。程序的运行情况如图12-1和图12-2所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。程序中不得使用任何变量。
(2) 在窗体上画一个列表框，名称为L1，通过“属性”窗口向列表框中添加四个项目，分别为“早上好”、“中午好”、“下午好”和“晚上好”，编写适当的事件过程。程序运行后，每次单击列表框中的任何一项，则总在最后面添加一项“真有礼貌”。程序的运行情况如图12-3和图12-4所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。程序中不得使用任何变量。
(2) 在窗体上画一个列表框，名称为L1，通过“属性”窗口向列表框中添加四个项目，分别为“早上好”、“中午好”、“下午好”和“晚上好”，编写适当的事件过程。程序运行后，每次单击列表框中的任何一项，则总在最后面添加一项“真有礼貌”。程序的运行情况如图12-3和图12-4所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。程序中不得使用任何变量。
【正确答案】
【答案解析】[解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
菜单在“菜单编辑器”窗口中创建；在程序运行是控件是否可见该控件的Visible属性决定，如果将该值设置为True时，在对象可见，如果设置为为False时，则将隐藏该控件。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表12-1。
表 12-1
第二步：编写程序代码。
参考代码：
Private Sub Dis_Click()
Text1.Text="计算机考试"
End Sub
Private Sub Hid_Click()
Text1.Visible=False
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2) [解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
在“属性”窗口中，通过List属性设置列表项的内容。向列表框中添加文本通过Additem方法来实现，其格式为：列表框.Addltem项目字符串[.索引值]
Addltem方法把“项目字符串”的文本内容放入“列表框”中。解题步骤：
第一步：建立界面并设置控件属性。程序中只用到的控件及其属性见表12-2。
表 12-2
第二步：编写程序代码。
参考代码：
Private Sub L1_C1ick()
L1.AddItem"真有礼貌"
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
菜单在“菜单编辑器”窗口中创建；在程序运行是控件是否可见该控件的Visible属性决定，如果将该值设置为True时，在对象可见，如果设置为为False时，则将隐藏该控件。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表12-1。
表 12-1
|
控 件 |
属 性 |
设 置 值 |
| 菜单 | 名称 标题 |
Op 操作 |
| 菜单 | 名称 标题 |
Dis 显示 |
| 菜单 | 名称 标题 |
Hid 隐藏 |
| 文本框 | Name Text |
Text1 计算机考试 |
参考代码：
Private Sub Dis_Click()
Text1.Text="计算机考试"
End Sub
Private Sub Hid_Click()
Text1.Visible=False
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2) [解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
在“属性”窗口中，通过List属性设置列表项的内容。向列表框中添加文本通过Additem方法来实现，其格式为：列表框.Addltem项目字符串[.索引值]
Addltem方法把“项目字符串”的文本内容放入“列表框”中。解题步骤：
第一步：建立界面并设置控件属性。程序中只用到的控件及其属性见表12-2。
表 12-2
|
控 件 |
属 性 |
设 置 值 |
| 列表框 | Name | L1 |
参考代码：
Private Sub L1_C1ick()
L1.AddItem"真有礼貌"
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。