1、国家二级 VB机试（上机操作）模拟试卷 177及答案与解析 一、基本操作题 1 请根据以下各小题的要求设汁 Visual Basic应用程序 (包括界而和代码 )。 (1)存名称为 Forml的窗体上画一个名称为 CmdChange、标题为 “改变颜色 ”的命令按钮，窗体标题为 “设置窗体背景色 ”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色 (&HFF&)。运行程序后的窗体如图 2 53所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须在放存考生文件夹下，工程文件名为 vbsj 1 vbp，窗 体文件名为 vbsIl_frm。 (2)在名称为 Forml的
2、窝体上画一个命令按钮和一个垂直滚动条，其名称分别为 Cmdl(标题为 “设置 ”)和 Vsbl，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性： Max=窗体高度 Min=0 LargeChange=50 SmallChange=10 如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如图 2 54所示。 要求：不得使用任何变犀。 注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsj2 vbp，窗体 文件名为 vbsj2.frm。二、简单应用题 2 (1)在考生文件夹下有一个上工程文件 t3 vbp其功能是： 单击 “读数据 ”按
3、钮，则把考生文件夹下 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 在考生文件夹下有一个工程文件 sit5 vbp，窗体如图 2 25所示。运行程序时，从数据文件中读取学生的成绩 (均为整数 )。要求编写程序，统计总人数，并统计不及格、 60 69、 70 79、 80 89及 90 100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击 “保存 ”按钮，保存统计结果。 注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中
6、，再按 “保存 ”按钮保存数据，否则无成绩。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 177答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中画一个命令按钮，设置相关属性，其属件及值如表 3 32所示。步骤 2：打开代码编辑窗口，编写按钮的 Click事件过程中。 参考代码： Private Sub cmdChangeClick() BackColot= HFF& End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准
7、EXE”工程，按表 3-33在窗体中画出控件并设置其相关属性。 步 骤 2：打开代码编辑窗口，编写水平滚动条的 Change事件过程。 参考代码： Private Sub Cmdl C1ick() Vsbl Max=Forml Height： Vsbl MiI“1=0 Vsbl LarqeChanqe=50 Vsbl $mallChange=10 E13 d Sub Privat e Sub VsblChange() Prilnt Vsbl ValLle End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步 骤 1：打开考生
8、文件夹下的本题工程文件 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 Vbp。 步骤2：在窗体 Form1中加入一个组合框、一个
9、文本框和一个命令按钮。分别设置它们的相关属性，其属性及值如表 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：按键键运行程序，从列表框中选抒一项，单击 “计算
10、”按钮，单击程序右上角的关闭按钮结束程序。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit5 vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： Textl Text=n count1=0 count2=0 count3=0 count4=0 count5=0 count6=0 For i=1 To n Y=Int(arr(i) 10) Select Case Y Case 1 2 3 t 4 l 5 countl=countl+1 Case 6 count2=count2+1 Case 7 count3=count3+1 Case 8 count4=count4+1 Case 9， 10 count5=count5+1 End Select Next Text2 Text=courtt1 Text3 Text=count2 Text4 Text=count3 Text5 Text=count4 Text6 Text=count5 步骤 2：按 键运行程序，先单击 “统计 ”按钮，冉单击 “保存 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。
