1、国家二级 VB机试（上机操作）模拟试卷 110及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 CmdChange、标题为 “改变颜色 ”的命令按钮，窗体标题为 “设置窗体背景色 ”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色 (&HFF&)。运行程序后的窗体如图 3-53所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 vbsj1 vbp，窗体文 件名为 vbsj1 frm。 (2)在名称为。Forml的窗
2、体上画一个命令按钮和一个垂直滚动条，其名称分别为 Cmdl(标题为 “设置 ”)和 Vsbl，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性： Max=窗体高度 Min=0 LargeChange=50 SmallChange=10如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如 图 3-54所示。 要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsj2 vbp，窗体文件名 为vbs j2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sit3 vbp，其功能是： 单击 “读数据 ”
3、按钮，则把考生文件夹下 in3 dat文件中的 0 999之间的 100个整数读入数组 a中： 单击 “计算 ”按钮，则找出这 100个整数巾所有水仙花数，并将它们的最大值与最小值分别显示在文本框 Text1、 Text2中。 (注：当一个数的值等于该数中的各位数字的立方和时，此数被成为水仙花数，如 153=13+53+33，所以 153就是一个水仙花数。 )在窗体文件中已经给出了全部控件 (如图 3一 150所示 )和 “读数据 ”命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写 “计算 ”命令按钮的事件过程。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行
4、前，必须进行 “计算 ”，且必须通过单击窗体右上角的 “关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。请在窗体上画一个组合框，名称为 Cbl，并输入三个列表项： “3”、 “7”、 “11”(列表项的顺序不限，但必须是这三个数字 )；画一个名为 Text1的文本框；再画一个标题为 “计算 ”、名称为 Cl的命令按钮，如图 3 151所示。请编写适当的事件过程，使得程序运行时，在组合框中选定一个数字后，单击 “计算 ”按钮，则计算 5000以内能够被该数整除的所有数之和，并放入 Textl中。最后，按原文件名存盘。提示：由于计
5、算结果较大，应使用长整型变量。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。必须用窗体右上角的关闭按钮结束程序，否则无成绩。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，在窗体上给出了所有控件和不完整的程序，请去掉程序 中的注释符，把程序中的 ?改为正确的内容。本程序的功能是：如果单击 “取数 ”按钮，则把考生目录下的 in5 txt文件中的 15个姓名读到数组 a中，并在窗体上显示这些姓名；当在 Textl中输入一个姓名，或一个姓氏后，如果单击 “查找 ”按钮，则进行查找，若找到，就把所有与 Textl中相同的姓名或所有具有 T
6、extl中姓氏的姓名显示在 Text2中 (如图 3 101所示 )；若未找到，则在 Text2中显示 “未找到 !”；若 Textl中没有查找内容，则在 Text2中显示 “未输入查找内容 !”。注意：考生不得修改程序的其他部分和控件的属性，最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 110答案与解析 一、基本操作题 1 【正确答案】 第 1小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，在窗体Forml中画一个命令按钮，设置相关属性，其属性及值如表 4 32所示。步骤 2：打开代码编辑窗口，编写按钮的 Click事件过程中。 参考代码： Priva
7、te Sub cmdChange Click() BaCkC010r=HFF End Sub步骤 3：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，按表 4 33在窗体中画出控件 并设置其相关属性。 步骤 2：打开代码编辑窗口，编写水平滚动条的 Change事件过程。 参考代码： Prirate Sub Cmdl C1iCk() VSbl Max=Forml Height VSbl Min=0 VSbl Large CheChanqe=5 0 VSbl SmallChange=10End SubPrivate Sub Vsbl Change()
8、 Print VSbl ValueEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步 骤】 步骤 1：打开考生文件夹下的工程文件 sit3 vbp，在代码编辑窗口的指定位置编写“计算 ”按钮的单击事件过程。 参考代码： private Sub Command2 C1 ick() Max=a(1) Nin=a(1) For i=2 To 100 If iSrlaEc(a(i)=True Then If a(i)Nax Then Nax=a(i) If a(i)键运行程序，先单击 “读数据 ”按钮，接着单击 “计算 ”按钮，然后单击窗体
9、右上角的关闭按钮结束程序。 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 04 vbp。 步骤 2：在窗体 Forml中按要求画出控件并设置属性。 步骤 3：双击窗体 Forml中的 “计算 ”按钮，打开代码编辑窗口，输入如下代码： 参考代码： Prirate Sub C1 C2iCk() Dim rl As Integer， k As Tnteger， S As Long n=Val(Cb1 Text) S=0 For k=n To 5000 If k Mod n=0 Then s=s+k Encl If Next k Text1 Text=S End Sub 步骤 4：按要求将文件保存至考生文件夹中。 步骤 5：按 键运行程序，从列表框中选择一项，单击 “计算 ”按钮，单击程序右上角的关闭按钮结束程序。 三、综合应用题 3 【正确答案】 【操作步 骤】 步骤 1：打开考生文件夹中的本题工程文件 sjr5 vbp，打开代码编辑窗口，去掉程序中的注释符 “*”，将问号 “?”改为正确的内容。 参考代码： Close#1 n=Len(Text1 Text) If Left(a(k)， n)=Text1 Text Then c=C+“ ”+a(k) Text2 Text=C 步骤 2：按要求将文件保存至考生文件夹中。
