1、国家二级 VB 机试（上机操作）模拟试卷 303 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Form1、标题为“鼠标光标形状”的窗体上画一个名称为 Text1 的文本框。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(Cross)形状。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。(2)在名称为 Form1 的
2、窗体上画两个标签，名称分别为 Label1、Label2，标题分别为“开始位置”、“选中的字符数”；画三个文本框，名称分别为 Text1、Text2、Text3，再画一个名称为 Command1，标题为“显示选中信息”的命令按钮。程序运行时，在 Text1 中输入若干字符，并用鼠标选中一些字符后，单击“显示选中信息”按钮，则把选中的第一个字符的顺序号显示在 Text2 中，选中的字符个数显示在 Text3 中，如图 3152 所示。要求：画出所有控件，编写命令按钮的 Click 事件过程。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件
3、sjt3vbp，窗体上有一个矩形和一个圆，还有垂直和水平滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图 3153(a)所示；滚动块在最右边时，圆靠在矩形的右边线上，如图 3153(b)所示。垂直滚动条的情况与此类似。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，其窗体上有三个标签、三个文本框和两个命令按钮，均使用默认名称。程序的功能是：如果单击“读数据”命令按钮，则把考生文件夹下 in5da
4、t 文件中两组已按升序方式排列的数(每组 30 个数)分别读入数组 A 和 B，并分别将它们显示在 Text1、Text2 中；如果单击“合并”命令按钮，则将 A、B 两个数组合并为另一个按升序方式排列的数组 C，并将合并后数组C 中的数据依升序方式显示在 Text3 中。窗体中给出了所有控件(如图 3155 所示)以及“读数据”命令按钮的 Click 事件过程，请完善“合并”命令按钮的 Click 事件过程，使其实现上述功能。注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行合并操作，且必须通过窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 （分数：2
5、.00）_国家二级 VB 机试（上机操作）模拟试卷 303 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Form1、标题为“鼠标光标形状”的窗体上画一个名称为 Text1 的文本框。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(Cross)形状。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。(2)在名称为 For
6、m1 的窗体上画两个标签，名称分别为 Label1、Label2，标题分别为“开始位置”、“选中的字符数”；画三个文本框，名称分别为 Text1、Text2、Text3，再画一个名称为 Command1，标题为“显示选中信息”的命令按钮。程序运行时，在 Text1 中输入若干字符，并用鼠标选中一些字符后，单击“显示选中信息”按钮，则把选中的第一个字符的顺序号显示在 Text2 中，选中的字符个数显示在 Text3 中，如图 3152 所示。要求：画出所有控件，编写命令按钮的 Click 事件过程。 （分数：2.00）_正确答案：(正确答案：第 1 小题 步骤 1：新建“标准 EXE”工程。按要
7、求画出控件并设置相应属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 步骤 1：新建一个“标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：在代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub Command1_CliCk() Text2=Text1SelStart+1 Text3=Text1SelLength End Sub 步骤 3：按要求将文件保存至考生文件夹中。)解析：解析：第 1 小题：根据题目要求，要使鼠标指针位于文本框中时，鼠标指针的形状为箭头，需将文本框的 MousePointer 属性值设置为 1。为使鼠标指针位于窗体中其他
8、位置时 第 2 小题：由于 SelStart属性返回的所选文本的起始点位于起始文本的左侧，故所选文本的第一个字符的顺序号应为 SelStart 属性值加 1。选中字符数即为 SelLength 属性返回值。二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，窗体上有一个矩形和一个圆，还有垂直和水平滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图 3153(a)所示；滚动块在最右边时，圆靠在矩形的右边线上，如图 31
9、53(b)所示。垂直滚动条的情况与此类似。 （分数：2.00）_正确答案：(正确答案：第 1 小题 步骤 1：打开考生文件下的本题工程文件 sjt3vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： HScroll1Max=Shape2Width+ Shape2Left-Shape1Width VScroll1Max=Shape2Height+ Shape2Top-ShapelHeight Shape1Left=HScroll1Value Shape1Top=VSctoll1 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 步骤 1：打开考生文件
10、夹中的本题工程文件 sjt4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： Timer1Enabled=True Timer1Enabled=False d=d-Image1Top t=t+1 步骤 2：按F5键运行程序，先单击“发射”按钮，计算完毕后单击“存盘”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 3：按要求将文件保存至考生文件夹中。)解析：解析：第 1 小题：本题在窗体加载过程中初始化水平滚动条和垂直滚动条的 Min 属性和 Max 属性值，以使其能与圆形 Shape1 所能到达的左边界、右边界、上边界、下边界一致，其中：HScrol
11、l1Max=Shape2Width+Shape2Left-Shape1Width，VScroll1Max=Shape2Height+Shape2TopShape1Height。当水平或垂直滚动条移动时，通过在其 Change 事件过程中设置 Shape1 的 Left 属性值或 Top 属性值与滚动条的 Value 属性值一致即可。 第 2 小题：本题通过计时器来控制航天飞机移动。单击“发射”按钮时肩动计时器(即Timer1Enabled=True)，并记录下此时航天飞机(Image1)上部的坐标值(d=Image1Top)；在计时器的Timer 事件过程中，每次让航天飞机向上移动 50 的
12、a 倍(a 为实现航天飞机加速移动的系数)，如果移动后航天飞机已全部进入云中(即 Image1Top+Image1Height=Image2Top+Image2Height-200)，则通过停止计时器(即 Timer1Enabled=False)来停止航天飞机上移。并将此时飞行距离 d(d=d-Image1Top)显示在标签 Label1 中，飞行时间(t*Timer1Interva11000)显示在标签 Label2 中。如果航天飞机还没全部进入云中，则加速系数增加 01，并川变量 t 记录一次飞行时间(t=t+1)。三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文
13、件 sjt5vbp，其窗体上有三个标签、三个文本框和两个命令按钮，均使用默认名称。程序的功能是：如果单击“读数据”命令按钮，则把考生文件夹下 in5dat 文件中两组已按升序方式排列的数(每组 30 个数)分别读入数组 A 和 B，并分别将它们显示在 Text1、Text2 中；如果单击“合并”命令按钮，则将 A、B 两个数组合并为另一个按升序方式排列的数组 C，并将合并后数组C 中的数据依升序方式显示在 Text3 中。窗体中给出了所有控件(如图 3155 所示)以及“读数据”命令按钮的 Click 事件过程，请完善“合并”命令按钮的 Click 事件过程，使其实现上述功能。注意：不得修改已
14、经存在的控件和程序，在结束程序运行之前，必须进行合并操作，且必须通过窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开考生文件夹下的工程文件 sjt5vbp。 步骤 2：编写“合并”按钮的单击事件过程。 参考代码： Private Sub Command2_Click() 考生编写程序开始 ia=1：ib=1：ic=1 Do While ia=30And ib=30 Tf a(ia)b(ib)Then c(ic)=a(ia)：ia=ia+1 Else c(ic)=b(ib)：ib=ib+1 End If ic=ic
15、+1 Loop Do While ia=30 C(ic)=a(ia)：ia=ia+1：ic=ic+1 Loop Do While ib=30 c(ic)=b(ib)：ib=ib+1：ic=ic+1 Loop 考生编写程序结束 以下程序将合并后的数组 C 显示在Text3 中 For k=1To60 Text3=Text3+Str(c(k)+Space(2) Next k End Sub 步骤 3：运行程序，单击“读数据”按钮，然后单击“合并”按钮获得结果，然后通过窗体右上角的“关闭”按钮结束程序。 步骤4：按要求将文件保存至考生文件夹中。)解析：解析：根据题意，要求实现两个数组的有序合并，可以设置三个变量 ia、ib、ic 用于标识当前分别在三个数组中的当前元素下标，初值均为 1；接下来进行循环，分别比较 a(ia)和 b(ib)的大小，若a(ia)b(ib)，则将 a(ia)放入 c(ic)中，然后令 ia 加 1 指向 a 的下一个元素；否则将 b(ib)放入 c(ic)中并令 ib+1 指向 b 的下一个元素：最后令 ic 加 1 指向 c 的下一个元素位置。 循环结束的条件是 a 数组已经比较完或者 b 数组已经比较完，此时需要将数组中余下的数据连接到 c 数组中。
