1、国家二级 VB机试（上机操作）模拟试卷 76及答案与解析 一、基本操作题 0 请根据以下各小题的要求设计 visual Basic应用程序 (包括界面和代码 )。 1 在名称为 Form1的窗体上画一个名称 check1的复选框数组 (Index属性从 0开始 )，含三个复选框，其标题分别为 “语文 ”、 “数学 ”、 “体育 ”，利用属性窗口设置适当的属性，使 “语文 ”未选， “数学 ”被选中， “体育 ”为灰色，再把窗体的标题设置为“选课 ”，如图 3-178所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文 件名为 sjt1 frm。 2 在名称为 Fo
2、rm1的窗体上画两个文本框，名称分别为 Text1、 Text2，再画两个命令按钮，名称分别为 Command1、 Command2，标题分别为 “复制 ”、 “删除 ”。程序运行时，在 Text1中输入一串字符，并用鼠标拖拽的方法选择几个字符，然后单击“复制 ”按钮，则被选中的字符被复制到 Text2中 (如图 3-179所示 )。若单击 “删除 ”按钮，则被选择的字符从 Text1中被删除。请编写两个命令按钮的 Click过程完成上述功能。 注意：要求程序中不得使用变量，事件过程中只能写一条语 句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm
3、。 二、简单应用题 3 在考生目录下有一个工程文件 sjt3 vbp，包含了所有控件和部分程序，如图 3-180所示。要求如下： 利用属性窗口设置适当的属性，使 Text1、 Text2中数据右对齐； 请编写适当的程序完成以下功能：在 Text1中输入 40(度数 )，选择组合框中的一个项目，单击 “计算 ”按钮，则根据所选择的项目，计算出相应的正弦、余弦值 (保留 3位小数，第 4位截去， 取 3 14159)，并显示在 Text2中 。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算；在 Text1中输入的必须是 40；必须用窗体右上角的关闭按钮结束程序，
4、否则无成绩。最后按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp，窗体上已经画出所有控件。程序的作用是构成一个简单的时钟。刚运行时，不计时，选择一个单选按钮后，再单击 “计时 ”按钮，则开始计时，并根据所选的单选按钮决定是每秒显示一次秒数，还是每10秒显示一次秒数。 Text2用于显示秒，如图 3-181所示。窗体文件中已经给出了程序，但不完 整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，窗体上有两个图片框，名称为 P1、P2，分
5、别用来表示信号灯和汽车，如图 3-182所示，其中在 P1中轮流装入 “黄灯 ico”、 “红灯 ico”、 “绿灯 ico”文件来实现信号灯的切换；还有两个计时器Timer1和 Timer2， Timer1用于变换信号灯，黄灯 1秒，红灯 2秒，绿灯 3秒；Timer2用于控制汽车向左移动。运行 时，信号灯不断变换，单击 “开车 ”按钮后。汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也
6、不能修改控件的属性。最后把修改后的文件以原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 76答案与解析 一、基本操作题 1 【正确答案】 审题分析 本题只需按要求画出控件数组，并设置其 Value属性。 操作步骤 步骤 1：新建一个 “标准 EXE”工程。 步骤 2：在窗体 Form1中加入一个复选框，并用 “复制 ”和 “粘贴 ”的方法，生成包含三个元素的复选框数组。 步骤 3：按要求分别设置窗体和复选框数组中各元素的相关属性。 步骤 4：按要求将文件保存至考生文件夹中。 考点链接 控件数组。 2 【正确答案】 审题分析 本题在 “复制 ”按钮的单击事件过程中，需将文本框 Text1
7、的 SelText属性值赋予文本框 Text2。在 “删除 ”按钮的单击事件过程中， 需将文本框 Text1被选文本 (SelText)设置为空。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：在代码编辑窗口， 分别编写 “复制 ”和 “删除 ”按钮的单击事件过程。 参考代码： Private Sub Command1_Click() Text2=Text1 SelText End Sub Private Sub Command2_Click() Form1 Text1 SelText=“ “ End Sub 步骤 3：按要求将文件保存至考生文件夹中
8、。 考点链接 文本控件。 二、简单应用题 3 【正确答案】 审题分析 本题可通过 Select Case语句对组合框的 Text属性返回值逐一进行判断，并根据Text属性值不同，分别进行相应运算。为实现 “第 4位截去 ”的功能，可将运算值乘以 1000后取整，再除以 1000。 操作步骤 步骤 1：打开考生文件夹中的工程文件 sjt3 vbp，依次选中 窗体中的两个文本框，将其 Alignment属性值设置为 1-Right Justify。 步骤 2：双击窗体中的 “计算 ”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。 参考代码： Private Sub Command1_Clic
9、k() Const PI=3 14159 Select Ca se Combo1 Text Case “sin“： a=Sin(CInt(Text1 Text)*PI 180) Case“cos“： a=Cos(CInt(Text1 Text)*PI 180) End Select Text2=Int(a*1000) 1000 End Sub 步骤 3：按 键运行程序，在左侧文本框中输入 “40”，选择不同选项，单击“计算 ”按钮。 步骤 4：单击窗体右上角的关闭按钮以结束程序。 步骤 5：按要求将文件保存至考生文件夹中。 考点链接 多分支结构、常用内部函数。 4 【正确答案】 审题分析 可借
10、助计时器来完成有规律性时间间隔执行的任务。本题计时器工作时，为使文本 框 2中的数每隔 1秒加 1，需将计时器的 Interval属性值设置为 1000毫秒，但是还可能每隔 10秒变化一次，因此需要全局变量。 num来保存当前的秒数，每一次执行计时器的 Timer事件就令 num加 1， 10秒后再使得 Text2加 10，当。 num超过 60的时候就令 Text1加 1然后把 Text2置 0。 操作步骤 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： num=num+1 Text2 Text
11、=Text2 Text+10 Text1 Text=Text1 Text+1 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 计时器。 三、综合应用题 5 【正确答案】 审题分析 计时器只在设计时可见，计时器是否启用由其 Enabled属性设置，值可取 True或 False。启用后由 Interval属性设置间隔多长时间触发一次其 Timer事件， Interval属性的单位为毫秒，默认值为 0，此时计时器不启用。 根据程序已提供源代码可知， Timer1用于控制红绿灯变换：第 1秒亮黄灯，第2、 3秒亮红灯，第 4、 5、 6秒亮绿灯。变量 a记录了信号灯运行的秒数，每触发一次 Ti
12、mer1的 Timer事件， a就加 1，当信号灯每亮完一轮，变量 a又从第 1秒开始计时。 Timer2用于控制汽车行驶，每触发一次 Timer2的 Timer事件，汽车向左移动10。在汽车行经红绿灯下方 (即 P2 Left P1 Left And P2 LeftP1 Left+P1 Width)时，遇黄灯或红灯亮 (即 a 4)时停车 (通过设置Timer2 Enabled=False实现 )， 否则继续行进。当汽车行至距窗体 100时，也设置Timer2 Enabled=False停车。 布尔型变量 b用于记录是否已单击 “开车 ”按钮，若是 b=True，在亮起绿灯时及时启动 Timer2。 操作步骤 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Timer2 Enabled=True P1 Picture=LoadPicture(“绿灯 ico“) Timer2 Enabled=False P2 Move Form1 P2 Left-10， P2 Top， P2 Width， P2 Height 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 图形控件、计时器。
