1、国家二级 VB 机试（上机操作）模拟试卷 306 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Form1 的窗体上画一个名称为 List1 的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。再建立一个下拉菜单，菜单标题为“文件”，名称为 File，此菜单下含有一个子菜单项，标题为“显示列表框”，名称为 Show，初始状态为选中，运行时的效果如图 3165 所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt1frm，
2、工程文件名为 sjt1vbp。(2)新建一个名称为 Form1，标题为“使用输入对话框”的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，该对话框的标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。如图 3166所示。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是通过键盘向文本框中输入大、小写字母及数字。单击“统计”按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别显示在标签控件数组 x 中，如图 3167 所示。在给出的
3、窗体文件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)考生文件夹下的工程文件 sjt4vbp 中有两个名称分别为 List1、List2 的列表框控件，两个名称分别为 Command1、Command2，标题分别为“”、“”的命令按钮。请在 List1 中添加“文本框”、“标签”、“列表框”、“单选钮”等表项，如图 3168 所示。程序的功能是：单击“”按钮，将 List1 中的表项添加到 List2 中，同时将 List1 清空；单击“”按钮，将 List2 中的
4、表项添加到 List1 中，同时将 List2 清空。程序已给出，但是不完整。请将程序中的注释符去掉，把“?”改为正确的内容，实现上述功能。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹中有一个工程文件 sjt5vbp。窗体外观如图 3169 所示。运行程序，单击“读数据”按钮，文件中的数据被读入字符串变量中并显示在 Label2 标签中。单击“排序”按钮时，对读入的数据从小到大排序，并将排序结果显示在窗体的 Label4 控件中。要求：工程文件中己给出部分程序，“读数据”命令按钮的事
5、件过程不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。请编写“排序”命令按钮的事件过程中的部分程序代码。 （分数：2.00）_国家二级 VB 机试（上机操作）模拟试卷 306 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Form1 的窗体上画一个名称为 List1 的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。再建立一个下拉菜单，菜单标题为“文件”，名称为 File，此菜单下含有一个子菜单项，标题为“显示列表框”，名称为
6、 Show，初始状态为选中，运行时的效果如图 3165 所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt1frm，工程文件名为 sjt1vbp。(2)新建一个名称为 Form1，标题为“使用输入对话框”的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，该对话框的标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。如图 3166所示。 （分数：2.00）_正确答案：(正确答案：第 1 小题 步骤 1：新建一个“标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：新建一个“标准 EXE”工程，选择工具菜单编辑器命令，
7、打开菜单设计器按要求设置建立菜单项。 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 步骤 1：新建一个“标准 EXE”工程，将窗体 Form1 的 Caption 属性设置为“使用输入对话框”。 步骤 2：打开代码编辑窗口，编写以下事件过程。 参考代码： Private Sub Form_Click() InputBox“请输入“，“等级考试“，“Basic“ End Sub 步骤3：按要求将文件保存至考生文件夹中。)解析：解析：第 1 小题：本题只需按要求画出控件和菜单并设置其相关属性即可。 第 2 小题：本题需在窗体的 Click 事件过程中，编写一行 InputBox 语句，
8、其中 Prompt 参数值为“请输入”，Title 参数值为“等级考试”，Default 参数值为“Basic”。二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是通过键盘向文本框中输入大、小写字母及数字。单击“统计”按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别显示在标签控件数组 x 中，如图 3167 所示。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)
9、考生文件夹下的工程文件 sjt4vbp 中有两个名称分别为 List1、List2 的列表框控件，两个名称分别为 Command1、Command2，标题分别为“”、“”的命令按钮。请在 List1 中添加“文本框”、“标签”、“列表框”、“单选钮”等表项，如图 3168 所示。程序的功能是：单击“”按钮，将 List1 中的表项添加到 List2 中，同时将 List1 清空；单击“”按钮，将 List2 中的表项添加到 List1 中，同时将 List2 清空。程序已给出，但是不完整。请将程序中的注释符去掉，把“?”改为正确的内容，实现上述功能。注意：不能修改程序的其他部分和控件属性。最后
10、把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：第 1 小题 步骤 1：打开考生文件夹中的本题工程文件 sjt3vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： n=Len(Text1Text) b=Asc(Mid(s，i，1) Select Case b For i=0To2 x(i)=a(i) 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 步骤 1：打开考生文件夹中的本题工程文件 sjt4vbp，通过 List1 列表框的 List 属性添加四个项目：文本框、标签、命令按钮、单选按钮。 步骤 2：在代码编辑窗口，
11、去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： For i=0To LaListCount-1 LbAddItem LaList(i) Next LaClear 步骤 3：按要求将文件保存至考生文件夹中。)解析：解析：第 1 小题：本题源程序在 For 循环体中(其中循环终值应为文本框的字符长度，即n=Len(Text1Text)，用 Mid 函数逐一取出文本框中的每个字符，并用 Asc 函数返回其 ASCII 码。若取出字符的 ASCII 码在 4857 之间，则记录数字个数的数组变量 a(0)增 1；若 ASCII 码在 6590 之间，则记录大写字母个数的数组变量 a(
12、1)增 1；若 ASCII 码在 97122 之间，则记录小写字母个数的数组变量a(2)增 1。 第 2 小题：本题列表框中列表项的移动功能，是通过调用 remove 过程来实现的，在 remove过程中通过 For 循环(循环变量终值为 LaListCount-1)将列表框 La 中的各项逐一添加到列表框 Lb 中，全部项目添加完成后，用列表框的 Clear 方法清除该列表框中的所有项目。三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹中有一个工程文件 sjt5vbp。窗体外观如图 3169 所示。运行程序，单击“读数据”按钮，文件中的数据被读入字符串变量中并显示在 Label2
13、 标签中。单击“排序”按钮时，对读入的数据从小到大排序，并将排序结果显示在窗体的 Label4 控件中。要求：工程文件中己给出部分程序，“读数据”命令按钮的事件过程不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。请编写“排序”命令按钮的事件过程中的部分程序代码。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开考生文件夹中的本题工程文件 sjt5vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为止确的内容。 参考代码： Do While Not EOF(1) s=s&str(a(i) 步骤 2：在代码编辑窗口指定位置编写以下代码。 参考代码： num=UBoun
14、d(a) For i=1To num-1 For j=iTo num If a(i)a(j)Then t=a(i) a(i)=a(j) a(j)=t End If Next Next 步骤 3：按F5键运行程序，先单击“读数据”按钮，再单击“排序”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤4：按要求将文件保存至考生文件夹中。)解析：解析：设计思路：在“读数据”按钮的单击事件中，首先使用 Do While 当型循环结构从文件中读取全部数据，并以 Not EOF(文件号)(非文件结尾)作为循环条件，通过 Input#语句将打开文件中的数据逐一读出后赋值给 a(i)，然后将数组连接起来显示在标签中。 在“排序”按钮的单击事件过程中，源程序利用“冒泡法”对记录数组中的元素从小到大进行排序。
