1、国家二级 VB机试（上机操作）模拟试卷 75及答案与解析 一、基本操作题 0 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 1 在名称为 Form1的窗体上画一个名称为 Label1的标签，标签的宽和高分别为2000、 300，有边框，并利用属性窗口设置适当的属性，使其居中显示 “等级考试 ”，并使标签的外观如图 3-173所示。运行后的窗体见图 3-173。 注意：存盘时必须存放在考生文件夹下，工程文件名为sil1 vbp，窗体文件名为 sjt1 frm。 2 在名称为 Form1的窗体上画一个名称为 Image1的图像框，有边框，并可以自动调整装入图
2、片的大小以适应图像框的尺寸；再画三个命令按钮，名称分别为Command1、 Command2、 Command3，标题分别为 “红桃 ”、 “黑桃 ”、 “清除 ”。在考生目录下有两个图标文件，其名称分别为 “Misc34 ico”和 “Misc37 ico”。程序运行时，单击 “红桃 ”按钮，则在图像框中显示红桃图案 (即 Misc34 ico文件，如图 3-174所示 )；单击 “黑桃 ”按钮，则在图像框中显示黑桃图案 (即 Misc37 ico文件 )；单击 “清除 ”按钮，则 清除图像框中的图案。请编写相应控件的 Click事件过程，实现上述功能。 注意：要求程序中不得使用变量，每个事
3、件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp。窗体上有一个标题为 “得分 ”的框架，在框架中有一个名称为 Text1的文本框数组，含六个元素；文本框 Text2用来输入难度系数。程序运行时，在左边的六个文本框中输入 6个得分，输入难度系数后，单击 “计算分数 ”按钮，则可计算 出最后得分并在文本框 Text3中显示 (如图 3-175所示 )。 计算方法：去掉一个最高得分和一个最低得分，求剩下得分的平均分，再乘以 3，再乘以难度系数。最后结果保留到第 2
4、位小数，不四舍五入。 注意：文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 4 在考生目录下有一个工程文件 sjt4 Vbp。窗体上的控件如图 3-176所示。程序运行时，若选中 “阶乘 ”单选按钮，则 “1000”、 “2000”菜单项不可用 (如图 3-176所示 )，若选中 “累加 ”单选按钮，则 “10”、 “12”菜单项不可用。选中菜单中的一个菜单项后，单击 “计算 ”按钮，则相应的计算结果显示在文本框中 (例如选中 “阶乘 ”和“10”，则计算 10!，
5、选中 “累加 ”和 “2000”，则计算 1+2+3+2000) 。单击 “存盘 ”按钮，则把文本框中的结果保存到考生目录下的 out4 dat文件中。 要求：编写 “计算 ”按钮的 Click事件过程。 注意：不得修改已经存在的程序，在结束程序运行之前，必须用 “存盘 ”按钮存储计算结果，否则无成绩。最后，程 序按原文件名存盘。 三、综合应用题 5 在考生目录下有一个工程文件 sjt5 vbp。其功能是产生并显示一个数列的前 n项。数列产生的规律是：数列的前 2项是小于 10的正整数，将此 2数相乘，若乘积 10，则以此乘积作为数列的第 3项；若乘积 10，则以乘积的十位数为数列的第 3项，
6、以乘积的个位数为数列的第 4项。再用数列的最后 2项相乘，用上述规则形成后面的项，直至产生了第 n项。窗体上部从左到右三个文本框的名称分别为：Text1、 Text2、 Text3，窗体下部的文本框名称为 Text4。程序运行时，在 Text1、Text2中输入数列的前两项， Text3中输入要产生的项数 n，单击 “计算 ”按钮则产生此数列的前 n项，并显示在 Text4中。如图 3-177所示。 注意：文件中已经给出了全部控件，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。不得修改原有程序和控件的属性。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模
7、拟试卷 75答案与解析 一、基本操作题 1 【正确答案】 审题分析 本题只需按要求画出控件并设置其相应属性即可。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置相应属性。 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 控件基本操作。 2 【正确答案】 审题分析 本题需分别在三个命令按钮的 Click事件过程中，用 LoadPicture()函数为图像框加载不同图片。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：打开代码编辑窗口，编写三个命令按钮的单击事件过程。 参考代码： Private Sub Command1_
8、Click() Image1 Picture=LoadPicture(App Path “ Misc34 ico“) End Sub Private Sub Command2_Click() Image1 Picture=LoadPicture(App Path “ Misc37 ico“) End Sub Private Sub Command3_Click() Image1 Picture=LoadPicture() End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 图形控件。 二、简单应用题 3 【正确答案】 审题分析 本题源程序在 “计算 ”按钮的单击事件过程中，用
9、变量 a记录最高得分，用变量 b记录最低得分，用变量 s记录得分总数，这三个变量的初值均为文本框数组 Text1中第一个元素的值。源程序通过 For循环将文本框数组 Text1中第 2 6(索引号为1 5)个元素的值依次累加入变量 s，并依次与变量 a、变量 b比较大小，将较大值存入变量 a，将较小值存入变量 b。故第一个 ?处应改为： 5(或 Text1 Count-1)，第二个 ?处应改为： a。去掉一个最高得分和一个最低得分后，剩下求平均分的元素只有 4个，故第三个 ?处应改为： 4。所得平均分乘以 3，再乘以难度系数即为最后得分，故第 4个 ?处应改为： s。最后结果保留到第 2位小数
10、 (不四舍五入 )后显示中文本框 Text3中，故第 5个 ?处应改为： Text3 Text。 操作步骤 步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： For k=1 To 5 If a Val(Text1(k) Text) Then s=(s-a-b) 4 s=s*3*Val(Text2 Text) Text3 Text=Int(s*100) 100 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 控件数组、 For循环结构。 4 【正确答案】 审题分析 本题源程序要求编写 “计算 ”按
11、钮的单击事件。当单击按钮时，首先判断两个单选按钮选中了哪一个，如果选中了 “阶乘 ”按钮，则执行阶乘算法，将从 1到 n的数值依次 乘到累乘积 s中；若选中了 “累加 ”按钮，则执行累加算法，将从 1到 n的数值依次加到累加和 s中。注意 s作为累乘积的时候初值应该为 1，而作为累加和的时候初值应该为 0。最后将 s的值显示在文本框中。 操作步骤 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp。 步骤 2：打开代码编辑窗口，编写 “计算 ”按钮的单击事件过程。 参考代码： Private Sub Command1_Click() If Option1 Value=True Then
12、 s=1 For k=1 To n s=s*k Next End If If Option2 Value=True Then s=0 For k=1 To n s=s+k Next End If Text1=s End Sub 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按 键运行程序，选择不同选项，单击 “数值 ”菜单项，并且选择一个可用的数值，然后单击 “计算 ”按钮得到结果，最后单击 “存盘 ”按钮保存结果 。 考点链接 For循环结构、选择控件。 三、综合应用题 5 【正确答案】 审题分析 根据题意，数列第 n项的值源于该项前两项的乘积。本题源程序中，将文本框Text1的输入
13、值赋予变量 a作初值，将文本框 Text2的输入值赋予变量 b作初值，并把 a、 b初值作为数列的前两项。故第一个 ?处应改为： b。将文本框 Text3的输入值赋予变量 n，以标记数列最终要生成的项数。变量 k用于记录数列当前项数，初值为 2。 在 Do循环中，首先将 a、 b的乘积赋予变量 c(当前项数 k增 1)，然后判断 c的值是否小于 10，若 c小于 10则 c即为数列的第 3项，并将 b的值赋予变量 a， c的值赋予变量 b，以便计算数列下一项的值；若 c不小于 10，则取 a和 b乘积十位上的数 (即 d=c 10)作数列的第 3项，将 d的值赋予变量 a(当前项数 k增 1)，并进一步判断当前 k值是否小于或等于最终要生成的项数 n，若是则取 a和 b乘积个位上的数 (即 d=c Mod 10)作数列的第 4项，将 d的值赋予变量 b，以便计算数列下一项的值。重复执行循环体，即可依次求出数列后续项的值。 操作步骤 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在 代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Text4=Text4 a “ “ b a=b If k =n Then b=d 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 Do循环和 While循环。
