1、国家二级 VB机试（上机操作）模拟试卷 337及答案与解析 一、基本操作题 1 (1)在名称为 Form1标题为 “选课 ”的窗体上画一个复选框数组，名称为 CH1，共有四个复选框，按顺序其标题分别是 “数学 ”、 “语文 ”、 “外语 ”、 “计算机 ”，其中 “语文 ”、 “计算机 ”复选框处于选中状态，运行时的窗体如图 3 147所示。请画控件并设置相应属性。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Form1的窗体上画一个名称为HS1的水平滚动条，其刻度值范围为 1 100：画一个命令按钮，名称为 C1，标题为
2、 “移动滚动框 ”。请编写适当的事件过程，使得在运行时，每单击命令按钮一次(假定单击次数少于 10次 )，滚动框向右移动 10个刻度。运行时的窗体如图 3-148所示。要求程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 vbsi3 vbp，相应的窗体文件名为vbslj3 frm。在窗体上有一个命令按钮，其名称为 cmdAdd，标题为 “添加 ”；有一个文本框，名称为 txtSentense，初始内容为空白；有一个列表框，名称为IstWord
3、。程序运行后，在文本框中输入一个英文句子 (由多个单词组成，各单词之间用一个空格分开 )，然后单击命令按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图 3-64所示。该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 程序源码： Private Sub cmdAdd_Click()Dim S1 As String， S2 As StringDim I1 As Integer S1=?I1=1Do Do While Mid(S1， I1， 1)?
4、 And I1 注意：不得修改已经给出的程序。在结束程序运行之前，必须先单击 “交换 ”单选按钮，后单击 “连接 ”单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。 程序源码： Private Sub Form Unload(Cancel AsInteger) Open“Out4 txt“ For Output As #1 Print #1， Txt1 Text， Txt2 Text， txtReSult Text Close #1End Sub 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，相应的窗体文件为 sjl5 frm。窗体上三个命令按钮的名
5、称分别是 Command1、 Command2和 Cornmand3，标题分别是“显示 ”、 “统计 ”和 “保存 ”。运行程序时，单击 “显示 ”按钮，从文件 in5 txt中读取文本，并显示在文本框 Text1中，如图 3 92所示。单击 “统计 ”按钮，则统计Text1中字母 R、 T、 D(不区分大小写 )出现的次数，统计结果分别保存在窗体变量intR、 intT、 intD中，同时显示在文本框。 Text2中 (显示格式不限 )。单击 “保存 ”按钮，可将 intR、 intT、 intD中的数据保存到考生文件夹下 outS txt文件中。要求： 1)去掉 “显示 ”按钮事件过程中的
6、注释，把程序中的 ?改为能实现上述要求的正确内容。 2)编写统计字母 R、T、 D出现次数的事件过程。 3)不要改动各控件的属性设置和程序的其他部分。最后把修改后的文件用原文件名存盘。 国家二级 VB机试（上机操作） 模拟试卷 337答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个 “标准 EXE”工程。 步骤 2：在窗体 Form1中加入一个复选框，并用 “复制 ”和 “粘贴 ”的方法，生成包含四个元素的复选框数组。 步骤 3：分别设置窗体和复选框数组中各元素的相关属性。 步骤 4：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个 “标准 EXE”工程，按要求
7、画出控件并设置相应属性。 步骤 2：在代码编辑窗口，编写命令按钮的 Click事件过程。参考代码： PriVate Sub Cl Click() HS1 Value=HSl Value+10 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 (1)本题只需按要求画出控件数组，并设置其 Value属性。 (2)本题只需要在单击命令按钮时改变滚动条的 Value值即可。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开考生文件夹下的工程文件 vbsj3 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： S1=tx
8、tSentense TextDo While Mid(S1， I1， 1) “ “And I1 步骤 2：在代码编辑窗口，编写 3个按钮的单击事件过程。 参考代码： Private Sub optChange_Click()Dim temp As Stringtemp=Txt1 TextTxt1 Text=Txt2 TextTxt2 Text=tempoptChange Visible=FalseEnd SubPriVate Sub optLink Click()txtResult Text=Txt1 Text & Txt2 TextEnd Sub 步骤 3：按要求将文件保存至考生文件夹中。
9、【试题解析】 (1)程序设计思路：从文本框的第 1个字符开始依次检查其后面的每一个字符，若发现空格则将其之前或两个空格之间的字符串作为一个单词添加到列表框中。在 Do循环 (指内循环，循环条件为：取出的字符为非空格字符且取字符的起始位置没有超出文本框的总 字符数，表达式为： Mid(S1， I1， 1)“ “And I1键运行程序，先单击 “显示 “按钮，接着单击 “统计 ”按钮，最后单击 “保存 ”按钮。 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 根据题目源程序，要使单击 “显示 ”按钮时，从文件 in5 txt中读取文本，并显示在文本框 Text1中，需要首先以 Input方式打开文件，然后使用Line Input#语句将文件号指明的文件中的内容读入到指定的字符串变量中，然后将该变量赋给文本框的 Text属性。 要在单击 “统计 ”按钮时，统计字母 “R”、 “T”、 “D”的出现次数，可在 “统计 ”按钮的单击事件过程中，通过 For循环用 Mid函数逐一取出 strl中的每个字符进行判断，若其为对应字符，则对应的计数器增加 1。循环结束时，三个计数器变量中的值就是该字符出现的次数。
