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