1、国家二级 VB 机试（上机操作）-试卷 84 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称为 List1 的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。再建立一个下拉菜单，菜单标题为“文件”，名称为 File，此菜单下含有一个子菜单项，标题为“显示列表框”，名称为 Show，初始状态为选中，运行时的效果如图 3-130 所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtlfrm，
2、工程文件名为 sjtlvbp。(2)新建一个名称为 Forml，标题为“使用输入对话框”的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，该对话框的标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。如图3131 所示。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生目录下有一个工程文件 sit3vbp，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为“北京”、“上海”、“广州”；再添加一个标题为“显示”的命令按钮，如图 3-18 所示。程序的功能是在运行时，
3、如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在窗体上显示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是广州”。要求如下： 依次添加单选按钮标题为“北京”、“上海”、“广州”；设初始选中的是“上海”，添加命令按钮标题为“显示”。去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。(2)在考生目录下有一个工程文件 sit4vbp，请在 Forml 窗体中画三个标签，名称分别为 B1、B2、L1，标题分别为“字号”、“字体”、“计算机等级考试”，其中 L1 的高为
4、 500，宽为 3000；再在 B1、B2 标签的下面画两个组合框，名称分别为 Cbl、Cb2，并为 Cbl 添加项目：“10”、“15”、“20”，为 Cb2 添加项目：“黑体”、“隶书”、“宋体”。请编写适当的事件过程，使得在运行时，当在 Cb1 中选一种字号、Cb2 中选一种字体时，标签 L1 中的文字立即变为选定的字号和字体。如图 319 所示。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，相应的窗体文件为 sjt5frm。窗体上三个命令按钮的名称分别是 Command1、Command2 和 Command3，标题
5、分别是“显示”、“统计“和“保存”。运行程序时，单击“显示”按钮，从文件 in5txt 中读取文本，并显示在文本框 Text1 中，如图 310 所示。单击“统计”按钮，则统计 Textl 中字母 R、T、D(不区分大小写)出现的次数，统计结果分别保存在窗体变量intR、intT、intD 中，同时显示在文本框 Text2 中(显示格式不限)。单击“保存”按钮，可将intR、intT、intD 中的数据保存到考生文件夹下 out5txt 文件中。要求： （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 84 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，
6、分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称为 List1 的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。再建立一个下拉菜单，菜单标题为“文件”，名称为 File，此菜单下含有一个子菜单项，标题为“显示列表框”，名称为 Show，初始状态为选中，运行时的效果如图 3-130 所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtlfrm，工程文件名为 sjtlvbp。(2)新建一个名称为 Forml，标题为“使用输入对话框”的窗体，该窗体上无任何控件。请编写适
7、当的事件过程，使得运行程序并单击窗体时，出现输入对话框，该对话框的标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。如图3131 所示。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：新建一个“标准 EXE”工程，选择【工具】【菜单编辑器】命令，打开菜单设计器按要求设置建立菜单项。 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤1：新建一个“标准 EXE”工程，将窗体 Forml 的 Caption 属性设置为“使用输入对话框”。 步骤 2：打开代
8、码编辑窗口，编写以下事件过程： 参考代码： Private Sub Form Click() InputBox“请输入”，“等级考试”，“Basic” End Sub 步骤 3：按要求将文件保存至考生文件夹中。)解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生目录下有一个工程文件 sit3vbp，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为“北京”、“上海”、“广州”；再添加一个标题为“显示”的命令按钮，如图 3-18 所示。程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在窗体上显示
9、“我的出生地是北京”、“我的出生地是上海”或“我的出生地是广州”。要求如下： 依次添加单选按钮标题为“北京”、“上海”、“广州”；设初始选中的是“上海”，添加命令按钮标题为“显示”。去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。(2)在考生目录下有一个工程文件 sit4vbp，请在 Forml 窗体中画三个标签，名称分别为 B1、B2、L1，标题分别为“字号”、“字体”、“计算机等级考试”，其中 L1 的高为 500，宽为 3000；再在 B1、B2 标签的下面画两个组合框，名称分别为
10、Cbl、Cb2，并为 Cbl 添加项目：“10”、“15”、“20”，为 Cb2 添加项目：“黑体”、“隶书”、“宋体”。请编写适当的事件过程，使得在运行时，当在 Cb1 中选一种字号、Cb2 中选一种字体时，标签 L1 中的文字立即变为选定的字号和字体。如图 319 所示。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt3vbp，依次选中窗体中的各单选按钮和命令按钮，设置它们的相关属性，其属性及值如表 4-12 所示。 步骤 2：双击“显示”命令按钮，打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。
11、 参考代码： Private Sub C1 Click() For i=0 To 2 If Opl(i)Value=True Then Print “我的出生地是” + Opl(i)Caption End If Next End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4vbp，如表 413 画出三个标签和两个组合框并设置属性。 )解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，相应的窗体文件为 sjt5frm。窗体上三个命令按钮的名称分别是 Comman
12、d1、Command2 和 Command3，标题分别是“显示”、“统计“和“保存”。运行程序时，单击“显示”按钮，从文件 in5txt 中读取文本，并显示在文本框 Text1 中，如图 310 所示。单击“统计”按钮，则统计 Textl 中字母 R、T、D(不区分大小写)出现的次数，统计结果分别保存在窗体变量intR、intT、intD 中，同时显示在文本框 Text2 中(显示格式不限)。单击“保存”按钮，可将intR、intT、intD 中的数据保存到考生文件夹下 out5txt 文件中。要求： （分数：2.00）_正确答案：(正确答案：根据题目源程序，要使单击“显示”按钮时，从文件 i
13、n5txt 中读取文本，并显示在文本框。Text1 中，需要首先以 Input 方式打开文件，然后使用 Line Input#语句将文件号指明的文件中的内容读入到指定的字符串变量中，然后将该变量赋给文本框的 Text 属性。 要在单击“统计”按钮时，统计字母“R”、“T”、“D”的出现次数，可在“统计”按钮的单击事件过程中，通过 For 循环用Mid 函数逐一取出 str1 中的每个字符进行判断，若其为对应字符，则对应的计数器增加 1。循环结束时，三个计数器变量中的值就是该字符出现的次数。 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit5vbp，在代码编辑窗口，去掉程序中的注释
14、符“*”，将问号“?”改为正确的内容。 参考代码：Line Input #1， strl TextlText = str1 步骤 2：按指定位置编写“统计”按钮的单击事件过程。 参考代码： PriVate sub Command2 一 click() Dim i As Integer intR=0： intT=0： intD=0 For i = 1 To Len(strl) If Mid(strl， i， 1) ： ”R” Or Mid (strl， i， 1) =“r”Then intR=intR+ 1 End If If Mid(strl， i， 1) = “T” Or Mid (st r1， i， 1) =“t”Then intT=intT+ 1 End If If Mid(str1，i，1) = “D” Or Mid (st r1， i， 1) =“d” Then intD=intD+ 1 EndIf Next Text2Text：intR “ ” intT “ ” intD End Sub 步骤 3：按键运行程序，先单击“显示”按钮，接着单击“统计”按钮，最后单击“保存”按钮。 步骤 4：按要求将文件保存至考生文件夹中。)解析：
