1、国家二级 VB 机试（上机操作）-试卷 78 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml、标题为“鼠标光标形状”的窗体上画一个名称为 Textl 的文本框。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框巾时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(Cross)形状。注意：存盘时必须存放在考生文件灾下，工程文件名为 sjtlvbp，窗体文件名为 sitlfrm。(2)在名称为 Forml 的窗体
2、上画两个标签，名称分别为 Labe11、Labe12，标题分别为“开始位置”、“选巾的字符数”；画三个文本框，名称分别为 Text1、Text2、Text3，再画一个名称为 Commandl，标题为“显示选中信息”的命令按钮。程序运行时，在 Text1 中输入若干字符，并用鼠标选中一些字符后，单击“显示选中信息”按钮，则把选巾的第一个字符的顺序号显示在 Text2 中，选中的字符个数显示在 Text3 中，如图 3139 所示。要求：画出所有控件，编写命令按钮的 Click 事件过程。注意：要求程序中不得使用变量，事件过程中只能写两条语句，分别用于显示第一个字符的顺序号和显示选巾的字符个数。存
3、盘时必须存放在考生文件夹下，工程文件名为 sit2vbp，窗体文件名为 sit2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生目录下有一个工程文件 sjt3vbp，窗体上有一个命令按钮 Commandl(标题为“下一个”)。要求：在窗体上建立一个单选按钮数组 Optionl，含 4 个单选按钮，标题分别为“选项 1”、“选项 2”、“选项 3”、“选项 4”，初始状态下，“选择 1”为选中状态。如图 3104 所示。窗体文件中_已经给出了命令按钮的 C1ick 事件过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，使得每单击命令按钮一
4、次，就选中下一个单选按钮，如果已经选中最后一。个单选按钮，再单击命令按钮，则选巾第一个单选按钮。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sit4vbp，窗体上已经画出所有控件，如图 3-105 所示。在 Text1文本框中输入一个任意的字符串(要求串的长度10)，然后选择组合框中的三个截取运算选项之一。单击“计算”按钮，将截取运算后的结果显示在 Text2 中。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有
5、一个工程文件 sjt5vbp，窗体上有两个图片框，名称为 P1、P2，分别用来表示信号灯和汽车，如图 3 一 182 所示，其中在 P1 中轮流装入“黄灯，ico”、“红灯ico”、“绿灯ico”文件来实现信号灯的切换；还有两个计时器 Timer1 和 Timer2，Timer1 用于变换信号灯，黄灯 1 秒，红灯 2秒，绿灯 3 秒；Timer2 用于控制汽车向左移动。运行时，信号灯不断变换，单击“开车”按钮后。汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程
6、序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 78 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml、标题为“鼠标光标形状”的窗体上画一个名称为 Textl 的文本框。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框巾时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(C
7、ross)形状。注意：存盘时必须存放在考生文件灾下，工程文件名为 sjtlvbp，窗体文件名为 sitlfrm。(2)在名称为 Forml 的窗体上画两个标签，名称分别为 Labe11、Labe12，标题分别为“开始位置”、“选巾的字符数”；画三个文本框，名称分别为 Text1、Text2、Text3，再画一个名称为 Commandl，标题为“显示选中信息”的命令按钮。程序运行时，在 Text1 中输入若干字符，并用鼠标选中一些字符后，单击“显示选中信息”按钮，则把选巾的第一个字符的顺序号显示在 Text2 中，选中的字符个数显示在 Text3 中，如图 3139 所示。要求：画出所有控件，编
8、写命令按钮的 Click 事件过程。注意：要求程序中不得使用变量，事件过程中只能写两条语句，分别用于显示第一个字符的顺序号和显示选巾的字符个数。存盘时必须存放在考生文件夹下，工程文件名为 sit2vbp，窗体文件名为 sit2frm。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建“标准 EXE”工程，按要求画出控件并设置相应属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：在代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private S
9、ub Commandl Click() Text2=TextlSelStart+1 Text3=Text 1SelLength End Sub 步骤 3：按要求将文件保存至考生文件夹中。)解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生目录下有一个工程文件 sjt3vbp，窗体上有一个命令按钮 Commandl(标题为“下一个”)。要求：在窗体上建立一个单选按钮数组 Optionl，含 4 个单选按钮，标题分别为“选项 1”、“选项 2”、“选项 3”、“选项 4”，初始状态下，“选择 1”为选中状态。如图 3104 所示。窗体文件中_已经给出了命令按钮的 C1ick 事件过
10、程，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一。个单选按钮，再单击命令按钮，则选巾第一个单选按钮。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sit4vbp，窗体上已经画出所有控件，如图 3-105 所示。在 Text1文本框中输入一个任意的字符串(要求串的长度10)，然后选择组合框中的三个截取运算选项之一。单击“计算”按钮，将截取运算后的结果显示在 Text2 中。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
11、（分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit3vbp，按要求画出控件数组并设置属性。 步骤 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 End If Optionl(n)Value=True End Sub 步骤 3：按要求将
12、文件保存至考生文件夹中。 【操作步骤】 步骤1：打开考生文件夹中的本题工程文件 sit4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： Select Case CombolListIndex tmpStr=Mid(Trim(Text1Text)，3，4) Text2Text=tmpStr 步骤 2：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，窗体上有两个图片框，名称为 P1、P2，分别用来表示信号灯和汽车，如图 3 一 182 所示，其中在 P1 中轮流装入“黄灯
13、，ico”、“红灯ico”、“绿灯ico”文件来实现信号灯的切换；还有两个计时器 Timer1 和 Timer2，Timer1 用于变换信号灯，黄灯 1 秒，红灯 2秒，绿灯 3 秒；Timer2 用于控制汽车向左移动。运行时，信号灯不断变换，单击“开车”按钮后。汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： Timer2Enabled=True P1Picture：LoadPicture(”绿灯ico”) Timer2Enabled=False P2Move FormlP2Left10，P2Top，P2Width P2Height 步骤 3：按要求将文件保存至考生文件夹中。)解析：
