1、国家二级 VB 机试（上机操作）-试卷 27 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1 的窗体上添加一个名称为 Label1 的标签，标签的宽和高分别为 2000、300，有边框，并利用属性窗口设置适当的属性，使其标题“等级考试”居中显示，并使标签的外观如图所示。 注意：存盘时必须存放在考生文件夹下，上程文件名保存为 sjtlvbp，窗体文件名保存为sjt1frm。 (2)在名称为 Form1 的窗体上添加一个名称为 Image1 的图像框，有边框，并可以自动涮整装入图片的大小以适应图像框的尺寸；再添加三个命令
2、按钮，名称分别为Commahd1、Command2、Command3，标题分别为“红桃”、“黑桃”、“清除”。在考生文件夹下有两个图标文件，其名称分别为“Misc34ico”和“Misc37ico”。程序运行时，单击“黑桃”按钮，则在图像框中显示黑桃图案(Misc37ieo 文件)；单击“红桃”按钮，则在图像框中显示红桃图案(Misc34ico 文件，如图所示)；单击“清除”按钮则清除图像框中的图案，请编写相应控件的 Click 事件过程，实现上述功能。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为
3、 sjt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。其窗体文件上有一个标题为“得分”的框架，在框架中有一个名称为 Text1 的文本框数组，含 6 个文本框控件；文本框 Text2 用米输入难度系数。程序运行时，在左边的 6 个文本框中输入 6 个得分，输入难度系数后，单击“计算分数”按钮，则可计算出最后得分并显示在文本框 Text3 中(如图所示)。 计算方法： 去掉 1 个最高得分和 1 个最低得分，求剩下得分的平均分，再乘以 3，再乘以雉度系数。最后结果保留到第 2 位小数，不四舍五入。 注意：文件中
4、已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 st4vbp。窗体上的控什如图所示。程序运行时，若选中“累加”单选按钮，则“10”、“12”菜单项不可用，若选中“阶乘”单选按钮，则“1000”、“2000”菜单项不可用(如图所示)。选中菜单中的一个菜单项后，单击“计算”按钮，则相应的计算结果在文本框中显示(例如，选中“累加”和“2000”，则计算 1232000，选中“阶乘”和“10”，则计算 10!)。单击“存盘”按钮则把文本框中的结果
5、保存到考生文件夹下的 out4dat 文件中。 要求：编写“计算”按钮的 Click 事件过程。 注意：不得修改已经存在的程序，拒结束程序运行之前，必须用“存盘”按钮存储计箅结果，否则尤成绩。最后，程序按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件件下有一个工程文件 sjt5vbp。其功能是产生并显示一个数列的前 n 项。数列广：牛的规律是：数列的前 2 项是小于 10 的正整数，将此两数相乘，若乘积10，则以此乘积作为数列的笫 3 项；着乘积10，则以乘积的十佗数为数列的第 3 项，以乘积的个位数为数列的第 4 项。再用数列的最后两项相乘，用
6、上述规则形成后面的项，直至产生了第 n 项。窗体上部从左到右 3 个文本框的名称分别为Text1、Text2、Text3，窗体上部的文本框名称为 Text4。程序运行时，在 Text1、Text2 中输人数列的前两项，Text3 中输入要产生的项数 n，单击“计算”按钮则产生此数列的前 n 项，并显示在 Text4 中。如图所示。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 27 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1 的窗体上添加一个名称为 Label1 的标签，标签的宽和高分别为 2000、
7、300，有边框，并利用属性窗口设置适当的属性，使其标题“等级考试”居中显示，并使标签的外观如图所示。 注意：存盘时必须存放在考生文件夹下，上程文件名保存为 sjtlvbp，窗体文件名保存为sjt1frm。 (2)在名称为 Form1 的窗体上添加一个名称为 Image1 的图像框，有边框，并可以自动涮整装入图片的大小以适应图像框的尺寸；再添加三个命令按钮，名称分别为Commahd1、Command2、Command3，标题分别为“红桃”、“黑桃”、“清除”。在考生文件夹下有两个图标文件，其名称分别为“Misc34ico”和“Misc37ico”。程序运行时，单击“黑桃”按钮，则在图像框中显示黑
8、桃图案(Misc37ieo 文件)；单击“红桃”按钮，则在图像框中显示红桃图案(Misc34ico 文件，如图所示)；单击“清除”按钮则清除图像框中的图案，请编写相应控件的 Click 事件过程，实现上述功能。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立标签控件并设置其属性，如图 332 所示。 程序中用件的控件及属性见表 347。 步骤 2：调试并运行程序，关闭程序后按题目要
9、求存盘。 (2)【操作步骤】 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表 348。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。其窗体文件上有一个标题为“得分”的框架，在框架中有一个名称为 Text1 的文本框数组，含 6 个文本框控件；文本框 Text2 用米输入难度系数。程序运行时，在左边的 6 个文本框中输入 6 个得分，输入难度系数后，单击“计算分数”按钮，则可计算出最后得分并显示在文本框 Text3 中(如图所示)。 计算方法： 去掉 1 个最高得分和 1 个最低得分，求剩下得分的平均
10、分，再乘以 3，再乘以雉度系数。最后结果保留到第 2 位小数，不四舍五入。 注意：文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 st4vbp。窗体上的控什如图所示。程序运行时，若选中“累加”单选按钮，则“10”、“12”菜单项不可用，若选中“阶乘”单选按钮，则“1000”、“2000”菜单项不可用(如图所示)。选中菜单中的一个菜单项后，单击“计算”按钮，则相应的计算结果在文本框中显示(例如，选中“累加”和“2000”，则计算 12
11、32000，选中“阶乘”和“10”，则计算 10!)。单击“存盘”按钮则把文本框中的结果保存到考生文件夹下的 out4dat 文件中。 要求：编写“计算”按钮的 Click 事件过程。 注意：不得修改已经存在的程序，拒结束程序运行之前，必须用“存盘”按钮存储计箅结果，否则尤成绩。最后，程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打丌代码编辑窗口，去掉程序中的汴释符“”，将问号改为正确的内容。 参考答案 Private Sub Commandlclick() Dim k As Integer，S As Single，
12、a As Single，b As Single aVal(Text1(0)Text)将第一个文本框的值作为最大值赋予 a sa ba将第一个数作为最小值赋予 b For k1 To 5剩余文本框作为循环次数的条件 ssVal(Text1(k)Text) If aVal(Text1(k)Text)Then 取出每个文本框的值与最大值比较，求最大值 aVal(Text1(k)Text) End If If bVal(Text1(k)Text)Then bVal(Text1(k)Text) End If Next k s(sab)4 根据要求去掉一个最高分和一个最低分后求四科的平均分 ss*3*Va
13、l(Text2Text) 根据题意此处应填平均分 Text3Int(s*100)100 Int(N)是求小于或等于N 的最大整数，同时将最后结果显示在 Text3 上 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件； 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub Command1_Click() Dim i As Integer Dim j As Integer DimmAs Long Dim sumAs Long m1 If n10 Or n12 Then通过判断 n 的值，可确定
14、使用什么操作 For i2 To n m=i*m Next i求 n 的阶乘 Text1Textm End If sum0 If n2000 Or n1000 Then For j1 To n sumsumj Next j求 l 到 n 的和 Text1Textsum End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件件下有一个工程文件 sjt5vbp。其功能是产生并显示一个数列的前 n 项。数列广：牛的规律是：数列的前 2 项是小于 10 的正整数，将此两数相乘，若乘积10，则以此乘积作为数列的
15、笫 3 项；着乘积10，则以乘积的十佗数为数列的第 3 项，以乘积的个位数为数列的第 4 项。再用数列的最后两项相乘，用上述规则形成后面的项，直至产生了第 n 项。窗体上部从左到右 3 个文本框的名称分别为Text1、Text2、Text3，窗体上部的文本框名称为 Text4。程序运行时，在 Text1、Text2 中输人数列的前两项，Text3 中输入要产生的项数 n，单击“计算”按钮则产生此数列的前 n 项，并显示在 Text4 中。如图所示。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改
16、为正确的内容。 参考答案 Private Sub Command1C1ick() Text4“ aVal(Text1) bVal(Text2) nVal(Text3) Text4Text4a“&b 文本框 Text4 中第二项的内容一定是 b k2 Do While kn ca*b kk1 If C10 Then判断乘积是否小于 10 Text4Text4“C若小于 10则直接接到 Text4 文本末尾 ab将 b 赋给 a 成为下二次循环的前一项 bc将 c 作为下一次循环的后一项 Else dC10当 C 大于 10，则取整 Text4Text4“d ad将十位数作为下一次循环的前一项 kk1 If kn Then 当 kn 时，则数列数已够，不用求下一项 dc Mod 10 Text4Text4“d bd 将余数作为下一次循环的后一项 End If End If Loop End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：
