1、国家二级 VB机试（上机操作）模拟试卷 215及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画两个标签 (名称分别为 lblName和 1blAge，标题分别为 “姓名 ”和 “年龄 ”)、两个文本框 (名称分别为 txtName和 txtAge， Text属性均为空白 )和一个命令按钮 (名称为 cmdDisplay，标题为 “显示 ”)。然后编写命令按钮的 Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮 ，则在窗体上显示两个文本框中的内容，如图 2
2、32所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsjl vbp，窗体文件名为 vbsj1 fm。 (2)在名称为 F0nnl的窗体上画一个文本框，名称为 txtlnput，无初始内容；再画一个图片框，名称为 picOutput。请编写适当的事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容，运行时的窗体如图 2-33所示。程序中不能使用任何变量。注意：保存时必须存放在考生文件夹下，工程文件 名为 vbsi2 vbp，窗体文件名为 vbsj2 frm 二、简单应用题 2 (1)在考生文件夹下有一个上工程文件 t3
3、 vbp其功能是： 单击 “读数据 ”按钮，则把考生文件夹下 in3 dat文件中的 0 999之间的 100个整数读入数组 a中； 单击 “计算 ”按钮，则找出这 100个整数中所有水仙花数，并将它们的最大值与最小值分别显示住文本框 Text1、 Text2中。 (注：当一个数的值等于该数中的各位数字的立方和时，此数被成为水仙花数，如 153=13+53+33，所以 153就是一个水仙花数。 )在窗体义件中已经 给出了全部控性 (如图 2 150所示 )和 “读数据 ”命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写 “计算 ”命令按钮的事件过程。 注意：考生不得修改窗体文
4、件中已经存在的控件和程序，在结束程序运行前，必须进行 “计算 ”，且必须通过单击窗体右上角的 “关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4 vbp。请存窗体上画一个组合框，名称为 Cb1，并输入三个列表项： “3”、“7”、 “11”(列表项的顺序不限，们必须是这三个数字 )；画一个名为 Text1的文本框；再面一个标题为 “计算 ”、名称为 C1的命令按钮，如图 2 151所示。请编写适当的事件过程，使得程序运行时，在组合框中选定一个数字后，单击 “计算 ”按钮，则计算 5000以内能够被该数整除的所有数之和，并放入 Text1中。
5、最后，按原文件名存盘。 提示：由于计算结果较大，应使用艮整型变量。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。必须用窗体右上角的关闭按钮结束程序，否则无成绩。三、综合应用题 3 在考生文件夹下有一个上程文件 sjt5 vbp，在窗体上给 出了所有控件和不完整的程序，请去掉程序中的注释符，把程序 中的 ?改为正确的内容。本程序的功能是：如果单击 “取数 ”按钮，则把考生目录下的 in5 txt文件中的 15个姓名读到数纽 a中，并在窗体上显示这些姓名；当在 Text1中输入一个姓名，或一个姓氏后，如果单击 “查找 ”按钮，则进行查找，若找到，就把所有与
6、 Text1中相同的姓名或所有具有 Text1中姓氏的姓名显示在 Text2中 (如图 2 101所示 )：若末找到，则在 Text2中显示 “未找到 !”；若 Text1中没有查找内容，则在 Text2中显示 “未输入查找内容 !”。 注意：考生不得修改程序的其他部分和控件的属性，最后把修改后 的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 215答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按表3-19在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口，编写命令按钮的 Click事件过程。 参考代码
7、： Private Sub cmdDisplayClick() Print txtName Text ”，现年 ”一 txtAge Text ”“岁 ” End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按表 3 20在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub txtInputChange() picoutput Print txtInput Text End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【
8、正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp，在代码编辑窗口的指定位置编写 “计算 ”按钮 的单击事件过程。 参考代码： Private Sub Command2一 Click() Max=a(1) Min=a(1) For i=2 To 100 If isnarc(a(i)=True Then If a(i)Max Then Max； a(i) If a(i)键运行程序，先单击 “读数据 ”按钮，接着单击 “计算 ”按钮，然后单击窗体右上角的关闭按钮结束程序。 第 2小题 【操作步骤】 步骤 1：打开考生文件火下的奉题工程文件 sjt4 V
9、bp。 步骤2：在窗体 Form1中加入一个组合框、一个文本框和一个命令 按钮。分别设置它们的相关属性，其属性及值如表 3 81所示。步骤 3：双击窗体 Forml中的“计算 ”按钮，打开代码编辑窗口，输入如下代码： 参考代码： Private Sub C1一Click() Dim n As Integer， k As Integer， S As Long n=Val(Cbl Text) S=0 For k=n To 5000 If k n=Int(k n)Then s=s+k End If Next k Textl Text=s End Sub 步骤 4：按要求将文件保存至考生文件夹中。 步骤 5：按键键运行程序，从列表框中选抒一项，单击 “计算 ”按钮，单击程序右上角的关闭按钮结束程序。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的奉题工程文件 sjt5 vbp，打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为止确的内容。 参考代码： Ciose#1 n=Len(Textl Text) If Left(a(k)， n)=Textl Text Then C=C+” ”+a(k) TeXt2 TeXt=C 步骤 2：按要求将文件保存下考生文件夹中。
