1、国家二级 VB机试（上机操作）模拟试卷 64及答案与解析 一、基本操作题 0 请根据以下各小题的要求设计 visual Basic应用程序 (包括界面和代码 )。 1 在名称为 Form1的窗体上画两个名称分别为 Frame1、 Frame2的框架，标题分别为 “字号 ”、 “修饰 ”；在 Frame1中画两个单选按钮，名称分别为 Option1、Option2，标题分别为 “10号字 ”、 “20号字 ”，且标题显示在单选按钮的左边；在Frame2中画一个名称为 Check1的复选框，标题为 “下划线 ”。运行后的窗体如图 3-120所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为
2、sjt1 vbp，窗体文件名为 sjt1 frm。 2 在名称为。 Form1的窗体上从上到下画两个文本框，名称分别为 Text1、 Text2；再画一个命令按钮，名称为 Command1，标题为 “选中字符数是 ”。程序运行时，在Text1中输入若干字符，选中部分内容后，单击 “选中字符数是 ”按钮，则在 Text2中显示选中的字符个数 (如图 3-121所示 )。请编写按钮的 Click事件过程。 要求：程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生 文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在考生文件夹下有一
3、个工程文件 sjt3 vbp。程序运行后，单击 “读入数据 ”按钮，可把考生文件夹下 in3 txt文件中的所有英文单词读入，并显示在 Text1文本框中；单击 “插入列表框 ”按钮，则按顺序把每个单词作为一项添加到 List1列表框中(如图 3-122所示 )。在 in3 txt文件中每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。 要求：请去掉程序中的注释符， 把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 4 在考生文件夹下有一个工程文件 sjt4 vbp，
4、窗体上已经画出所有控件，如图 3-123所示。在运行时，如果单击 “开始 ”按钮，则窗体上的汽车图标每 0 1秒向右移动一次 (初始状态下不移动 )；如果单击 “停止 ”按钮，则停止移动。 请完成以下工作： 设置适当控件的适当属性，使得汽车图标每 0 1秒向右移动一次，而初始状态下不移动； 请去掉程序中的注释符，把程序中的 ?改为正确的内容； 为 两个命令按钮编写适当的事件过程。最后以原文件名存盘。 注意：不得修改已经给出的程序。编写的事件过程中不能使用变量，每个事件过程中只能有一条语句。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp。在窗体文件中已经给出了全部控件及部分
5、程序。程序运行时，在文本框 Text1中输入一个大于 2的偶数，并单击 “分解为 ”按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数 (一个偶数有时可以分解为多种素数的组合，例如 24可以分解为5和 19，也可以分解为 11和 13，要求取 含有最小素数的组合，如图 3-124所示 )。要求编写 “分解为 ”按钮事件过程中 “考生编写程序开始 ”和 “考生编写程序结束 ”之间的代码，以实现上述功能。过程 IsPrime用来判断一个数是否为素数，如果是，返回值为 True，否则返回值为 False。 注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且
6、运行时在文本框中输入23456，单击 “分解为 ”按钮，将结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 64答案与解析 一、基本操作题 1 【正确答案 】 审题分析 本题只需按题目在窗体中画出控件，并设置相关属性即可。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 框架、焦点和 Tab顺序、选择控件。 2 【正确答案】 审题分析 要在 Text2中显示 Text1中选中的字符个数，需编写语句将 Text1的 SelLength属性返回值赋值给 Te
7、xt2。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，按要求画出控 件并设置属性， 步骤 2：打开代码编辑窗口，编写以下事件过程： 参考代码： Private Sub Command1_Click() Text2 Text=Forrn1 Text1 SelLength End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 文本控件。 二、简单应用题 3 【正确答案】 审题分析 本题在 “读入数据 ”按钮的单击事件中，首先将 in3 txt文件以 Input方 式打开，然后利用 Do循环依次读入文件中的每一个数据，在每一次循环中读入文件中的一个数据并连接至变量 st中，循
8、环结束后 st的值就是文件中所有单词连接而成的字符串。 在 “插入列表框 ”按钮的单击事件中，以空格为单词分隔依据找出每个单词，然后将单词插入列表框中，清空变量 word准备继续寻找下一个单词。 操作步骤 步骤 1：打开考生文件夹下的工程文件 sjt3 vbp，打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： st=st ch c=Mid(st， k， 1) WOrd=“ “ 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 Do循环和 While循环、常用内部函数。 4 【正确答案】 审题分析 计时器只在设计时可见，计时器是否启用由其 Enabled
9、属性设置，值可取 True或 False。启用后由 Interval属性设置间隔多长时间触发一次其 Timer事件， Interval属性的单位为毫秒，缺省值为 0，此时计时器不启用。 Timer1用于控制汽车行驶，每触发一次 Timer1的 timer事 件，汽车向右移动20，即 P1 Move P1 Left+20。 操作步骤 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，将计时器 timer1的Enabled属性设置为 False， Interval属性设置为 100。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容并编写两个命令按钮的单
10、击事件过程。 参考代码： Private Sub C1_Click() Timer1 Enabled=True End Sub Private Sub C2_Click() Timer1 Enabled=False End Sub Private Sub Timer1_Timer() P1 Move P1 Left+20 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 计时器。 三、综合应用题 5 【正确答案】 审题分析 本题程序设计思路：两个整数之和为 n的组合有： 1和 n-1、 2和 n-2i 和 n-i，在 For循环中按前一个加数由小到 大的顺序，依次通过调用函
11、数 IsPrime来判断每个组合中的两个加数是否均为素数，第一个找到的素数组合中即含有能够分解出的最小素数。由于 1不是素数，故循环变量的初值从 2开始；由于 i和 n-i的组合与n-i和 i组合在本题中可被视为相同组合，故循环变量的终值设定为 n 2即可。 操作步骤 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： Dim i As Integer Dim n As Integer n=Val(Text1 Text) If n Mod 20 Then MsgBox“请输入偶数 !“ Exit Sub End If For i=2 To n 2 If IsPrime(i) And IsPrime(ni) Then Label1 CaDtion=i Label2 CaDtion=ni Exit For End If Next 步骤 2：按 键运行程序，在文本框中输入 23456，单击 “分解为 ”按钮 。 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 For循环结构、 Sub过程和函数过程。
