1、国家二级 VB机试（上机操作）模拟试卷 432及答案与解析 一、基本操作题 1 (1)在名称为 Form1、标题为 “输入 ”、最大化按钮失效的窗体上画一个名称为Labe11的标签控件，其标题为 “输人密码 ”；再向窗体内画一个名称为 Text1的文本框控件，并清空其中的文本。程序执行时，用户在文本框中最多可输入由 6个字符组成的密码，密码字符在文本框中显示为 “*”，其画面如图所示，请设置相应属性。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在名称为 Form1的窗体上，画一个名称为 Shapel的形状控件，将其形状设置为圆、
2、背景样式设置为不透明；再向窗体上画一个名称为 HScrol11的水平滚动条控件，并将滚动条所能表示的最小值设置为 0、所能表示的最大值设置为 255。 要求：编写适当的事件过程，使得程序运行时，当单击水平滚动条 HScroll1两端的箭头时，能将 Shape1中的背景颜色设置为由红、绿、蓝三原色组合形成的一种颜色，其中，红色的分量值为滚动条中滚动框当前位置所表示的值，绿色、蓝色的分量值都为 0。程序运行示意图如图所示。 提示：系统库函数 RGB可将红、绿、 蓝三原色组合，并返回组合后的颜色值。 注意：要求程序中不能使用变量，每个事件过程中只能写一条语句 (不得使用选择语句或循环语句 )。保存时
3、必须存放在考生文件夹下，工程文件名为sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其窗体上有一个列表框和一个标题为 “选择 ”的命令按钮，且列表框中已有若干列表项。程序的功能是：当单击 ”选择 ”按钮时，如果列表框中没有列表项，则程序不做任何操作。否则，判断列表框中是否有列表项被选中，如果没有，则自动选 中首个列表项 (呈蓝色光条显示 )；如果有，且不是最后一个列表项，则自动选中后一个列表项，如果选中的是最末一项，则自动选中首个列表项。运行时窗体界面如图所示。程序已经给出，但不完整，请将其中的注释符去掉，把 ?改为
4、正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序代码，最后程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4 vbp，其窗体上有 4个标签、 1个文本框、 1个计时器和 1个标题为 “开始 ”的命令按钮。程序的功能是：用户在文本框中输入一个计时时间 (单位：分 )，并单 击“开始 ”按钮后，系统将开始倒计时，每隔 1秒显示 1次剩余时间，当到达计时长度时，系统倒计时结束，并弹出信息框显示 “时间到 !”，程序运行界面如图所示。程序已经给出，但不完整，请将其中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存
5、在的控件和程序代码，最后程序按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，考生文件夹下 in5 dat文件中保存有一篇英文短文。程序运行时，单击 “读取并统计 ”按钮，则按行读取 in5 dat文件的内容， 并显示到文本框 Text1中，同时调用 Calculate过程统计每个英文字母 (不区分大小写 )及其出现的次数，并按字母顺序保存到二维数组 data中，统计结束后，按字母顺序将统计结果显示到列表框 List1中 (字母用小写表示，且不含文中未出现的字母 )；单击 “保存 ”按钮，则保存结果。 “读取并统计 ”和 “保存 ”按钮的 (Click事件过
6、程已经给出，请编写 Calculate过程中的代码以实现上述功能。程序运行界面示意图如图所示。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行 “读取并统计 ”，且 必须单击 “保存 ”按钮保存结果，否则无成绩。最后，程序按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 432答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个窗体，根据表 4 8设置窗体的相关属性 步骤 2：向窗体中添加一个标签控件，根据表 4 9设置控件的相关属性 步骤3：向窗体中添加一个文本框控件，根据表 4 10设置控件的相关属性，设置后窗体的效果如
7、图 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：调试并运行
8、程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (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 E
9、lse 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 Tim
10、er1 Enabled False MsgBox“时间到 !“ Else t t 1 m Int(t 60) s t Mod 60 Labe14 Caption “剩余 “ & m & “分 “& s &“秒 “ End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题项目工程。 步骤 2：打开代码编辑窗口，填入相应的代码以实现题目的功能。 参考答案 Private Sub Calculate(s As String， d()As Vailant) Dim ch As String Dim i As Integer For i 1 To Len(s) chAsc(LCase(Mid(s,i,1) If ch 97 And ch 122 Then d(ch 96,1) Chr(ch) d(ch 96,2) d(ch 96,2) 1 End If End Sub 步骤 3：调试并运行程序，结果如图 4 10所示，关闭程序后按题目要求存盘。
