国家二级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版点下载