1、国家二级 VB机试（上机操作）模拟试卷 115及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 List1的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。再建立一个下拉菜单，菜单标题为 “文件 ”，名称为File，此菜单下含有一个子菜单项，标题为 “显示列表框 ”，名称为 Show，初始状态为选中，运行时的效果如图 3-130所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtl frm，工程文件名为 sjtl vbp。 (2)新建一个名称为 F
2、orml，标题为 “使用输入对话框 ”的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，该对话框的标题为 “等级考试 ”，提示信息为 “请输入 ”，默认值为 “Basic”。如图 3 131所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sit2 frm，工程文件名为 sjt2 vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 二、简单应用题 2 (1)在考生目录下有一个工程文件 sit3 vbp， 窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为 “北京 ”、“上海 ”、 “广
3、州 ”；再添加一个标题为 “显示 ”的命令按钮，如图 3-18所示。程序的功能是在运行时，如果选中一个单选按钮后，单击 “显示 ”按钮，则根据单选按钮的选中情况，在窗体上显示 “我的出生地是北京 ”、 “我的出生地是上海 ”或 “我的出生地是广州 ”。要求如下： 依次添加单选按钮标题为 “北京 ”、“上海 ”、 “广州 ”；设初始选中的是 “上海 ”，添加命令按钮标题为 “显示 ”。 去掉程序中的注释符，把程序中的 ?改为正确的内容 ，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。 (2)在考生目录下有一个工程文件 sit4 vbp，
4、请在 Forml窗体中画三个标签，名称分别为 B1、 B2、 L1，标题分别为 “字号 ”、 “字体 ”、 “计算机等级考试 ”，其中L1的高为 500，宽为 3000；再在 B1、 B2标签的下面画两个组合框，名称分别为Cbl、 Cb2，并为 Cbl添加项目： “10”、 “15”、 “20”，为 Cb2添加项目： “黑体 ”、“隶书 ”、 “宋体 ”。请编写适当的事件过程，使得在运行时，当在 Cb1中选一种字号、 Cb2中选一种字体时，标签 L1中的文字立即变为选定的字号和字体。如图319所示。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须选择一种字号和字体。必须用
5、窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘，程序中不得使用任何变量。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，相应的窗体文件为 sjt5 frm。窗体上三个命令按钮的名称分别是 Command1、 Command2和 Command3，标题分别是“显示 ”、 “统计 “和 “保存 ”。运 行程序时，单击 “显示 ”按钮，从文件 in5 txt中读取文本，并显示在文本框 Text1中，如图 310所示。单击 “统计 ”按钮，则统计 Textl中字母 R、 T、 D(不区分大小写 )出现的次数，统计结果分别保存在窗体变量 intR、intT、 int
6、D中，同时显示在文本框 Text2中 (显示格式不限 )。单击 “保存 ”按钮，可将intR、 intT、 intD中的数据保存到考生文件夹下 out5 txt文件中。要求：1)去掉 “显示 ”按钮事件过程中的注释，把程序中的 ?改为能实现上述要求的正确内容。 2)编写统计字母 R、 T、 D出现次数的 事件过程。 3)不要改动各控件的属性设置和程序的其他部分。最后把修改后的文件用原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 115答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：新
7、建一个 “标准 EXE”工程，选择【工具】 【菜单编辑器】命令，打开菜单设计器按要求设置建立菜单项。 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，将窗体 Forml的 Caption属性设置为 “使用输入对话框 ”。 步骤 2：打开代码编辑窗口，编写以下事件过程： 参考代码： Private Sub Form Click() InputBox“请输入 ”， “等级考试 ”， “Basic” End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题【操作步骤】步骤 1：打开考生文件
8、夹中的本题工程文件sjt3 vbp，依次选中窗体中的各单选按钮和命令按钮，设置它们的相关属性，其属性及值如 表 4-12所示。 步骤 2：双击 “显示 ”命令按钮，打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： 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：打开考生文件夹中的本题工程文件 sjt4 vbp，
9、如表 4 13画出三个标签和两个组合框并设 置属性。步骤 2：在代码编辑窗口，编写两个组合框的单击的单击事件过程。参考代码： Private Sub Cbl Click() L1 FontSize=Cbl TextEnd SubPrivate Sub Cb2 Click() L1 Font=Cb2 TextEnd Sub步骤 3：按键运行程序并选择一个字号和字体，然后单击窗体右上角的关闭按钮结束程序。步骤 4：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 根据题目源程序，要使单击 “显示 ”按钮时，从文件 in5 txt中读取文本，并 显示在文本框。 Text1中，需要首
10、先以 Input方式打开文件，然后使用Line Input#语句将文件号指明的文件中的内容读入到指定的字符串变量中，然后将该变量赋给文本框的 Text属性。 要在单击 “统计 ”按钮时，统计字母 “R”、 “T”、 “D”的出现次数，可在 “统计 ”按钮的单击事件过程中，通过 For循环用 Mid函数逐一取出 str1中的每个字符进行判断，若其为对应字符，则对应的计数器增加 1。循环结束时，三个计数器变量中的值就是该字符出现的次数。 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit5 vbp，在代码编辑窗口，去掉程序中的注释符 “*”，将问号 “?”改为正确的内容。 参考代码：
11、Line Input #1， strl Textl Text = 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 Text2 Text： intR “ ” intT “ ” intD End Sub 步骤 3：按 键运行程序，先单击 “显示 ”按钮，接着单击 “统计 ”按钮，最后单击“保存 ”按钮。 步骤 4：按要求将文件保存至考生文件夹中。
