1、国家二级 VB机试（上机操作）模拟试卷 172及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)存名称为 Forml的窗体上画一个名称为 Listl的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。再建立一个下拉菜单，菜单标题为 “文件 ”，名称为File，此菜单下含有一个子菜单项，标题为 “显示列表框 ”，名称为 Show，初始状态为选中，运行时的效果如图 2 130所示。 注意：存盘时，将文件保存至考生文件夹下，目窗体文件名为 sjtl frm，工程文件名为 sitl vbp。 (2)新建一个名称为 F
2、orml，标题为 “使用输入对话框 ”的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窝体时，出现输入对话框，该对话框的标题为 “等级考试 ”，提示信息为 “请输入 ”，默认值为 “Basic”。如图 2131所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt2 frm，工程文件名为 sjt2 vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，并单击 “确定 ”按钮，则对文本框中的文字做相应的设置，如图
3、2 100所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。 注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按饥和至少一个复选框，并单击 “确定 ”按钮：必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sit4 vbp。窗体中已经给出 了所有控件。程序运行时，单击 “读入文件 ”按钮，将显示一个 “打开 ”对话框，可以在该对话框中选择考生文件夹下的文本文件 in4 txt，并把该文件的内容显示到 Text1文本框中。 要求：请去掉程序中的注释符
4、，并把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题 3 在窗体上画一个文本框，名称为 Text1(可显示多行 )，然后冉画三个命令按钮，名称分别为 Command1、 Command2和 Command3，标题分别为 “读数 ”、 “统计 ，和“存盘 ”，如图 2 67所示。程序的其功能是：单击 “读数 ”按钮，则把考生目录下的in5 txt文件中的所有英文 7符放入 Text1(可多行显示 )；单击 “统计 ”按钮，找出并统计英文字母 i、 j、 k、 l、 m、 n(不区分大小写 )各自出现的次
5、数；单击 “存盘 ”按钮，将字母 i n出现次数的统计结果依次存到考生目录下的顺序文件 out5 txt中。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt5 vbp，窗体文件名为 sjt5 frm。 国家二级 VB机试（上机操作）模拟试卷 172答案与解析 一、基本操 作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中画一个名为 Listl的列表框，在其 List属性中添加三个项目，依次为 “北京 ”、 “上海 ”和 “天津 ”，注意每输入完一项后按键换行再输入下一项。 步骤 2：新建一个 “标准 EXE”工程，选择【工
6、具】 【菜单编辑器】命令，打开菜单设计器，如表 3 70中的设置建立菜单项。步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”上程，将窗体FormI的 Caption属性设置为 “使用输入对话框 ”。 步骤 2：打开代码编辑窗口，编写以下事什过程： 参考代码： Private Sub Form_Click() InputBox”请输入 ”， ”等级考试 ”， ”BasiC” End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sit
7、3 vbp。 步骤 2：打开代码编辑窗口，编写 “确定 ”按钮的 Click事件过程，代码如下。 参考代码： Private Sub CommandlC1ick() If Opl Value Then Textl FontName=Opl Caption E1seI f Op2 Value Then Textl FontName=Op2 Caption End If If Chl Value=1 Then Textl FontUnderline=True Else Textl FontUnderiime=False End If If Ch2 Value=1 Then Textl FontIt
8、al iC=True E1Se Textl FontItaliC=False End If End Sub 步骤 3：按 键运行程序，选中一个单选按钮和至少一个复选框，并单击 “确定 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 【特别提示】文本框的 FontUnderline属性值和 Fontltalic属件值一设置为 True，将始终有效，直至将该属性值设 置为 False。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码：
9、 Private Sub CommandlClick() Dim n As Long CD1 FileName=” CD1 Filter=所有文件 |*|文本文件 |* txt|Word丈档 |* doc” CD1 FilterIndex=2 CD1 Action=1 If CD1 FileName”Then Open CDI FileName For Input As# n=LOF(1) Textl=Inputs(n， #1) ciose#1 End If End Sub 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：新建一个 “标准
10、EXE”工程，如表 3 39所示，在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编弓相应事件过程。 参考代码： Option Base 1 Dim sum(6)As Integer Private Sub Commandl C1ick() Open App Path ” in5 txt”For InputAs#1 Textl Text=Input(LOF(1)， #1) Close#1 End Sub Private Sub Command2 C1ick() For i=1 To 6 sum(i)=0 Next i If Len(Textl Text)=0 Then MsgBo
11、x”请先使用 “读数 ”功能 !” E1se For i=1 To Len(Textl Text) C=LCase(Mid(Textl Text， i， 1) Select Case c Case“i” sum(1)=Sum(1)+1 Case“j” sum(2)=Sum(2)+1 case“k” sum(3)=sum(3)+l Case“1” sum(4)=sum(4)+1 Case“m” sum(5)=sum(5)+1 Case“n” sum(6)=Sum(6)+1 End Select Next i End If End Sub Private Sub Command3 C1ick() Open App Path ”out5 txt”For Output As#1 For i=1 To 6 Print#1， sum(i) Next i Close#1 End Sub 步骤3：按要求将文件保存至考生文件夹中。
