1、国家二级 VB机试（上机操作）模拟试卷 157及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 Label1的标签，标签的宽和高分别为 2000、 300，有边框，并利用属性窗口设置适当的属性，使其标题 “等级考试 ”居中显示，并使标签的外观如图所示。 注意：存盘时必须存放在考生文件夹下，上程文件名保存为 sjtl vbp，窗体文件名保存为 sjt1 frm。(2)在名称为 Form1的窗体上添加一个名称为 Image1的图像框，有边框，并可以自动涮整装入图片的大小以适应图像框的尺寸；再添 加三个命令按钮，名称分别为 Commahd1、 Command2、 C
2、ommand3，标题分别为 “红桃 ”、 “黑桃 ”、 “清除 ”。在考生文件夹下有两个图标文件，其名称分别为 “Misc34 ico”和 “Misc37 ico”。程序运行时，单击 “黑桃 ”按钮，则在图像框中显示黑桃图案 (Misc37 ieo文件 )；单击 “红桃 ”按钮，则在图像框中显示红桃图案(Misc34 ico文件，如图所示 )；单击 “清除 ”按钮则清除图像框中的图案，请编写相应控件的 Click事件过程，实现上述功能。 注意：要求程序中不得使用变量，每个事件过程 中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为sjt2 vbp，窗体文件名保存为 sjt2 fr
3、m。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。其窗体文件上有一个标题为 “得分 ”的框架，在框架中有一个名称为 Text1的文本框数组，含 6个文本框控件；文本框Text2用米输入难度系数。程序运行时，在左边的 6个文本框中输入 6个得分，输入难度系数后，单击 “计算分数 ”按钮，则可计算出最后得分并显示在文本框 Text3中 (如图所示 )。 计算方法： 去掉 1个最高得分和 1个最 低得分，求剩下得分的平均分，再乘以 3，再乘以雉度系数。最后结果保留到第 2位小数，不四舍五入。 注意：文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程
4、序中的 ?改为正确的内容，考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 st4 vbp。窗体上的控什如图所示。程序运行时，若选中 “累加 ”单选按钮，则 “10”、 “12”菜单项不可用，若选中 “阶乘 ”单选按钮，则“1000”、 “2000”菜单项不可用 (如图所示 )。选中菜单中的一 个菜单项后，单击 “计算 ”按钮，则相应的计算结果在文本框中显示 (例如，选中 “累加 ”和 “2000”，则计算1 2 3 2000，选中 “阶乘 ”和 “10”，则计算 10!)。单击 “存盘 ”按钮则把文本框中的结果保存到考生文件夹
5、下的 out4 dat文件中。 要求：编写 “计算 ”按钮的Click事件过程。 注意：不得修改已经存在的程序，拒结束程序运行之前，必须用“存盘 ”按钮存储计箅结果，否则尤成绩。最后，程序按原文件名存盘。三、综合应用题 3 在考生文件件下有一个工程文件 sjt5 vbp。其功能是产生并显示一个数 列的前 n项。数列广：牛的规律是：数列的前 2项是小于 10的正整数，将此两数相乘，若乘积 10，则以此乘积作为数列的笫 3项；着乘积 10，则以乘积的十佗数为数列的第 3项，以乘积的个位数为数列的第 4项。再用数列的最后两项相乘，用上述规则形成后面的项，直至产生了第 n项。窗体上部从左到右 3个文本
6、框的名称分别为Text1、 Text2、 Text3，窗体上部的文本框名称为 Text4。程序运行时，在 Text1、Text2中输人数列的前两项， Text3中输入要产生的项数 n，单击 “计算 ”按钮则产生此数列的前 n项，并显示在 Text4中。如图所示。已经给出了伞部控件，但程序小完整，请去掉程序中的生释符，把程序中的 ?改为止确的内容。 注意：不得修改原有程序和控什的属性。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 157答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立标签控件并设置其属性，如图
7、 3 32所示。程序中用件的控件及属性见表 3 47。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表 3 48。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub Command1_Click() Image1 Picture LoadPicture(App path “ MiSC 34 iCO“)加载图片 End Sub Private Sub Command2_Click() Imagel Picture LoadPicture(App path “
8、Misc37 ico“) End Sub Private Sub Command3_Click() Set Image1 Picture Nothing清除 Imagel中的图片 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1)【操 作步骤】 步骤 1：打开本题工程文件。 步骤 2：打丌代码编辑窗口，去掉程序中的汴释符 “”，将问号改为正确的内容。 参考答案 Private Sub Commandlclick() Dim k As Integer， S As Single， a As Single， b As Single a Va
9、l(Text1(0) Text)将第一个文本框的值作为最大值赋予 a s a b a将第一个数作为最小值赋予 b For k 1 To 5剩余文 本框作为循环次数的条件 s s Val(Text1(k) Text) If a Val(Text1(k) Text)Then 取出每个文本框的值与最大值比较，求最大值 a Val(Text1(k) Text) End If If b Val(Text1(k) Text)Then b Val(Text1(k) Text) End If Next k s (s a b) 4 根据要求去掉一个最高分和一个最低分后求四科的平均 分 s s*3*Val(Tex
10、t2 Text) 根据题意此处应填平均分 Text3 Int(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 m 1 If n 10 Or n 12 Then通过判断 n的值，可确定使
11、用什么操作 For i 2 To n m=i*m Next i求 n的阶乘 Text1 Text m End If sum 0 If n 2000 Or n 1000 Then For j 1 To n sum sum j Next j求 l到 n的和 Text1 Text sum End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Command1 C1ick() Text
12、4 “ a Val(Text1) b Val(Text2) n Val(Text3) Text4 Text4 a “&b 文本框 Text4中第二项的内容一定是 b k 2 Do While k n c a*b k k 1 If C 10 Then判断乘积是否小于 10 Text4 Text4 “ C若小于 10则直接接到 Text4文本末尾 a b将 b赋给 a成为下二次循环的前一项 b c将 c作为下一次循环的后一项 Else d C 10当 C大于 10，则取整 Text4 Text4 “ d a d将十位数作为下一次循环的前一项 k k 1 If k n Then 当 k n时，则数列数已够，不用求下一项 d c Mod 10 Text4 Text4 “ d b d将余数作为下一次循环的后一项 End If End If Loop End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
