1、国家二级 VB 机试（上机操作）-试卷 113 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)存名称为 Forml 的窗体上画一个名称为 Listl 的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。再建立一个下拉菜单，菜单标题为“文件”，名称为 File，此菜单下含有一个子菜单项，标题为“显示列表框”，名称为 Show，初始状态为选中，运行时的效果如图 2130 所示。 注意：存盘时，将文件保存至考生文件夹下，目窗体文件名为 sjtlfrm
2、，工程文件名为 sitlvbp。 (2)新建一个名称为 Forml，标题为“使用输入对话框”的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窝体时，出现输入对话框，该对话框的标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。如图 2131 所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt2frm，工程文件名为 sjt2vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是：在运行时，如果选中一个单
3、选按钮和一个或两个复选框，并单击“确定”按钮，则对文本框中的文字做相应的设置，如图 2100 所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。 注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按饥和至少一个复选框，并单击“确定”按钮：必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在窗体上画一个文本框，名称为 Text1(可显示多行)，然后冉画三个命令按钮，名称分别为Command1、Command2 和 Com
4、mand3，标题分别为“读数”、“统计，和“存盘”，如图 267 所示。程序的其功能是：单击“读数”按钮，则把考生目录下的 in5txt 文件中的所有英文 7 符放入 Text1(可多行显示)；单击“统计”按钮，找出并统计英文字母 i、j、k、l、m、n(不区分大小写)各自出现的次数；单击“存盘”按钮，将字母 in 出现次数的统计结果依次存到考生目录下的顺序文件 out5txt 中。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt5vbp，窗体文件名为 sjt5frm。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 113 答案解析(总分：6.00，做题时间：90 分钟
5、)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)存名称为 Forml 的窗体上画一个名称为 Listl 的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。再建立一个下拉菜单，菜单标题为“文件”，名称为 File，此菜单下含有一个子菜单项，标题为“显示列表框”，名称为 Show，初始状态为选中，运行时的效果如图 2130 所示。 注意：存盘时，将文件保存至考生文件夹下，目窗体文件名为 sjtlfrm，工程文件名为 sitlvbp。 (2)新建一个名称为 Forml，标题为“使用输入对话框”的窗
6、体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窝体时，出现输入对话框，该对话框的标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。如图 2131 所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt2frm，工程文件名为 sjt2vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，在窗体 Forml 中画一个名为 Listl 的列表框，在其 List 属性中添加三个项目，依次为“北京”、“上海”和“天津”，注意每输入完一项
7、后按 键换行再输入下一项。 步骤 2：新建一个“标准 EXE”工程，选择【工具】【菜单编辑器】命令，打开菜单设计器，如表 370 中的设置建立菜单项。 * 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”上程，将窗体 FormI 的Caption 属性设置为“使用输入对话框”。 步骤 2：打开代码编辑窗口，编写以下事什过程： 参考代码：Private Sub Form_Click() InputBox”请输入”，”等级考试”，”BasiC” End Sub 步骤 3：按要求将文件保存至考生文件夹中。)解析：二、简单应用题(总题数：1，分
8、数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，并单击“确定”按钮，则对文本框中的文字做相应的设置，如图 2100 所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。 注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按饥和至少一个复选框，并单击“确定”按钮：必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件下
9、的本题工程文件 sit3vbp。 步骤 2：打开代码编辑窗口，编写“确定”按钮的 Click 事件过程，代码如下。 参考代码： Private Sub CommandlC1ick() If OplValue Then TextlFontName=OplCaption E1seI f Op2Value Then TextlFontName=Op2Caption End If If ChlValue=1 Then TextlFontUnderline=True Else TextlFontUnderiime=False End If If Ch2Value=1 Then TextlFontItal
10、 iC=True E1Se TextlFontItaliC=False End If End Sub 步骤 3：按键运行程序，选中一个单选按钮和至少一个复选框，并单击“确定”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 【特别提示】文本框的 FontUnderline 属性值和 Fontltalic 属件值一设置为 True，将始终有效，直至将该属性值设置为 False。 第 2 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： Privat
11、e Sub CommandlClick() Dim n As Long CD1FileName=” CD1Filter=所有文件|*|文本文件|*txt|Word 丈档|*doc” CD1FilterIndex=2 CD1Action=1 If CD1FileName”Then Open CDIFileName For Input As# n=LOF(1) Textl=Inputs(n，#1) ciose#1 End If End Sub 步骤 2：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在窗体上画一个文本框，名称为 Text1(可显示多行)，然
12、后冉画三个命令按钮，名称分别为Command1、Command2 和 Command3，标题分别为“读数”、“统计，和“存盘”，如图 267 所示。程序的其功能是：单击“读数”按钮，则把考生目录下的 in5txt 文件中的所有英文 7 符放入 Text1(可多行显示)；单击“统计”按钮，找出并统计英文字母 i、j、k、l、m、n(不区分大小写)各自出现的次数；单击“存盘”按钮，将字母 in 出现次数的统计结果依次存到考生目录下的顺序文件 out5txt 中。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt5vbp，窗体文件名为 sjt5frm。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：新建一个“标准 EXE”工程，如表 339 所示，在窗体中画出控件并设置其相关属性。 )解析：
