1、国家二级 VB 机试（上机操作）-试卷 22 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设汁 Visua1 Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml、标题为“鼠标光标形状”的窗体上画一个名称为 Text1 的文本框。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(Cross)形状。 注意：存盘时必须存放在考生文件夹下，工程义件名为 sjtlvbp，窗体文件名为 sjtlfrm。 (2)在名称为 Forml
2、的窗体上画两个标签，名称分别为 Label1、Label2，标题分别为“扦始位置”、“选中的字符数”；画三个文奉框，名称分别为 Text1、Text2、Text3，再画一个名称为 Commandl，标题为“显示选中信息”的命令按钮。程序运行时，存 Text1 中输入若干字符，并用鼠标选中一些字符后，单击“显示选中信息”按钮，则把选中的第一个字符的顺序号显示在 Text2 中，选中的字符个数显示在 Text3中，如图 2139 所示。 要求：画出所有摔什，编写命令按钮的 Click 事件过程。 注意：要求程序中小得使用变量，事什过程中只能写两条语句，分别用于显示第一个字符的顺序号和显示选中的字符
3、个数。存龠时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，其功能是：1)单击“读数据”按钮，则把考生文件夹下 in3dat 文件中的 100 个按升序排列的整数读入到数组 a 中，同时显示在 Text1 文本框中； 2)单击“查找”按钮，则提示用户输入查找的数，并利用二分法存数组 a 中查找该数，若查找成功，则在 Text2文本框中显示该数存数组中的位置，否则显示查找失败。 提示：二分法查找的思路是，将金找值与有序数组的中间项元素进行比
4、较，若相同则查找结束；否则判断查找值落在数组的上半部分还是下半部分，并继续在那一半的数组中重复上述查找过程。 要求：请将窗体的标题设置为“二分法查找”，并将“查找”命令按钮的 Click 事件过程中的注释符去掉，把?改为正确内容，以实现上述程序功能。如图 2109 所示的是运行时输入数值 68 的查找结果。 注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个上程义件 sjt4vbp。运行程序，按下鼠标左键，并在窗体上拖动鼠标时，沿鼠标移动可在窗体上画出一系列圆，如图 2110 所示。给出的程序不完整，要求去掉程序中的注释符，把程序中的?改为
5、止确的内容。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sit5vbp。其窗体中有一个名称为 Text1 的文本框数组，下标从 0 开始。程序运行时，单击“产生随机数”按钮。就会产生 10 个 3 位数的随机数，并放入 Textl 数组中，如图 211 5(a)所示；单击“重排数据”按钮，将把 Text1 中的奇数移到前而，偶数移到后面，如图2115(b)所示。文件中已经给出了所有控件和部分程序。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 22 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，
6、分数：2.00)1.请根据以下各小题的要求设汁 Visua1 Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml、标题为“鼠标光标形状”的窗体上画一个名称为 Text1 的文本框。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(Cross)形状。 注意：存盘时必须存放在考生文件夹下，工程义件名为 sjtlvbp，窗体文件名为 sjtlfrm。 (2)在名称为 Forml 的窗体上画两个标签，名称分别为 Label1、Label2，标题分别为“扦始位置”、“选中的字符数”；画三个文奉框，名称分别
7、为 Text1、Text2、Text3，再画一个名称为 Commandl，标题为“显示选中信息”的命令按钮。程序运行时，存 Text1 中输入若干字符，并用鼠标选中一些字符后，单击“显示选中信息”按钮，则把选中的第一个字符的顺序号显示在 Text2 中，选中的字符个数显示在 Text3中，如图 2139 所示。 要求：画出所有摔什，编写命令按钮的 Click 事件过程。 注意：要求程序中小得使用变量，事什过程中只能写两条语句，分别用于显示第一个字符的顺序号和显示选中的字符个数。存龠时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_正确答
8、案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建“标准 EXE”工程，在窗体 FormI 中画一个文本框，如表 373 设置文本框及窗体属性。 步骤 2：按要求将文件保存至考生文件炎中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，如表 374 在窗体中画出控件并设置其相关属性。)解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，其功能是：1)单击“读数据”按钮，则把考生文件夹下 in3dat 文件中的 100 个按升序排列的整数读入到数组 a 中，同时显示在 Text1 文本框中； 2)单击“查找”按钮
9、，则提示用户输入查找的数，并利用二分法存数组 a 中查找该数，若查找成功，则在 Text2文本框中显示该数存数组中的位置，否则显示查找失败。 提示：二分法查找的思路是，将金找值与有序数组的中间项元素进行比较，若相同则查找结束；否则判断查找值落在数组的上半部分还是下半部分，并继续在那一半的数组中重复上述查找过程。 要求：请将窗体的标题设置为“二分法查找”，并将“查找”命令按钮的 Click 事件过程中的注释符去掉，把?改为正确内容，以实现上述程序功能。如图 2109 所示的是运行时输入数值 68 的查找结果。 注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。 (2)在
10、考生文件夹下有一个上程义件 sjt4vbp。运行程序，按下鼠标左键，并在窗体上拖动鼠标时，沿鼠标移动可在窗体上画出一系列圆，如图 2110 所示。给出的程序不完整，要求去掉程序中的注释符，把程序中的?改为止确的内容。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开本题工程文件 sjt3vbp，在代码编辑窗口中，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： m=(low+high)2 high=m1 low=m+1 Loop Until lowhigh If flag=1 Then 步骤 2：按要求将文件保存至考生文件夹中。第 2 小题
11、【操作步骤】 步骤 1：打开本题工程文件 sjt4vbp，在代码编辑窗口中，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： 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：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sit5vbp。其窗体中有一个名称为 Text1 的文本框数组，下标从 0 开始。程序运行时，单击“产生随机数”按钮。就会产生 10 个 3 位数的随机数，并放入 Textl 数组中，如图 211 5(a)所示；单击“重排数据”按钮，将把 Text1 中的奇数移到前而，偶数移到后面，如图2115(b)所示。文件中已经给出了所有控件和部分程序。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sit5vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： j=9 temp=Textl(j) While(i解析：
