基本操作(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文件并运行。