1、国家二级 VB机试（上机操作）模拟试卷 8及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 在名称为 Forml、标题为 ”鼠标光标形状 ”的窗体上画一个名称为 Textl的文本框。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头 (Arrow)形状；在窗体中其他位置处，鼠标光标为十字 (Cross)形状。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为sjtl1 frm。 2 在名称为 Forml的窗体上画两个标签，名称分别为 Labell、 Label2，标题
2、分别为 ”开始位置 ”、 ”选中的字符数 ”；画三个文本框，名称分别为 Textl、 Text2、 Text3，再画一个名称为 Commandl，标题为 ”显示选中信息 ”的命令按钮。程序运行时，在Textl中输入若干字符，并用鼠标选中一些字符后，单击 ”显示选中信息 ”按钮，则把选中的第一个字符的顺序号显示在 Text2中，选中的字符个数显示在 Text3中，如图 2-63所示。要求：画出所有控件，编写命令按钮的 Click事件过程。注意：要求程序中不得使用变量，事件过程 中只能写两条语句，分别用于显示第一个字符的顺序号和显示选中的字符个数。存盘时必须存放在考生文件夹下，工程文件名为sjt2
3、 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp，窗体上有一个矩形和一个圆，还有垂直和水平滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图 2-64(a)所示；滚动块在最右边时，圆靠在矩形的右边线 上，如图 2-64(b)所示。垂直滚动条的情况与此类似。 文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改
4、后的文件按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp。窗体中已经给出了所有控件，如图2-65所示。运行时，单击 ”发射 ”按钮，航天飞机图标将向上运动，速度逐渐加快，全部进入云中后则停止，并把飞行距离 (用坐标值表示 )、所用时间 (单位为秒 )分别显示在标签 Labell和 Label2中；单击 ”保存 ”按钮，则把飞行距离、所用时间存入考生文件夹下的 out4 txt文件中。 文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 5 在考生文件
5、夹下有一个工程文件 sjt5 vbp，其窗体上有三个标签、三个文本框和两个命令按钮，均使用默认名称。程序的功能是： 如果单击 ”读数据 ”命令按钮，则把考生文件夹下 in5 dat文件中两组已按升序方式排列的数 (每组 30个数 )分别读入数组 A和 B，并分别将它们显示在 Textl、 Text2中； 如果单击 ”合并 ”命令按钮，则将 A、 B两个数组合并为另一个按升序方式排列的数组 C，并将合并后数组C中的数据依升序方式显示在 Text3中。窗体中给出了所有控件 (如图 2-66所示 )以及 ”读数据 ”命令按钮的 Click事件过程，请完善 ”合并 ”命令按钮的 Click事件过程，使
6、其实现上述功能。注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行合并操作，且必须通过窗体右上角的 ”关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 8答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建 ”标准 EXE”工程，在窗体 Forml中画一个文本框，如表 3-32设置文本框及窗体属性。 步骤 2：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表 3-33在窗体中画出控件并设置其相关属性。 步骤 2：在代码编辑窗口，编写命令按钮的单击事件过程。参考代码： Pr
7、ivate Sub Commandl_Click( )Text2 =Text1 SelStart + 1Text3=Text1 SelLengthEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件下的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： HScrolll Max=Shape2 Width+Shape2 Left -Shapel Width VScrolll Nax=Shape2 t-Ieght+Shape2 Top -Shapel Height Sha
8、pel Left=HScrolll Value Shapel Top=VScrolll 步骤 2：按要求将文件保存至考生文件夹中。 4 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： Timer1 Enabled=True Timer1 Enabled=False d=d-Imagel Top t=t+ 1 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按 F5键运行程序，先单击 ”发射 ”按钮，计算完毕后单击 ”存盘 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 三、综合应
9、用题 5 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt5 vbp。 步骤 2：编写 ”合并 ”按钮的单击事件过程。 参考代码： private 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：按要求将文件保存至考生文件夹中。
