国家二级VB机试（上机操作）模拟试卷432
基本操作题
1.(1)在名称为Form1、标题为“输入”、最大化按钮失效的窗体上画一个名称为Labe11的标签控件，其标题为“输人密码”；再向窗体内画一个名称为Text1的文本框控件，并清空其中的文本。程序执行时，用户在文本框中最多可输入由6个字符组成的密码，密码字符在文本框中显示为“*”，其画面如图所示，请设置相应属性。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上，画一个名称为Shapel的形状控件，将其形状设置为圆、背景样式设置为不透明；再向窗体上画一个名称为HScrol11的水平滚动条控件，并将滚动条所能表示的最小值设置为0、所能表示的最大值设置为255。
要求：编写适当的事件过程，使得程序运行时，当单击水平滚动条HScroll1两端的箭头时，能将Shape1中的背景颜色设置为由红、绿、蓝三原色组合形成的一种颜色，其中，红色的分量值为滚动条中滚动框当前位置所表示的值，绿色、蓝色的分量值都为0。程序运行示意图如图所示。
提示：系统库函数RGB可将红、绿、蓝三原色组合，并返回组合后的颜色值。
注意：要求程序中不能使用变量，每个事件过程中只能写一条语句(不得使用选择语句或循环语句)。保存时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
(1)【操作步骤】
步骤1：新建一个窗体，根据表4．8设置窗体的相关属性
[*]
步骤2：向窗体中添加一个标签控件，根据表4．9设置控件的相关属性
[*]
步骤3：向窗体中添加一个文本框控件，根据表4．10设置控件的相关属性，设置后窗体的效果如图4．8所示
[*]
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1：新建一个窗体，在窗体上添加一个Shape控件，并按照表4．11设置控件的相关属性。
[*]
步骤2：向窗体中添加一个HSero11控件，按照表4．12设置控件的相关属性，设置后窗体的效果如图4．9所示
[*]
步骤3：双击HScroll1控件，打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
编写程序代码。
参考答案
Private Sub HScroll1_Change()
Shape1．BackColor＝RGB(HScroll1．Value,0,0)
End Sub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
解析：
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp，其窗体上有一个列表框和一个标题为“选择”的命令按钮，且列表框中已有若干列表项。程序的功能是：当单击”选择”按钮时，如果列表框中没有列表项，则程序不做任何操作。否则，判断列表框中是否有列表项被选中，如果没有，则自动选中首个列表项(呈蓝色光条显示)；如果有，且不是最后一个列表项，则自动选中后一个列表项，如果选中的是最末一项，则自动选中首个列表项。运行时窗体界面如图所示。程序已经给出，但不完整，请将其中的注释符去掉，把?改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序代码，最后程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp，其窗体上有4个标签、1个文本框、1个计时器和1个标题为“开始”的命令按钮。程序的功能是：用户在文本框中输入一个计时时间(单位：分)，并单击“开始”按钮后，系统将开始倒计时，每隔1秒显示1次剩余时间，当到达计时长度时，系统倒计时结束，并弹出信息框显示“时间到!”，程序运行界面如图所示。程序已经给出，但不完整，请将其中的注释符去掉，把?改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序代码，最后程序按原文件名存盘。
(1)【操作步骤】
步骤1：打开本题项目工程。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Private Sub Command1_Click()
If List1．ListCOLunt＝0 Then
Exit Sub
End If
If List1．ListIndex＝－1 Then
List1．ListIndex＝0
Else
If List1．List1 ndex＜List1．ListCount－Then
List1．ListIndex＝List1．ListIndex＋1
Else
List1．ListIndex＝0
End If
End If
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1：打开本题项目工程。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Dim t As Integer
Private Sub Command1_Click()
t＝60 * Val(Text1．Text)
Timer1．Enabled＝True
End Sub
Private Sub Timer1_Timer()
Dim m，s As Integer
If t＜＝0 Then
Timer1．Enabled＝False
MsgBox\\
解析：
综合应用题
3.在考生文件夹下有一个工程文件sjt5．vbp，考生文件夹下in5．dat文件中保存有一篇英文短文。程序运行时，单击“读取并统计”按钮，则按行读取in5．dat文件的内容，并显示到文本框Text1中，同时调用Calculate过程统计每个英文字母(不区分大小写)及其出现的次数，并按字母顺序保存到二维数组data中，统计结束后，按字母顺序将统计结果显示到列表框List1中(字母用小写表示，且不含文中未出现的字母)；单击“保存”按钮，则保存结果。“读取并统计”和“保存”按钮的(Click事件过程已经给出，请编写Calculate过程中的代码以实现上述功
本文档预览：3600字符，共4308字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
