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