1、国家二级 VB机试（上机操作）模拟试卷 322及答案与解析 一、基本操作题 1 (1)在名称为 Form1、标题为 “标签 ”的窗体上添加一个名称为 Label1的标签，并设置适当属性以满足以下要求： 标签的标题为 “计算机等级考试 ”； 标签可根据标题内容自动调整其大小； 标签带有边框，且标签标题显示为三号字。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。 (2)在名称为 Form1的窗体上添加一个名称为 Hscroll1的水 平滚动条，其刻度范围为 1100；再添加一个名称为 Text1的文本框，初
2、始文本内容为 1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置。运行情况如图所示。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。其窗体文件上有一个标题为 “得分 ”的框架，在框架中有一个名称为 Text1的文本框数组，含 6个文本框控件；文本框Text2用来输入难度系数。程序运行时，在左边的 6个文本框中输入 6个得分，输入难度系数后，单击 “计
3、算分数 ”按钮，则可计算出最后得分并显示在文本框 Text3中 (如图所示 )。 计算方法： 去掉 1个最高得分和 1个最低得分，求剩下得分的平均分，再乘以 3，再乘以难度系数。最后结果保留到第 2位小数，不四舍五入。 注意：文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容，考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文 件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。窗体上的控件如图所示。程序运行时，若选中 “累加 ”单选按钮，则 “10”、 “12”菜单项不可用，若选中 “阶乘 ”单选按钮，则 “100
4、0”、 “2000”菜单项不可用 (如图所示 )。选中菜单中的一个菜单项后，单击 “计算 ”按钮，则相应的计算结果在文本框中显示 (例如，选中 “累加 ”和 “2000”，则计算 1+2+3+2000 ，选中 “阶乘 ”和 “10”，则计算 10!)。单击 “存盘 ”按钮则把文本框中的结果保存到考生文件夹下的 out4 dat文件中。 要求： 编写 “计算 ”按钮的Click事件过程。 注意：不得修改已经存在的程序，在结束程序运行之前，必须用“存盘 ”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。三、综合应用题 3 以下数列： 1， 1， 2， 3， 5， 8， 13， 21 的规律
5、是从第 3个数开始，每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件 sjt5 vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击 “计算 ”按钮，则计算出上述数列第 n项的值，并在文本框中显示， n是选中的单选按钮后面的 数值 (提示：因计算结果较大，应使用长整型变量 )。 注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击 “计算 ”按钮以获得一个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 322答
6、案与解析 一、基本操作题 1 【正确答案】 (1) 【操作步骤】 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中用到的控件及属性见表 3 49。步骤 2：调试并运行程序，关闭程序后按题目要求 存盘。 (2) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立控件并设置其属性，如表 3 50所示。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Private sub Hscrolll_Change() Text1 Text=HScroll1 Value End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1) 【操作步骤
7、】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 Private Sub Command1_Click() Dim k As Integer， s As Single， a As Single， b As Single a=Val(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 取出每个文本框的值与最大值比较，求最
8、大值 a=Val(Textl(k) Text) End If If b Val(Text1(k) Text) Then b=Val(Textl(k) Text) End If Next k s=(sab) 4 根据要求去掉一个最高分和一个最低分后求四科的平均分 S=s*3*Val(Text2 Text) 根据题意此处应填平均分 Text3=Int(s*100) 100 Int(N)是求小于或等于 N的最大整数，同时将最后结果显示在 Text3上 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：打开本题工程文件； 步骤 2：打开代码编辑窗口，
9、在指定位置编写如下代码。 Private Sub Command1_Click() Dim i As Integer Dim J As Integer Dim m As Long Dim sum As Long m=1 If n=i0 Or n=12 Then通过判断 n的值，可确定使用什么操作 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求 1到 n的和 Text1 Text=sum End If End Su
10、b 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Commandl Click() Dim a()As Long Dim i As Integer Dim n As Integer Op1 Count是单选按钮数目，这里用的是控件数组 For i=0 To Op1 Count一 1 判断哪一项被选择，把它后面的数值赋给 n，确定 n值 If Opl(i) Value=True Then n=Val(Opl(i) Caption) Exit For End If Next ReDim a(n)重新申请空间，这里是动态申请 a(1)=1 a(2)=1数列第一项、第二项值确定 For i=3 To n a(i)=a(i一 1)+a(i一 2)后一项值是前两项值之和 Next Text1 Text=a(n) End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
