全国计算机等级考试二级VB模拟试卷机试(一).docVIP

全国计算机等级考试二级VB模拟试卷机试（一） 1．基本操作（2小题，每小题15分，共计30分） 注意：下面出现的考生文件夹均为c:\wexam 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在Form1的窗体上画一个名称为P1的图片框，然后建立一个主菜单，标题为操作，名称为Op，该菜单有两个子菜单，其标题分别为显示和清除，名称分别为Dis和Clea。编写适当的事件过程，程序运行后，如果单击操作菜单中的显示命令，则在图片框中显示计算机考试；如果单击清除命令，则清除图片框中的信息。程序的运行情况如图15-1和图15-2所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。程序中不得使用任何变量。 图 15-1 图 15-2 （2）在Form1的窗体上画一个列表框，名称为L1，通过属性窗口向列表框中添加4个项目，分别为早上好、上午好、中午好和下午好。编写适当的事件过程，过程中只能使用一条命令。程序运行后，如果双击列表框中的某一项，则把该项再添加到列表框中。程序的运行情况如图15-3所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 图 15-3 2．简单应用（2小题，每题20分，计40分） 注意：下面出现的考生文件夹均为c:\wexam （1）在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即 号），但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为Form1的窗体上有三个Label控件和两个命令按钮，Label控件均为提示信息。命令按钮CMDstart和CMDexit，程序运行后，单击开始按钮，程序自动利用循环计算1+1/2+1/3+...+1/10的结果，并把结果写入到考生文件夹下result.txt文件中。执行完毕开始按钮变成完成，且无效（变灰）。程序运行界面如图15-4所示。 图 15-4 Private Sub CmdEXIT_Click() End End Sub Private Sub Cmdstart_click() Dim E As Single, J As Integer Dim T As Single Open App.Path ? For ? As ? E = ? T = 1 For J = 2 To 10 Step 1 T = 1 / J E = E + T Next J Write #1, ? Close #1 CMDSTART.Caption =? CMDSTART.Enabled = ? End Sub 答案： Private Sub CMDEXIT_Click() End End Sub Private Sub CMDstart_click() Dim E As Single, J As Integer Dim T As Single Open App.Path \ result.txt For Output As #1 E = 1 T = 1 For J = 2 To 10 Step 1 T = 1 / J E = E + T Debug.Print T, E Next J Write #1, E Print E Close #1 CMDSTART.Caption = 完成 CMDSTART.Enabled = False End Sub （2）在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号），但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 程序启动时文本框的默认文字为请输入您要设置的文本，默认的字体为仿宋_GB2312，字号为五号。程序运行过程中可以修改文本框的内容在单击初始化时恢复启动时的状态；在单击清除后，文本框的内容为空，并恢复默认的字体，字型号。选择相应的字体和字型号可以设置文本框内文字的字体和属性。程序运行界面如图15-5所示。 图 15-5 Option Explicit Private Sub Command1_Click() Option1.Value = True Option6.Value = True