1、国家二级 VB机试（上机操作）模拟试卷 159及答案与解析 一、基本操作题 1 (1)存名称为 Form1，标题为 “练习 ”的窗体上添加一个名称为 Frame1、标题为 “效果 ”的框架。框架内禽有三个复选框，其名称分别为 Chk1、 Chk2和 Chk3，标题分别为 “倾斜 ”、 “加粗 ”和 “下划线 ”。 程序运行后的窗体如图所示。 要求：存盘时必须存放在考生文件夹下，工棵文件名保存为 sjt1 vbp，窗体文件名保存为sjt1 frm。 (2)在名称为 Form1的窗体上添加 -个名称为 Label1的标签，使其初始内容为空，且能根 据其标题内容自动调整标签的人小；再添加两个命令按钮
2、，标题分别为 “日期 ”和 “时间 ”，名称分别为Command1、 Command2。请编写两个命令按钮的 Click事件过程，使得单击 “日期 ”按钮时，标签内显示系统当前日期；单击 “时间 ”按钮时，标签内显示系统当前时间。如图所示。 要求：程序中不得使用变量每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 单击 “读数据 ”按钮，则将考生文件夹下 in3 dat文件中的 100个正整数读人数组 a中。 单击 “
3、计算 ”按钮，则找出这 100个正整数中的所有完全平方数 (一个整数若是另一个整数的甲方，那么它就是完全平力数。如： 36 62，所以 36就是一个完全平方数 )，并计算这些完全平方数的平均值，最后将计算所得平均值截尾取整后在文本框 Text1中显示。 在给出的窗体文件中已经有了全部控件 (如图所示 )，但程序不完整。要求完善程序使其实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序。在结束程序运行 之前，必须进行 “计算 ”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个上程文件 sjt4 vbp，其窗体上有一个
4、计时器和两个命令按钮。计时器 Timer1的初始状态为小可用； 2个命令按钮的初始标题分别是 “演示 ”和 “退出 ”。请添加一个名称为 Label1，且能根据标题内容自动调整大小的标签，其标题为 “Visual Basic程序设计 ”，标题字体为黑体小叫号字，如图所示，程序功能如下： 单击标题为 “演示 ”的命令按钮时，则该按钮的标题自动变换为 “暂停 ”，且标签在窗体上从序向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入。 单击标题为 “暂停 ”的命令按钮时，则该按钮的标题自动变换为 “演示 ”，并暂停标签的滚动。 单击 “退出 ”按钮，则结束程序运行。要求：请去掉程序中的注释符，
5、把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，窗体上有三个文本框，其名称分别为Text1、。 text2和 Text3，其中 Text1、 Text2可多行显示。请添加三个命令按钮，名称分别为 Cmd1、 Cmd2和 Cmd3，标题分别为 “产生数组 ”、 “统计 ”和 “退出 ”，如图所示。程序功能如下： 单击 “产生数组 ”按钮时，随机生成 20个 0 10之间 (不含 0和 10)的数值，并将其保存到一维数组 a中，同时也将这 20个数值在
6、Text1文本框内显示。 单击 “统计 ”按钮时，统计出数组 a中出现频率最高的数值及其出现的次数，并将出现频率最高的数值在 Text2文本框内显示、出现频率最高的次数在 Text3文本框内显示。 单击 “退出 ”按钮时，结束程序运行。 注意 ：不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 159答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立控件，程序中用到的控件及属性见表 3 52。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)命令按钮的 Name和
7、Caption属件设置命令按钮名称和标题， Date()函数用于返回系统日期， Time()函数用丁返回系统时间。 【操作步骤】 步骤 1：建立界面，添加相应控件 并设置控件的属性。程序中用到的控件及属性见表 3 53。步骤 2：代开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub Commandl Click() Label1 Date用于返回系统当前日期 End Sub Private Sub Command2 Click() Label1 Time用于返回系统当前时间 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确
8、答案】 (1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 参考答案 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) m 2 Then sum sum a(k)求完全平方数之和 n n 1完全平方敷总数 End If Next m Next k Text1 Fix(sum n)Fix函数的功能是取整 步骤 3：调试并运行程序，关闭程序后按题目要
9、求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件，添加一个标签，按表 3 54设置标签的属性。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Command1_Click() If Command1 Caption “演示 ”Then Timer1 Enabled True当单击 “演示 “按钮时 Timer1事件触发 Command1 Caption “暂停 “ ElSe Timer1 False当单击 “暂停 “按钮时， Timer1事件停止 Command1 Caption “演示 “ End If End Sub
10、 Private Sub Command2 Click() End退出程序 End Sub Private Sub Timer1 Timer() If Label1 Left Label1 WidthForml Width Then铡断标签是否已滚动出窗体 Label1 Left Label1 Width将标签位置重置。使它从窗体左 边滑出 Else Label1 Left Label1 Left 100标签移出 End If End Sub 程序结束 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件，设置控件的属
11、性。程序中用到的控件及属性见表 3 55。步骤 2：打开代码编辑窗口，去掉程序中的汴释符 “”，将问题改为正确的内容。 参考答案 Option Base 1 Dim a(20)As Integer， b(20)As Integer Private Sub Cmdl Click() Text1 Text “：Text2 Text “： Text3 Text “ For i 1 To 20 a(i) Fix(Rnd*9 1)生成 0 10的数值并存入数组 a中 b(i) 1 Text1 Text Text1 Text Str(a(i) Space(2)将生成的敷显示在 Text1中 Next i
12、End Sub Private Sub Cmd2 C1ick() fmax 0 For i 1 To 20 For j 1 To i 1数组共有 20个数字 If a(i) a(j)Then b(i) b(i) 1依次存入对应数 出现的频率 End If Next j If b(i) fmax Then fmax b(i)该次得到的数出现频率与目前出现频率最多的教比较，若大于目前的数。则将最大的敷改为谈次得到的数 Next i For i 1 To 20 If b(i) fmax Then从数组中找到与 fmax相同的值 Text2 Text Text2 Text Str(a(i) Space(2) End If Next i Text3 Text fmax End Sub Private Sub Cmd3 Click() End当单击 “结束 “按钮时，则退出程序 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
