1、国家二级 VB机试（上机操作）模拟试卷 106及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml，标题为 “考试 ”的窗体上画一个名称为 Combol、初始内容为空的下拉式组合框。下拉列表中有 “隶书 ”、 “宋体 ”和 “楷体 ”三个项目。运行后的窗体如图 3一 188所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sitl vbp，窗体文件名为 sitl frm。 (2)在名称为 Forml的窗体上画两个文本框，其名称分别为 Text1、 Text2，初始内容都为空，显示为三号字，且 T
2、ext1的初始状态为不可用；再画一个名称为 Command1、标题为 “开始 ”的命令按钮，如图 3189所示。要求：编写适当的事件过程，使得单击 “开始 ”按钮后， Text1文本框变为可用状态，且在 Text1文本框中输入字母串时， Text2文本框中用大写字母形式显示 Text1文本框中的内容。程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sit2 vbp，窗体文件名为 sit2 frm。 二、简单应用题 2 (1)在考 生文件夹下有一个工程文件 sit3 vbp。程序的功能是通过键盘向文本框中输入正整数。在 “除数 ”框架中选择一个
3、单选按钮，然后单击 “处理数据 ”按钮，将大于文本框中的正整数且能够被所选除数整除的 5个数添加到列表框 Ifistl中，如图 3-23所示。在窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sic4 vbp。程序运行后，单击 “开始 ”按钮 ，图片自上而下移动，同时滚动条的滑块随之移动，每 0 5秒移动一次。当图片顶端移动到距窗体的下边界的距离少于 200时，再回到窗体顶部，重新向下移动，如图 3 24所示。在窗体
4、文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框 Text1中输入一个大 于 2的偶数，并单击 “分解为 ”按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数 (一个偶数有时可以分解为多种素数的组合，例如 24可以分解为5和 19，也可以分解为 11和 13，要求取含有最小素数的组合，如图 3
5、 124所示 )。 要求编写 “分解为 ”按钮事件过程中 “考生编写程序开始 ”和 “考生编写程序结束 ”之间的代码，以实现上述功能。过程 IsPrime用来判断一个数是否为素数，如果是，返回值为 True，否则返回值为 False。注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且运行时在文本框中输入23456，单击 “分解为 ”按钮，将结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 106答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一 个 “标准 EXE”工程，按要求画出控件并设置
6、属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：打开代码编辑窗口，编写 Textl的 Change事件过程和命令按钮的单击事件过程。 参考代码： Private Sub Commandl Click() Textl Enabled=True End Sub PriVate Sub Textl Change() Text2 Text=UCase(Text1 Text) End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】
7、步骤 1：打开考生文件下的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Optionl Item(i)=True Then y=Val(Optionl(i) Caption) Do While i0 Then NsgBox“请输入偶数 !” Exit Sub End If For i=2 To n 2 If TSPrime(i)And Isprime(ni)Then Labe11 CaDtiOil=i Labe12 CalotiOFt=n一 i Exit For End If Next 步骤 2：按 键运行程序，在文本框中输入 23456，单击 “分解为 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。
