1、国家二级 VB机试（上机操作）模拟试卷 199及答案与解析 一、基本操作题 1 请根据以下各小题的要求设汁 Visua1 Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml、标题为 “鼠标光标形状 ”的窗体上画一个名称为 Text1的文本框。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字 (Cross)形状。 注意：存盘时必须存放在考生文件夹下，工程义件名为 sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画两个标签，名称分别为 Label1、 Labe
2、l2，标题分别为“扦始位置 ”、 “选中的字符数 ”；画三个文奉框，名称分别为 Text1、 Text2、Text3，再画一个名称为 Commandl，标题为 “显示选中信息 ”的命令按钮。程序运行时，存 Text1中输入若干字符，并用鼠标选中一些字符后，单击 “显示选中信息 ”按钮，则把选中的第一个字符的顺序号显示在 Text2中，选中的字符个数显示在Text3中，如图 2 139所示。 要求：画出所有摔什，编写命令按钮的 Click事件过程。 注意：要求程序中小得使用变 量，事什过程中只能写两条语句，分别用于显示第一个字符的顺序号和显示选中的字符个数。存龠时必须存放在考生文件夹下，工程文件
3、名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 1)单击 “读数据 ”按钮，则把考生文件夹下 in3 dat文件中的 100个按升序排列的整数读入到数组 a中，同时显示在 Text1文本框中； 2)单击 “查找 ”按钮，则提示用户输入查找的数，并利用二分法存数组 a中查找该数，若查找成功，则在 Text2文本框中显示 该数存数组中的位置，否则显示查找失败。 提示：二分法查找的思路是，将金找值与有序数组的中间项元素进行比较，若相同则查找结束；否则判断查找值落在数组的上半部分还是下半部分，并继续在那一半的
4、数组中重复上述查找过程。 要求：请将窗体的标题设置为 “二分法查找 ”，并将 “查找 ”命令按钮的 Click事件过程中的注释符去掉，把 ?改为正确内容，以实现上述程序功能。如图 2 109所示的是运行时输入数值 68的查找结果。 注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个上程 义件 sjt4 vbp。运行程序，按下鼠标左键，并在窗体上拖动鼠标时，沿鼠标移动可在窗体上画出一系列圆，如图 2 110所示。给出的程序不完整，要求去掉程序中的注释符，把程序中的 ?改为止确的内容。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序
5、按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp。其窗体中有一个名称为 Text1的文本框数组，下标从 0开始。程序运行时，单击 “产生随机数 ”按钮。就会产生 10个 3位数的随机数，并放入 Textl数组中，如图 2 11 5(a)所示；单击 “重排数据 ”按钮，将把 Text1中的奇数移到前而，偶数移到后面，如图 2 115(b)所示。文件中已经给出了所有控件和部分程序。要求：请去掉程序中的注释符，把程序中的 ?改为止确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 提示：在 “重排数据 ”按钮的事件过程中
6、有对其算法的文字描述，请仔细阅读。 国家二级 VB机试（上机操作）模拟试卷 199答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建 “标准 EXE”工程，在窗体FormI中画一个文本框，如表 3 73设置文本框及窗体属性。步骤 2：按要求将文件保存至考生文件炎中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 74在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub CommandlC1ick() Text2=Textl SelStart+1 Text3=
7、Textl SelLength End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开本题工程文件 sjt3 vbp，在代码编辑窗口中，去掉程序中的注释符“”，将问号 “?”改为正确的内容。 参考代码： m=(low+high) 2 high=m1 low=m+1 Loop Until lowhigh If flag=1 Then 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开本题工程文件 sjt4 vbp，在代码编辑窗口中，去掉程序中的注释符“”，将问号 “?”改为正确的内容
8、。 参考代码： Dim Flag As Boolean Private Sub FormMouseMove(Button AsInteger, Shift As Integer I X As Single tY As Single) Circle(X， Y)， 300 Flag=False 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sit5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： j=9 temp=Textl(j) While(ij) If Textl(j)Mod 2=1 Then 步骤 2：按 要求将文件保存至考生文件夹中。
