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