1、国家二级 VB机试（上机操作）模拟试卷 329及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 Commandl的命令按钮 (如图 1所示 )，然后通过属性窗口设置窗体和命令按钮的属性，实现如下功能： 窗体标题为 “设置按钮属性 ”； 命令按钮的标题为 “等级考试 ”； 程序运行后，命令按钮不可见； 命令按钮的标题字号、字体用三号常规黑体显示。 程序的运行情况如图 2所示。 要求：不编写任何代码。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。(2)在名称为 Form1的窗体上添加一个名称为 Lab
2、el1的标签，在属性窗口中把 BorderStyle属性设置为 1(如图 1所示 )，编写适当的事件过程。使得程序在运行后，如果单击窗体，则可使标签移到窗体的右上角 (只允许在程序中修改适当属性来实现 )。 要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sit2 vbp，窗体文件名保存为 sit2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 单击 “读数据 ”按钮， 则将考生文件夹下 in3 dat文件中的 100个正整数读入数组 a中。 单击 “计算 ”按钮，则找出这 100个正整数中的所有完全平方数 (一
3、个整数若是另一个整数的平方，那么它就是完全平方数。如： 36=62，所以 36就是一个完全平方数 )，并计算这些完全平方数的平均值，最后将计算所得平均值截尾取整后在文本框 Text1中显示。 在给出的窗体文件中已经有了全部控件 (如图所示 )，但程序不完整。要求完善程序使其实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序。在结束程序运行之前，必须进行 “计算 ”，且必须用窗体 右上角的关闭按钮结束程序，否则无成绩。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，其窗体上有一个计时器和两个命令按钮。计时器 Timer1的初始状态为不可用；
4、 2个命令按钮的初始标题分别是 “演示 ”和 “退出 ”。请添加一个名称为 Label1，且能根据标题内容自动调整大小的标签，其标题为 “Visual Basic程序设计 ”，标题字体为黑体小四号字，如图所示，程序功能如下： 单击标题为 “演示 ”的命令按钮时，则该按钮的标题自动变换为“暂停 ”，且标签在窗体上从左向右循环滚动，当 完全滚动出窗体右侧时，从窗体左侧重新进入。 单击标题为 “暂停 ”的命令按钮时，则该按钮的标题自动变换为 “演示 ”，并暂停标签的滚动。 单击 “退出 ”按钮，则结束程序运行。要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改窗体
5、文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 Sjt5 vbp，考生文件夹下 in5 dat文件中保存有一篇英文短文。程序运行时，单击 “读取并统计 ”按钮，则按行读取 in5 dat文件的 内容，并显示到文本框 Text1中，同时调用 Calculate过程统计每个英文字母 (不区分大小写 )及其出现的次数，并按字母顺序保存到二维数组 data中，统计结束后，按字母顺序将统计结果显示到列表框 List1中 (字母用小写表示，且不含文中未出现的字母 )；单击 “保存 ”按钮，则保存结果。 “读取并统计 ”和 “保存 ”按钮的
6、Click事件过程已经给出，请编写 Calculate过程中的代码以实现上述功能。程序运行界面示意图如图所示。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行 “读取并统计 ”，且必须单击 “保存 ”按钮保存结果，否则无成绩。最后，程序按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 329答案与解析 一、基本操作题 1 【正确答案】 (1) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立命令按钮控件并设置命令按钮和窗体的相应属性，如图 3 23所示。程序中用到的属性见表3 21。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操
7、作步骤】 步骤 1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性，见表 3 22。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Form_Click() Labell Top=0设置Label1的初始位置 Label1 Left=Form1 WidthLa-bell Width End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 Dim sum As Long Dim k As I
8、nteger Dim m As Integer For k=1 To 100对 100个数循环判断 For m=1 To Sqr(a(k)判断 a(k)是否为完全平方数 If a(k)=m2 Then sum=sum+a(k)求完全平方数之和 n=n+1完全平方数总数 End If Next m Next k Text1=Fix(sum n)Fix函数的功能是取整 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：打开本题工程文件，添加一个标签，按表 3 54设置标签的属性。步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 Pri
9、vate Sub Commandl_Click() If Commandl Caption=“演示 ”Then Timerl.Enabled=True当单击 ”演示 ”按钮时 Timerl事件触发 Commandl Caption=”暂停 ” Else Timer1.Enabled=False当单击 ”暂停 ”按钮时， Timer1事件停止 Command1 Caption=”演示 ” End If End Sub Private Sub Command2_Click() End退出程序 End SubPrivate Sub Timerl Timer() If Label1.Left+Labe
10、l1.WidthForm1 Width Then判断标签是否已滚动出窗体 Label1 Left=一 Labell Width将标签位置重置，使它从窗体左边滑出 Else Labell Left=Label1.Left+100标签移出 End If End Sub 程序结束 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】步骤 1：打开本题项目工程。步骤 2：打开代码编辑窗口，填入相应的代码以实现题目的功能。 Private Sub Calculate(s As String， d()As Variant) Dim ch As String Dim i As Integer For i=1 to Len(s) ch=Asc(LCase(Mid(s,i,1) If ch =97 And ch =122 Then d(ch-96,1)=Chr(ch) d(ch-96.2)=d(ch-96,2)+1 End IfEnd Sub步骤 3：调试并运行程序，结果如图 4 10所示，关闭程序后按题目要求存盘。
