1、国家二级 VB机试（上机操作）模拟试卷 98及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml标题为 “选课 ”的窗体上画一个复选框数组，名称为 CHl，共有四个复选框，按顺序其标题分别是 “数学 ”、 “语文 ”、 “外语 ”、 “计算机 ”，其中 “语文 ”、 “计算机 ”复选框处于选中状态，运行时的窗体如图 3143所示。请画控件并设置相应属性。注意：存盘时必须存放在考生文件夹下，工程文件名为 sitl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画一个名称为
2、HSl的水平滚动条，其刻度值范围为 1 100；画一个命令按钮，名称为 C1，标题为 “移动滚动框 ”。请编写适当的事件过程，使得在运行时，每单击命令按钮一次 (假定单击次数少于 10次 )，滚动框向右移动 10个刻度。运行时的窗体如图 3-144所示。要求程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sit2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，运行情况 如图 3-113所示。程序的功能是计算表达式的值： z=(x一 2)!+(x-3)!+(x-4)!+(x N)!
3、其中的 N和 x值通过键盘分别输入到两个文本框 Text1、 Text2中。单击名称为 Commandl、标题为 “计算 ”的命令按钮，则计算表达式的值，并将计算结果显示在名称为 Label1的标签中。在窗体文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确内容。要求：程序调试通过后，必须按照如图 3 113所示输入 N=5， x=12，然后计算 z的值，并将计算结果显示在标签 Labell中，否则没有成绩。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjl4 vbp。窗体上有名称为 L
4、abell的标签和名称为 Timerl的计时器控件。该程序的功能是在名称为 Labell的标签中循环显示不同的字符串。程序开始运行，在标签中显示 “第一项 ”(如图 3 114所示 )，且每隔 1秒钟依次显示 “第二项 ”、 “第三项 ”、 “第四项 ”，如此循环。在给出的窗体文件中已经有了全部控件和程序，但程序不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容 。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 (1)在考生文件夹下有工程文件 sjt5 vbp，窗体上有两个标题分别是 “读数据 ”和“统计 ”的命令按钮，请添加一个名称为
5、 Labell、标题为 “回文的个数为 ”的标签和一个名称为 Textl，初始值为空的文本框，如图 3一 15所示。程序功能如下： 单击“读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读到变量 s中。 单击 “统计 ”按钮，则统计 in5 dat文件 (该文件中仅含由空格间隔开的字母串 )中回文的个数，并 将统计的回文个数显示在 Text1文本框内。 (所谓回文是指顺读与倒读都一样的字符串，如 “recycer”)。 “读数据 ”按钮和 “统计 ”按钮的 Click事件过程已经给出，请完善 Function过程 foundhuiwen的功能，实现上述程序功能。注意：考生不得修改窗体
6、文件中已存在的控件和程序，在结束程序运行之前，必须先进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 98答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程。 步骤 2：在窗体 Forml中加入一个复选框，并用 “复制 “和 “粘贴 ”的方法，生成包含四个元素的复选框数组。 步骤 3：分别设置窗体和复选框数组中各元素的相关属性。 步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并
7、设置相应属性。 步骤 2：在代码编辑窗口，编写命令按钮的 Click事件过程。 参考代码： Private Sub C1 C1ick() HSl Value=HSl Value+10 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： tmp=1 tmp=temp*i xn=tmp z=z+xn(t) 步骤 2：按 键运行程序，在第一个文本框中输入 5，第二个文本框中输入12，然后单
8、击 “计算 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： arr=Array(“第一项 ”， “第二项 ”， “第三项 ”， “第四项 ”) Static i As Integer Labell Caption=arr(i) i=0 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】步骤 1：打开考生文件夹下的工程文件 sjt5 vbp， 如表 4-9所示在窗体上画出控件并设置它们的相关属性。步骤 2：打开代码编辑窗口，在指定位置编写 foundhuiwen函数的过程。参考代码： Function foundhuiwen(P As String) foundhUiwen=True k=Len(P) For i=1 To k 2 If Mid(P， i， 1)Mid(P， k+1一 i，1)Then foundhuiwen=Fal se Exit For End If NextEnd Function步骤 3：按键运行程序，先单击 “读数据 “按钮，再单击 “统计 ”按钮，最后单击窗体右上角的关闭按钮结束程序。步骤 4：按要求将文件保存至考生文件夹中。
