1、国家二级 VB机试（上机操作）模拟试卷 140及答案与解析 一、基本操作题 1 在名称为 Forml的窗体上添加一个名称为 List1的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。同时建立一个下拉菜单，其名称为 File，标题为 “文件 ”，此菜单含有一个子菜单项，标题为 “显示列表框 ”，名称为 Show，初始状态为被选中，运行时的效果如图所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为 sjt1 frm，工程文件名保存为 sjt1 vbp。 2 新建一个名称为 Form1，标题为 “使用输入 对话框 ”的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运
2、行程序并单击窗体时，出现输入对话框，其标题为 “等级考试 ”，提示信息为 “请输入 ”，默认值为 “： Basic”，如图所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为 sjt2 fm，工程文件名保存为 sjt2 vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是通过键盘向文本框中输入大、小写字母和数字。单击标题为 “统计 ”的命令按钮，分别统计输入 字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别在标签控件数组 x中显示，如图所示。在给出的窗体文件中已经添加了全部控件，但
3、程序不完整。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。4 考生文件夹下的工程文件 sjt4 vbp中有两个名称分别为 List1、 Lst2的列表框控件，两个名称分别为 Command1、 Command2，标题分别为 “ ”、 “ ”的命令按钮。请在 List1中添加 “文本框 ”、 “标签 ”、 “列表框 ”、 “单选钮 ”等选项，如图所示。程序的功能是：单击 “ ”，将 List1中的表项添加到 List2中，同时将 List1中选中的表项清空；单击 “ ”，将 List2中的表项添加到 List
4、1处中，同时将List2中选中的表项清空。程序已给出，但是不完整。请将程序中的注释符去掉，把 ?改为正确的内容，实现上述的功能。注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 三、综合应用题 5 在考生文件夹中有一个工程文件 sjt5 vbp。窗体外观如图所示。运行程序，单击“读数据 ”按钮 ，读入文件中的数据到字符串变量中并显示在 Label2标签中。单击“排序 ”命令按钮时，对读入的数据从小到大进行排序，并将排序结果在窗体的Label4。控件中显示。要求：工程文件中已给出部分程序， “读数据 ”命令按钮的事件过程不完整，请去掉程序中的注释符，把程序中的 ?改
5、为正确的内容。请编写 “排序 ”命令按钮的事件过程中的部分程序代码。注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。程序调试通过后，两个命令按钮的事件过程必须至少各执行一次。国家二级 VB机试（上机操作）模拟试卷 140答案与解析 一、基本操作题 1 【正确答案】 操作步骤 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表 3 61，菜单编辑属性见表 3 62，菜单项的Checked属性设置为 True。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 2 【正确答案】 操作步骤 步骤 1：建立界面，并设置窗体的 Caption属
6、性为 “使用输入对话框 ”。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考代码 Private Sub Form_Click() InputBox“请输入 “， “等级考试 “， “Basic“ End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 3 【正确答案】 操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Private Sub Command1_Click() Dim n As Integer Dim b As Integer
7、 Dim a(3)As Integer S=RTrim(Text1 Text)将文本框中的内容取出并去掉右边空格 n=Len(Text1 Text)用 Len函数确定字符串长度 For i=1 To n b=Asc(Mid(s， i， 1)将取出的字符转换为 ASCII码值 Select Caseb确定 b的范围，从而得知它的类型 Case 48 To 57 a(0)=a(0)+1 Case 65 To 90 a(1)=a(1)+1 Case 97 To 122 a(2)=a(2)+1 End Select Next For i=0 To2 x(i)=a(i)将所得个数分别显示在标签控件数组
8、X中 Next End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 4 【正确答案】 操作步骤 步骤 1：打开本题工程文件，在 List1中添加 “文本框 ”、 “标签 ”、 “列表框 ”和 “单选钮 ”等选项。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Private Sub remove(La As ListBox， Lb As ListBox) For i=0 ToLa ListCount-1 Lb AddItemLa List(i) Next La clear End Sub Privat
9、e Sub Command1 Click() Call remove(List1， List2) End Sub Private Sub Command2 Click() Call remove(List2， List1) End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 5 【正确答案】 操作步骤 步骤 1：打开本题工程文件。步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。参考代码 For i=1 To 10循环比较大小实现排序 f=True设置标签 For j=1 To 9If a(j) a(j+1)Then相邻两数比较将最小值放前面 t=a(j)a(j)=a(j+1)a(j+1)=tf=False当有交换就置标签为假 End IfNext jIf f Then如果上次循环没有交换数据，则证明序列已排序好，则 f为真退出循环 Exit ForEnd IfNext i步骤 3：调试并运行程序，关闭程序后按题目要求存盘，如图 3 34。
