1、国家二级 VB机试（上机操作）模拟试卷 329及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上添加一个名称为 Commandl的命令按钮(如图 1所示)，然后通过属性窗口设置窗体和命令按钮的属性，实现如下功能： 窗体标题为“设置按钮属性”； 命令按钮的标题为“等级考试”； 程序运行后，命令按钮不可见； 命令按钮的标题字号、字体用三号常规黑体显示。 程序的运行情况如图 2所示。 要求：不编写任何代码。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 (2)
2、在名称为 Form1的窗体上添加一个名称为Label1的标签，在属性窗口中把 BorderStyle属性设置为 1(如图 1所示)，编写适当的事件过程。使得程序在运行后，如果单击窗体，则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。 要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sit2vbp，窗体文件名保存为 sit2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，其功能是： 单击“读数据”按钮，则将考生文件夹下 in3dat 文件中的 100个正整数读入数组
3、a中。 单击“计算”按钮，则找出这 100个正整数中的所有完全平方数(一个整数若是另一个整数的平方，那么它就是完全平方数。如：36=6 2 ，所以 36就是一个完全平方数)，并计算这些完全平方数的平均值，最后将计算所得平均值截尾取整后在文本框 Text1中显示。 在给出的窗体文件中已经有了全部控件(如图所示)，但程序不完整。要求完善程序使其实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序。在结束程序运行之前，必须进行“计算”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4vbp，其窗体上有一个计时
4、器和两个命令按钮。计时器 Timer1的初始状态为不可用；2 个命令按钮的初始标题分别是“演示”和“退出”。请添加一个名称为 Label1，且能根据标题内容自动调整大小的标签，其标题为“Visual Basic 程序设计”，标题字体为黑体小四号字，如图所示，程序功能如下： 单击标题为“演示”的命令按钮时，则该按钮的标题自动变换为“暂停”，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入。 单击标题为“暂停”的命令按钮时，则该按钮的标题自动变换为“演示”，并暂停标签的滚动。 单击“退出”按钮，则结束程序运行。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.0
5、0)3.在考生文件夹下有一个工程文件 Sjt5vbp，考生文件夹下 in5dat 文件中保存有一篇英文短文。程序运行时，单击“读取并统计”按钮，则按行读取 in5dat 文件的内容，并显示到文本框 Text1中，同时调用 Calculate过程统计每个英文字母(不区分大小写)及其出现的次数，并按字母顺序保存到二维数组data中，统计结束后，按字母顺序将统计结果显示到列表框 List1中(字母用小写表示，且不含文中未出现的字母)；单击“保存”按钮，则保存结果。“读取并统计”和“保存”按钮的 Click事件过程已经给出，请编写 Calculate过程中的代码以实现上述功能。程序运行界面示意图如图所
6、示。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“读取并统计”，且必须单击“保存”按钮保存结果，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 329答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上添加一个名称为 Commandl的命令按钮(如图 1所示)，然后通过属性窗口设置窗体和命令按钮的属性，实现如下功能： 窗体标题为“设置按钮属性”； 命令按钮的标题为“等级考试”； 程序运行后，命令按钮不可见； 命令按钮的标题字号、字
7、体用三号常规黑体显示。 程序的运行情况如图 2所示。 要求：不编写任何代码。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 (2)在名称为 Form1的窗体上添加一个名称为Label1的标签，在属性窗口中把 BorderStyle属性设置为 1(如图 1所示)，编写适当的事件过程。使得程序在运行后，如果单击窗体，则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。 要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sit2vbp，窗体文件名保存为 sit2frm。 （分数：2.00）_正确答案
8、：(正确答案：(1) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立命令按钮控件并设置命令按钮和窗体的相应属性，如图 323 所示。 程序中用到的属性见表 321。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性，见表 322。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，其功能是： 单击“读数据”按钮，则将考生文件夹下 in3dat 文件中的 100个正整数读入数组 a中。 单击“计算”按钮，则找出这 100个正整数中的所有
9、完全平方数(一个整数若是另一个整数的平方，那么它就是完全平方数。如：36=6 2 ，所以 36就是一个完全平方数)，并计算这些完全平方数的平均值，最后将计算所得平均值截尾取整后在文本框 Text1中显示。 在给出的窗体文件中已经有了全部控件(如图所示)，但程序不完整。要求完善程序使其实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序。在结束程序运行之前，必须进行“计算”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4vbp，其窗体上有一个计时器和两个命令按钮。计时器 Timer1的初始状态为不可用；
10、2 个命令按钮的初始标题分别是“演示”和“退出”。请添加一个名称为 Label1，且能根据标题内容自动调整大小的标签，其标题为“Visual Basic 程序设计”，标题字体为黑体小四号字，如图所示，程序功能如下： 单击标题为“演示”的命令按钮时，则该按钮的标题自动变换为“暂停”，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入。 单击标题为“暂停”的命令按钮时，则该按钮的标题自动变换为“演示”，并暂停标签的滚动。 单击“退出”按钮，则结束程序运行。 （分数：2.00）_正确答案：(正确答案：(1) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗
11、口，在代码编辑窗口指定位置编写以下代码。 Dim sum As Long Dim k As Integer 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(sumn)Fix函数的功能是取整 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤1：打开本题工程文件，添加一个标签，按表 354 设置标签的
12、属性。 )解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 Sjt5vbp，考生文件夹下 in5dat 文件中保存有一篇英文短文。程序运行时，单击“读取并统计”按钮，则按行读取 in5dat 文件的内容，并显示到文本框 Text1中，同时调用 Calculate过程统计每个英文字母(不区分大小写)及其出现的次数，并按字母顺序保存到二维数组data中，统计结束后，按字母顺序将统计结果显示到列表框 List1中(字母用小写表示，且不含文中未出现的字母)；单击“保存”按钮，则保存结果。“读取并统计”和“保存”按钮的 Click事件过程已经给出，请编写 Calcula
13、te过程中的代码以实现上述功能。程序运行界面示意图如图所示。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“读取并统计”，且必须单击“保存”按钮保存结果，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 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 If End Sub 步骤 3：调试并运行程序，结果如图 410 所示，关闭程序后按题目要求存盘。 )解析：
