1、国家二级 VB机试（上机操作）模拟试卷 303及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1、标题为 “鼠标光标形状 ”的窗体上画一个名称为 Text1的文本框。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字 (Cross)形状。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在名称为 Form1的窗体上画两个标签，名称分别为 Label1、 Label
2、2，标题分别为“开始位置 ”、 “选中的字符数 ”；画三个文本框，名称分别为 Text1、 Text2、Text3，再画一个名称为 Command1，标题为 “显示选中信息 ”的命令按钮。程序运行时，在 Text1中输入若干字符，并用鼠标选中一些字符后，单击 “显示选中信息 ”按钮，则把选中的第一个字符的顺序号显示在 Text2中，选中的字符个数显示在Text3中，如图 3152所示。要求：画出所有控件，编写命令按钮的 Click事件过程。 注意：要求程序中不得使用变量，事件 过程中只能写两条语句，分别用于显示第一个字符的顺序号和显示选中的字符个数。存盘时必须存放在考生文件夹下，工程文件名为
3、sit2 vbp，窗体文件名为sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，窗体上有一个矩形和一个圆，还有垂直和水平滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图 3153(a)所示；滚动块在最右边时，圆靠在矩 形的右边线上，如图 3153(b)所示。垂直滚动条的情况与此类似。 文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 “?”改为正确的内容。注意：不能修改程序的其他部分和控件
4、属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。窗体中已经给出了所有控件，如图 3154所示。运行时，单击 “发射 ”按钮，航天飞机图标将向上运动，速度逐渐加快，全部进入云中后则停止，并把飞行距离 (用坐标值表示 )、所用时间 (单位为秒 )分别显示在标签 Label1和 Label2中；单击 “保存 ”按钮，则把飞行距离、所用时间存入考生文件夹下的 out4 txt文件中。文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的 “?”改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合应
5、用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上有三个标签、三个文本框和两个命令按钮，均使用默认名称。程序的功能是： 如果单击 “读数据 ”命令按钮，则把考生文件夹下 in5 dat文件中两组已按升序方式排列的数 (每组 30个数 )分别读入 数组 A和 B，并分别将它们显示在 Text1、 Text2中； 如果单击 “合并 ”命令按钮，则将 A、 B两个数组合并为另一个按升序方式排列的数组 C，并将合并后数组 C中的数据依升序方式显示在 Text3中。窗体中给出了所有控件 (如图 3155所示 )以及 “读数据 ”命令按钮的 Click事件过程，请完善 “合并 ”命令按钮的
6、 Click事件过程，使其实现上述功能。注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行合并操作，且必须通过窗体右上角的 “关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 303答案与解析 一、基本操作题 1 【正确答案】 第 1小题 步骤 1：新建 “标准 EXE”工程。按要求画出控件并设置相应属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：在代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub Comm
7、and1_CliCk() Text2=Text1 SelStart+1 Text3=Text1 SelLength End Sub 步骤 3： 按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题：根据题目要求，要使鼠标指针位于文本框中时，鼠标指针的形状为箭头，需将文本框的 MousePointer属性值设置为 1。为使鼠标指针位于窗体中其他位置时 第 2小题：由于 SelStart属性返回的所选文本的起始点位于起始文本的左侧，故所选文本的第一个字符的顺序号应为 SelStart属性值加 1。选中字符数即为SelLength属性返回值。 二、简单应用题 2 【正确答案】 第 1小题 步骤
8、 1：打开考生文件下的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： HScroll1 Max=Shape2 Width+ Shape2 Left-Shape1 Width VScroll1 Max=Shape2 Height+ Shape2 Top-Shapel Height Shape1 Left=HScroll1 Value Shape1 Top=VSctoll1 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 步骤 1：打开考生文 件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “
9、”，将问号 “?”改为正确的内容。 参考代码： Timer1 Enabled=True Timer1 Enabled=False d=d-Image1 Top t=t+1 步骤 2：按 F5键运行程序，先单击 “发射 ”按钮，计算完毕后单击 “存盘 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题：本题在窗体加载过程中初始化水平滚动条和垂直滚动条的 Min属性和 Max属性值， 以使其能与圆形 Shape1所能到达的左边界、右边界、上边界、下边界一致，其中： HScroll1 Max=Shape2 Width+Shape2 L
10、eft-Shape1 Width，VScroll1 Max=Shape2 Height+Shape2 TopShape1 Height。当水平或垂直滚动条移动时，通过在其 Change事件过程中设置 Shape1的 Left属性值或 Top属性值与滚动条的 Value属性值一致即可。 第 2小题：本题通过计时器来控制航天飞机移动。单击 “发射 ”按钮时肩动计时器(即 Timer1 Enabled=True)，并记录下此时航天飞机 (Image1)上部的坐标值(d=Image1 Top)；在计时器的 Timer事件过程中，每次让航天飞机向上移动 50的 a倍 (a为实现航天飞机加速移动的系数 )
11、，如果移动后航天飞机已全部进入云中(即 Image1 Top+Image1 Height =Image2 Top+Image2 Height-200)，则通过停止计时器 (即 Timer1 Enabled=False)来停止航天飞机上移。并将此时飞行距离 d(d=d-Image1 Top)显示在标签 Label1中， 飞行时间 (t*Timer1 Interva11000)显示在标签 Label2中。如果航天飞机还没全部进入云中，则加速系数增加0 1，并川变量 t记录一次飞行时间 (t=t+1)。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹下的工程文件 sjt5 vbp。 步骤
12、 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+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 考生编
13、写程序结束 以下程序将合并后的数组 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数组中。
