1、国家二级 VB机试（上机操作）模拟试卷 103及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml、标题为 “鼠标光标形状 ”的窗体上画一个名称为 Textl的文本框。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框巾时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字 (Cross)形状。注意：存盘时必须存放在考生文件灾下，工程文件名为 sjtl vbp，窗体文件名为 sitl frm。 (2)在名称为 Forml的窗体上画两个标签，名称分别为 Labe11、 Labe1
2、2，标题分别为“开始位置 ”、 “选巾的字符数 ”；画三个文本框，名称分别为 Text1、 Text2、Text3，再画一个名称为 Commandl，标题为 “显示选中信息 ”的命令按钮。程序运行时，在 Text1中输入若干字符，并用鼠标选中一些字符后，单击 “显示选中信息 ”按钮，则把选巾的第一个字符的顺序号显示在 Text2中，选中的字符个数显示在Text3中，如图 3 139所示。要求：画出所有控件，编写命令按钮的 Click事件过程。注意：要求程序中不得使用变量，事件过 程中只能写两条语句，分别用于显示第一个字符的顺序号和显示选巾的字符个数。存盘时必须存放在考生文件夹下，工程文件名为
3、sit2 vbp，窗体文件名为 sit2 frm。二、简单应用题 2 (1)在考生目录下有一个工程文件 sjt3 vbp，窗体上有一个命令按钮Commandl(标题为 “下一个 ”)。要求：在窗体上建立一个单选按钮数组 Optionl，含4个单选按钮，标题分别为 “选项 1”、 “选项 2”、 “选项 3”、 “选项 4”，初始状态下， “选择 1”为选中状态。如图 3 104所示。窗体文件中 _已经给出了命令按钮的C1ick事件过程，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一。个单选按钮，再单击命令按钮，则选
4、巾第一个单选按钮。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sit4 vbp，窗体上已经画出所有控件，如图 3-105所示。在 Text1文本框中输入一个任意的字符串 (要求串的长度 10)，然后选择组合框中的三个截取运算选项之一。单击 “计算 ”按钮，将截取运算后的结果显示在 Text2中。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，窗体上有两个图片框
5、，名称为 P1、P2，分别用来表示信号灯和汽车，如图 3一 182所示，其中在 P1中轮流装入 “黄灯， ico”、 “红灯 ico”、 “绿灯 ico”文件来实现信号灯的切换；还有两个计时器Timer1和 Timer2， Timer1用于变换信号灯，黄灯 1秒，红灯 2秒，绿灯 3秒；Timer2用于控制汽车向左移动。运行时，信号灯不断变换，单击 “开车 ”按钮后。汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不
6、能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 103答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建 “标准 EXE”工程，按要求画出控件并设置相应属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：在代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub Commandl Click() Text2=Textl SelStart+1 Text3=Tex
7、t 1 SelLength End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit3 vbp，按要求画出控件数组并设置属性。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Private Sub Commandl Click() For k=0 To 3 If Optionl(k) Value Then n=k End If Next k Optionl(n) Value=False n=n+1 If n=4 Then n=0 E
8、nd If Optionl(n) Value=True End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Select Case Combol ListIndex tmpStr=Mid(Trim(Text1 Text)， 3， 4) Text2 Text=tmpStr 步骤 2：按要求将文件 保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Timer2 Enabled=True P1 Picture： LoadPicture(”绿灯 ico”) Timer2 Enabled=False P2 Move Forml P2 Left10， P2 Top， P2 Width P2 Height 步骤 3：按要求将文件保存至考生文 件夹中。
