2012年计算机二级VB考试试题及答案解析16

基本操作（2小题，每小题15分，共计30分）　
　　注意：下面出现的“考生文件夹”均为%USER%
　　请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
　　（1）在名称为Form1的窗体上建立一个主菜单， 标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，其名称分别为Dis和Clea， 编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在窗体上显示“等级考试”；如果单击“清除”命令，则清除窗体上显示的内容。程序的运行情况如图所示。
　　*注意：
　　存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
　　解题思路：
　　启动Visual Basic系统，创建一个Form1窗体。
　　通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“操作”，名称处输入Op，在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“显示”和“清除”，名称处分别输入Dis和Clea。
　　单击“操作”菜单中的“显示”命令（即运行Click事件过程），在该Click事件过程中加入语句：
　　Private Sub Dis_Click()
　　Print "等级考试"
　　End Sub
　　单击“操作”菜单中的“清除”命令（即运行Click事件过程），在该Click事件过程中加入语句：
　　Private Sub Clea_Click()
　　Cls
　　End Sub
　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw
　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt1.vbp文件并运行。
　　（2）在名称为Form1 的窗体上画一个标签，其名称为Lab1；再画一个列表框，其名称为L1，通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限，编写适当的事件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目数在标签中显示出来。程序运行情况如图所示。不准使用任何变量。
　　*注意：
　　存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
　　解题思路：
　　启动Visual Basic系统，创建一个Form1窗体。
　　在该窗体上画一个标签控件，通过其属性窗口将名称设为Lab1。画一个列表框控件，通过其属性窗口将名称设为L1，向列表框中添加项目（List属性），添加的项目具体内容不限，每个项目为一行。
　　双击列表框（即运行DblClick事件过程），在该DblClick事件过程中加入语句：
　　Private Sub L1_DblClick()
　　Lab1.Caption = L1.ListCount
　　End Sub
　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.frx、sjt2.vbw
　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt1.vbp文件并运行。