国家二级VB机试（上机操作）模拟试卷436
基本操作题
1.(1)在名称为Form1、标题为“输入”、最大化按钮失效的窗体上画一个名称为Label1的标签控件，其标题为“输入密码”；再向窗体内画一个名称为Text1的文本框控件，并清空其中的文本。程序执行时，用户在文本框中最多可输入由6个字符组成的密码，密码字符在文本框中显示为“*”，其画面如图所示，请设置相应属性。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上，画一个名称为Shape1的形状控件，将其形状设置为圆、背景样式设置为不透明；再向窗体上画一个名称为HScrolll的水平滚动条控件，并将滚动条所能表示的最小值设置为0、所能表示的最大值设置为255。
要求：编写适当的事件过程，使得程序运行时，当单击水平滚动条HScrolll两端的箭头时，能将Shape1中的背景颜色设置为由红、绿、蓝三原色组合形成的一种颜色，其中，红色的分量值为滚动条中滚动框当前位置所表示的值，绿色、蓝色的分量值都为0。程序运行示意图如图所示。
(1)步骤1：新建一个窗体，根据表4．8设置窗体的相关属性
[*]
步骤2：向窗体中添加一个标签控件，根据表4．9设置控件的相关属性
[*]
步骤3：向窗体中添加一个文本框控件，根据表4．10设置控件的相关属性，设置后窗体的效果如图4．8所示
[*]
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤1：新建一个窗体，在窗体上添加一个Shape控件，并按照表4．11设置控件的相关属性。
[*]
步骤2：向窗体中添加一个HScroll控件，按照表4．12设置控件的相关属性，设置后窗体的效果如图4．9所示
[*]
步骤3：双击HScrolll控件，打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
编写程序代码。
参考答案
Private Sub HScrolll_Change()
End Sub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
解析：(1)新建一个窗体，设置窗体的Caption属性和MaxButton属性值；在窗体上添加一个标签控件，设置标签控件的Caption属性，再添加一个文本框控件，设置文本框的Text属性、MaxLength属性和passwordChar属性。
(2)新建一个Form1窗体，在窗体上添加一个Shape控件，并设置控件的Shape属性为3一Circle，BackStyle属性为1一Opaque；再添加一个HScroll控件，设置控件的Min属性为0，Max属性为255，并为HScroll控件的Change事件添加代码。
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp，相应的窗体文件为sjt3．frm。其功能是随机产生30个0～1000的整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮(名称为Command1，标题为“输出最小值”)，即可求出其最小值，并在窗体上显示出来(如图所示)。这个程序不完整，请把它补充完整，并使其能正确运行。
(1)步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
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)<Min
Then’比较最小值与其他数值，找出最小值
Min=arrN(i)
End If
Next i
Print Min
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
参考答案
Function Fun()
Dim s As Integer，i As Integer
For i=0 To 1000’求0～1000中满足条件的数
If i Mod 7 0 Then
s=s+1将满足条件的数的个数累加
End If
Next i
Fun=s’返回结果
End Function
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：(1)本题程序用变量Min记录最小数，最初把数组的第一个元素的值赋给Min，然后通过For循环语句将其后的元素依次与之比较，如果其值小于Min，则将其赋值给Min，依次类推，最终Min的值就是数组各元素中的最小值。
(2)可通过求余运算符Mod来计算某数M能否被7整除，如果M，Mod 7=0，那么M能被7整除；如果M Mod 70，那么M不能被7整除。可利用For循环语句来逐个判断0～1000范围内的整数能否被7整除，然后用一个变量来统计不能被7整除的整数个数。
综合应用题
3.在考生文件夹下有一个工程文件sjt5．vbp，窗体上有两个命令按钮，标题分别是“读数据”和“统计”，请添加两个标签，名称分别为Label1和Label2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；再添加两个名称分别为Text1和Text2，初始内容为空的文本框，如图所示。
程序功能如下：
①单击“读数据”按钮，则将考生文件夹下in5．dat文件的内容读到变量s中(此过程已给出)。
②单击“统计”按钮，自动统计in5．dat文件中所含各字母(不区分大小写)出现的次数，并统计次数最多的字母显示在Text1文本框内，它所出现的次数显示在Text2文本框内。
“读数据”按钮的Click事件过程已经给出，请为“统计”按钮编写适当的事件过程实现上述功能。
步骤1：打开本题工程文件，添加两个标签控件，名称分别为La
本文档预览：3600字符，共4738字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
