1、国家二级 VB 机试（上机操作）-试卷 120 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1 的窗休上添加一个名称为 List1 的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。同时建立一个下拉菜单，其名称为 File，标题为“文件”，此菜单含有一个子菜单项，标题为“显示列表框”，名称为 Show，初始状态为被选中，运行时的效果如图所示。 注意：存盘时，将文件保存全考生文件夹下，且窗体文件名保存为 sjt1frm，工程文件名保存为 sjt1vbp。 (2)新建一个名称为 Form1，标题为“使用输入对
2、话框”的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窗体时，出现输入埘话框，其标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”，如图所示。 注意：存盘时，将文件保存至考生文件央下，且窗体文件名保存为sjt2frm，工程文件名保存为 sjt2vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。（分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是通过键盘向文本框中输人大、小写字母和数字。单击标题为“统计”的命令按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，
3、并将统计结果分别在标签控件数组 x 中显示，如图所示。 在给出的窗体文件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹中有一个工程文件 sjt5vbp。窗体外观如图所示。运行程序，单击“读数据”按钮，读入文件中的数据到字符串变量中并显示在 Label2 标签中。单击“排序”命令按钮时，对读入的数据从小到大进行排序，并将排序结果在窗体的 Label4 控件中显示。 要求：工程文件中已给出部分程
4、序，“读数据”命令按钮的事什过稗不完整，清去掉程序中的注释符，把程序中的?改为正确的内容。请编写“排序”命令按钮的事什过程中的部分程序代码。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。程序调试通过后，两个命令按钮的事什过程必须至少各执行一次。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 120 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1 的窗休上添加一个名称为 List1 的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。同时建立一个下拉菜单，其名称为
5、 File，标题为“文件”，此菜单含有一个子菜单项，标题为“显示列表框”，名称为 Show，初始状态为被选中，运行时的效果如图所示。 注意：存盘时，将文件保存全考生文件夹下，且窗体文件名保存为 sjt1frm，工程文件名保存为 sjt1vbp。 (2)新建一个名称为 Form1，标题为“使用输入对话框”的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窗体时，出现输入埘话框，其标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”，如图所示。 注意：存盘时，将文件保存至考生文件央下，且窗体文件名保存为sjt2frm，工程文件名保存为 sjt2vbp。要求程序中不得使
6、用变量，每个事件过程中只能写一条语句。（分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：建立界面添加相应的空间呢并设置控件的属性。程序中涉及的控件及属性见表 361，菜单编辑属性见表 362，菜单项的 Checked 属性设置为 True。)解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是通过键盘向文本框中输人大、小写字母和数字。单击标题为“统计”的命令按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别在标签控件数组 x 中显示，如图所示。 在给出的窗体文件中已经添加了全部控
7、件，但程序不完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案 Private Sub Command1_Click() Dim n As Integer Dim b As Integer Dim a(3)As Integer sRTrim(Text1Text)将文本框中的内容取出并去掉右边空格 nLen(Text1Text)用
8、Len 函数确定字符串长度 For i1 To n bAsc(Mid(s，i，1)将取出的字符转换为 ASCII 码值 Select Case b确定 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 i0 To 2 x(i)a(i)将所得个数分别显示在标签控件数组 x 中 Next End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件，在 List1 中添加“文本框
9、“标签”、“列表框”和“单选钮”等选项。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”将问号改为正确的内容。 参考答案 Private Sub remove(La As ListBox，Lb As ListBox) For i0 To LaListCount1 LbAddItem LaList(i) Next LaClear End Sub Private Sub Command1 Click() Call remove(List1，List2) End Sub Private Sub Command2 C1ick() Call remove(LiSt2，List1) End Sub 步
10、骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹中有一个工程文件 sjt5vbp。窗体外观如图所示。运行程序，单击“读数据”按钮，读入文件中的数据到字符串变量中并显示在 Label2 标签中。单击“排序”命令按钮时，对读入的数据从小到大进行排序，并将排序结果在窗体的 Label4 控件中显示。 要求：工程文件中已给出部分程序，“读数据”命令按钮的事什过稗不完整，清去掉程序中的注释符，把程序中的?改为正确的内容。请编写“排序”命令按钮的事什过程中的部分程序代码。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文
11、件名进行存盘。程序调试通过后，两个命令按钮的事什过程必须至少各执行一次。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开木题工程文件。 步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 参考答案 For i1 To 10循环比较大小实现排序 fTrue设置标签 For j1 To 9 If a(j)a(j1)Then相邻两数比较将最小值放前面 ta(j) a(j)a(j1) a(j1)t fFalse当有交换就置标签为假 End If Next j If f Then如果上次循环没有交换数据，则证明序列已排序好，则 f 为真退出循环 Exit For End If Next i 步骤 3：凋试并运行程序，关闭程序后按题目要求存盘，如图 334。 )解析：
