1、国家二级 VB机试（上机操作）模拟试卷 436及答案与解析 一、基本操作题 1 (1)在名称为 Form1、标题为 “输入 ”、最大化按钮失效的窗体上画一个名称为Label1的标签控件，其标题为 “输入密码 ”；再向窗体内画一个名称为 Text1的文本框控件，并清空其中的文本。程序执行时，用户在文本框中最多可输入由 6个字符组成的密码，密码字符在文本框中显示为 “*”，其画面如图所示，请设置相应属性。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在名称为 Form1的窗体上，画一个名称为 Shape1的形状控件，将其形状设置为圆、
2、背景样式设置为不透明；再向窗体上画一个名称为 HScrolll的水平滚动条控件，并将滚动条所能表示的最小值设置为 0、所能表示的最大值设置为 255。 要求：编写适当的事件过程，使得程序运行时，当单击水平滚动条 HScrolll两端的箭头时，能将 Shape1中的背景颜色设置为由红、绿、蓝三原色组合形成的一种颜色，其中，红色的分量值为滚动条中滚动框当前位置所表示的值，绿色、蓝色的分量值都为 0。程序运行示意图如图所示。 提示：系统库函数 RGB可将红、绿 、蓝三原色组合，并返回组合后的颜色值。 注意：要求程序中不能使用变量，每个事件过程中只能写一条语句 (不得使用选择语句或循环语句 )。保存时
3、必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt3 frm。其功能是随机产生 30个 0 1000的整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮 (名称为 Command1，标题为 “输出最小值 ”)，即可求出其最小值，并在窗体 上显示出来 (如图所示 )。这个程序不完整，请把它补充完整，并使其能正确运行。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原名
4、存盘。 (2)在考生文件夹下有一个工程文件sjt4 vbp，相应的窗体史件为 sjt4 frm，在窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出 0 1000范围内不能被 7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗几中，已给出了部分程序，其中计算不能被 7整除的整数的个数的操作在 通用过程 Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的任何内容，只在 Function Fun()和 End Function之间填入你编写的若于语句。最后将修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，窗体上有两
5、个命令按钮，标题分别是“读数据 ”和 “统计 ”，请添加两个标签，名称分别为 Label1和 Label2，标题分别为“出现次数最多的字母是 ”和 “它出现的次数为 ”；再添加两个名称分别为 Text1和Text2，初始内容为空的文本框，如图所示。 程序 功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读到变量 s中 (此过程已给出 )。 单击“统计 ”按钮，自动统计 in5 dat文件中所含各字母 (不区分大小写 )出现的次数，并统计次数最多的字母显示在 Text1文本框内，它所出现的次数显示在 Text2文本框内。 “读数据 ”按钮的 Click事件过程已经给
6、出，请为 “统计 ”按钮编写适当的事件过程实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最 后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 436答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个窗体，根据表 4 8设置窗体的相关属性步骤 2：向窗体中添加一个标签控件，根据表4 9设置控件的相关属性 步骤 3：向窗体中添加一个文本框控件，根据表 4 10设置控件的相关属性，设置后窗体的效果如图4 8所示 步骤 4：调试并运行程序，关闭程序后按题目要求存盘
7、。 (2)步骤 1：新建一个窗体，在窗体上添加一个 Shape控件，并按照表 4 11设置控件的相关属性。 步骤2：向窗体中添加一个 HScroll控件，按照表 4 12设置控件的相关属性，设置后窗体的效果如图 4 9所示 步骤 3：双击HScrolll控件，打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 编写程序代码。 参考答案 Private Sub HScrolll_Change() End Sub 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)新建一个窗体，设置窗体的 Caption属性和 MaxButton属性值；在窗体上添加一个标签控件，设置标签
8、控件的 Caption属性，再添加 一个文本框控件，设置文本框的 Text属性、 MaxLength属性和 passwordChar属性。 (2)新建一个 Form1窗体，在窗体上添加一个 Shape控件，并设置控件的 Shape属性为 3一 Circle， BackStyle属性为 1一 Opaque；再添加一个 HScroll控件，设置控件的 Min属性为 0， Max属性为 255，并为 HScroll控件的 Change事件添加代码。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考
9、答案 Option Base 1 PriVate sub Command1_Slick() Dim arrN(30)As Integer Dim Min As Integer Randomize For i=1 To 30 arrN(i) = Int(Rnd * 1000) Next i Min=arrN(1)将第一个数赋给 Min，以提 供判断 For i=2 To 30 If arrN(i) 0 Then s=s+1将满足条件的数的个数累加 End If Next i Fun=s返回结果 End Function 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)本
10、题程序用变量 Min记录最小数，最初把数组的第一个元素的值赋给 Min，然后通过 For循环语句将其后的元素 依次与之比较，如果其值小于Min，则将其赋值给 Min，依次类推，最终 Min的值就是数组各元素中的最小值。 (2)可通过求余运算符 Mod来计算某数 M能否被 7整除，如果 M， Mod 7=0，那么 M能被 7整除；如果 M Mod 7=65 And k=97 And k=122)Then a(k一 96)=a(k一 96)+1当为小写字母时，满足条件则计数 End If Next i max=0 For m=1 To 26循环查找出现次数最多的值 If maxa(m)Then m
11、ax=a(m) EndIf Next m Text2=max显 示出现次数 For m=1 To 26找到出现次数最多的值的下标 If a(m)=max Then 1=m将下标记下 End If Next m Text1=Chr(1+64)通过下标找到对应的字母 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 通过 Mid()函数获取字符，并通过 Asc()函数获得字符的 ASCII码，并赋值给变量 k。定义一个数组 a(26)用于存储 26个字母的出现次数，根据语句 Option Base 1，判 断数组的下标为 1 26，通过判断 ASCII码来计算字母出现的次数，例如 k=65(A)或 k=97(a)，那么 a(k一 64)和 a(k一 96)也就是通过 a(1)加 1来进行计数。再通过对于数组 a最大值的查找求出最多的次数，进而求出出现最多的字母并显示出来。
