问答题
注意：下面出现的“”均为c：/wexam/25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在Form1的窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“退出”，其名称分别为Dis和Exit，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框中显示“计算机考试”；如果单击“退出”命令，则结束程序运行。程序的运行情况如图11-1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
(2) 在窗体上画一个列表框，名称为L1，通过“属性”窗口向列表框中添加4个项目，分别为“WHBB”、“HIJK”、“QWEI”和“POIU”，单击列表框中的某一项，则该项就从列表框中消失。程序的运行情况如图11-2和图1l-3所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjtt2.frm。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在Form1的窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“退出”，其名称分别为Dis和Exit，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框中显示“计算机考试”；如果单击“退出”命令，则结束程序运行。程序的运行情况如图11-1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
(2) 在窗体上画一个列表框，名称为L1，通过“属性”窗口向列表框中添加4个项目，分别为“WHBB”、“HIJK”、“QWEI”和“POIU”，单击列表框中的某一项，则该项就从列表框中消失。程序的运行情况如图11-2和图1l-3所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjtt2.frm。
【正确答案】[解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
在Visual Basic中，菜单在“菜单编辑器”窗口中建立。通过End语句结束程序的运行。解题步骤：
第一步：建立界面并设置控件属性。菜单及控件属性设置见表11-1。
表 11-1
第二步：编写程序代码。
参考代码：
Private Sub Dis_Click()
Text1.Text="计算机考试"
End Sub
Private Sub Exit_Click()
End
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘
(2) [解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
用RemoveItem方法删除列表框中指定的项目，其格式为：
列表框.RemoveItem索引值
RemoveItem方法从列表框中删除以“索引值”为地址的项目，改方法每次只能删除一个项目。
ListIndex属性是已被选中的表项的位置。如果没有选中任何项，ListIndex的值将设置为-1。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表11-2。
表 11-2
第二步：编写程序代码。
参考代码：
Private Sub L1_Click()
L1.RemoveItem L1.ListIndex
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
答案考生文件夹
在Visual Basic中，菜单在“菜单编辑器”窗口中建立。通过End语句结束程序的运行。解题步骤：
第一步：建立界面并设置控件属性。菜单及控件属性设置见表11-1。
表 11-1
控 件 | 属 性 | 设 置 值 |
| 菜单 | 名字 标题 | Op 操作 |
| 菜单 | 名字 标题 | Dis 显示 |
| 菜单 | 名字 标题 | Exit 退出 |
| 文本框 | Name | Text1 |
参考代码：
Private Sub Dis_Click()
Text1.Text="计算机考试"
End Sub
Private Sub Exit_Click()
End
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘
(2) [解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
用RemoveItem方法删除列表框中指定的项目，其格式为：
列表框.RemoveItem索引值
RemoveItem方法从列表框中删除以“索引值”为地址的项目，改方法每次只能删除一个项目。
ListIndex属性是已被选中的表项的位置。如果没有选中任何项，ListIndex的值将设置为-1。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表11-2。
表 11-2
控 件 | 属 性 | 设 置 值 |
| 列表框 | Name List | L1 WHBB，HIJK QWEI，POIU |
参考代码：
Private Sub L1_Click()
L1.RemoveItem L1.ListIndex
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
答案考生文件夹
【答案解析】