1、国家二级 VB机试（上机操作）模拟试卷 2及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上画两个名称分别为 Frame1、 Frame2的框架，标题分别为 ”字号 ”、 ”修饰 ”；在 Frame1中画两个单选按钮，名称分别为 Optionl、 Option2，标题分别为 ”10号字 ”、 ”20号字 ”，且标题显示在单选按钮的左边；在 Frame2中画一个名称为 Checkl的复选框，标题为 ”下划线 ”。运行后的窗体如图 2-34所示。注意：存盘时必 须存放在考生文件夹下，工程文件名为 sjtl
2、 vbp，窗体文件名为 sjt1 frm。2 在名称为 Forml的窗体上从上到下画两个文本框，名称分别为 Textl、 Text2；再画一个命令按钮，名称为 Commandl，标题为 ”选中字符数是 ”。程序运行时，在Textl中输入若干字符，选中部分内容后，单击 ”选中字符数是 ”按钮，则在 Text2中显示选中的字符个数 (如图 2-35所示 )。请编写按钮的 Click事件过程。 要求：程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名 为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 s
3、jt3 vbp。程序运行后，单击 ”读入数据 ”按钮，可把考生文件夹下 in3 txt文件中的所有英文单词读入，并显示在 Textl文本框中；单击 ”插入列表框 ”按钮，则按顺序把每个单词作为一项添加到 Listl列表框中(如图 2-36所示 )。在 in3 txt文件中每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容 ，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。4 在考生文件夹下有一个工程文件 sjt4 vbp，窗体上已经画出所有控
4、件，如图 2-37所示。在运行时，如果单击 ”开始 ”按钮，则窗体上的汽车图标每 0 1秒向右移动一次 (初始状态下不移动 )；如果单击 ”停止 ”按钮，则停止移动。请完成以下工作： 设置适当控件的适当属性，使得汽车图标每 0 1秒向右移动一次，而初始状态下不移动； 请去掉程序中的注释符，把程序中的 ?改为正确的内容； 为两个命令按钮编写适当的事件过程。最 后以原文件名存盘。注意：不得修改已经给出的程序。编写的事件过程中不能使用变量，每个事件过程中只能有一条语句。三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框
5、Textl中输入一个大于 2的偶数，并单击 ”分解为 ”按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数 (一个偶数有时可以分解为多种素数的组合，例如 24可以分解为5和 19，也可以分解为 11和 13，要求取含有最小素数的组合，如图 2-38所示 )。要求编写 ”分解为 ”按钮事件过程中 ”考生编写程序开始 ”和 ”考生编写程序结束 ”之间的代码，以实现上述功能。过程 IsPrime用来判断一个数是否为素数，如果是，返回值为 True，否则返回值为 False。注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且运行时在文本框中输入 23456，
6、单击 ”分解为 ”按钮，将结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 2答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表 3-18在窗体中画出控件并设置其相关属性。 步骤 2：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表 3-19所列在窗体 Forml中画出控件并设置它们的属性。 步骤 2：打开代码编辑窗口，编写以下事件过程：参考代码： Private Sub Commandl_Click( )Text2 Text=Forml Textl
7、 SelLengthEnd Sub 二、简单应用题 3 【正确答案】 步骤 1：打开考生文 件夹下的本题工程文件 sjt3 vbp，打开代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： st=st ch c=Mid(st， k， 1) word=“ 步骤 2：按要求将文件保存至考生文件夹中。 4 【正确答案】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，将计时器Timer1的 Enabled属性设置为 False， Interval属性设置为 100。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容并编写两个
8、命令按钮 的单击事件过程。 参考代码： Private Sub Cl_Click( ) Timer1 Enabled=True End Sub Private Sub C2_Click( ) Timer1 Enabled=Fal se End Sub private Sub Timerl_Timer( ) P1 Move P1 Left+2 0 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： Dim i As Integer Dim n As Integer n=Val(Textl Text) If n Mod 2 0 Then MsgBox”请输入偶数 !” Exit Sub End If For i=3 To n 2 If IsPrime(i) And IsPrime(n-i) Then Label1 Caption=i Label2 Caption=n-i Exit For EndIf Next 步骤 2：按要求将文件保存 至考生文件夹中。 步骤 3：按 F5键运行程序，在文本框中输入 23456，单击 ”分解为 ”按钮。
