1、国家二级 VB机试（上机操作）模拟试卷 233及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml标题为 “选课 ”的窗体上面一个复选框数组，名称为 CH1，共有四个复选框，按顺序其标题分别是 “数学 ”、 “语文 ”、 “外语 ”、 “计算机 ”，其中 “语文 ”、 “计算机 ”复选框处十选中状态，运行时的窗体如图 2 143所示。请画控件并设置相应属性。 注意：存盘时必须存放在考生文件夹下。工程文件名为 sjt1 vbp，窗体文件名为 sitl frm。 (2)在名称为 Forml的窗体卜画一个名
2、称为HS1的水平滚动条，其刻度值范围为 1 100；画一个命令按钮，名称为 C1，标题为 “移动滚动框 ”。请编写适当的事件过程，使得在运行时，每单击命令按钮一次(假定单击次数少于 10次 )，滚动框向右移动 10个刻度。运行时的窗体如图 2 144所示。要求程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sit2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sit3 vbp， 相应的窗体文件为 sit3 frm，在窗体上有一个命令按钮 (名称为 Commandl，标题为 “计算并输出 ”)和
3、两个文本框 (名称分别为 Text1和 Text2)，如图 2-8所示。程序运行后，单击命令按钮，即可计算出数组 Arr中 10个数的正数之和 pos与负数之和 neg，并分别在两个文本框中显示出来。 该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序巾的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有 一个工程文件 sjt4 vbp，相应的窗体文件为 sit4 frm。 在窗体上有两个命令按钮，其名称分别为 Commandl、Command2；一个标签，其名称为 Labell：
4、一个计时器，其名称为 Timer1，如图2 9(a)所示。程序运行后，如果单击 “开始 ”命令按钮，则该按钮变为禁用，而标题变为 “继续 ”，同时标签中的字体每隔 100毫秒增大 0 1倍 (即变为原来的 1 1倍 )，如图 2 9(b)所示，字体大小超过 100后，自动缩小为 8；如果单击 “停止 ”命令按钮，则该按钮变为禁用， “继续 ”命令按钮变为有效，同时标签中的字 体停止变化；再次单击 “继续 ”命令按钮后，标签中的字体继续变化。 这个程序不完整，请仔细阅读已有内容，并把它补充完整，使之能正确运行。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改
5、程序中的其他部分。最后把修改后的文件按原文件名存盘。三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上有两个标题分别为 “读数据 ”和 “统计 ”的命令按钮。请画两个标签，其名称分别足 Label1和 Label2，标题分别为 “单词的平均长度为 ”和 “最长单词的长度为 ”；再画两 个名称分别为 Textl和Text2、初始内容为空的文本框，如图 2 202所示。程序功能如下： 如果单击“读数据 ”命令按钮，则将考生文件夹下 in5 dat文件的内容读到变量 s中 (此过程已给出 )： 如果单击 “统计 ”按钮，则自动统计变量 s(s中仅含有字母和空格，而空格是用来
6、分隔不同单词的 )中每个单词的长度，并将所有单词的平均长度 (四舍五入取整 )显示在 Text1文本框内，将最长单词的长度显示在 Text2文奉框内。 “读数据 ”命令按钮的 Click事件过程已经给出，请为 “统计 ”命令按钮编写适当的事件过程，实现上述功 能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序之前，必须进行统计，且必须通过单击窗体右上角的 “关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 233答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程。
7、步骤2：在窗体 Form1中加入一个复选框，并用 “复制 ”和 “粘贴 ”的方法，生成包含四个元素的复选框数组。 步骤 3：分别设置窗体和复选框数组中各元素的相大属性，其属件及值如表 3 75所示。 步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”上程。 步骤 2：在窗体 Form1中加入一个命令按钮，分别设置它们的相关属性，其属性及值如表 3-76所示。步骤 3：在代码编辑窗口，编写命令按钮的 Click事件过程。 参考代码： Private Sub ClClick() HSl Value=HS1 Value+10 End Sub 步
8、骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sit3 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Arr(k)0 Then pos=pos+Arr(k) neg=neg+Art(k) 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt4 vbp。 步骤 2：打开代码编辑窗口，上掉程序中的汴释符 “”，将问号 “?”改为正确的内容。 参考代码： Commandl单击事件
9、中改错 Timer1 Enabled=True Command2单击事件中改错 Timerl Enabled=False Timerl单击事件中改错 If Labell FontSizeword max Then wordmax=Len(t) End If t=” End If Next i Textl Text = CInt(wordfen + Len(t) (wordnum+1) If Len(t)wordmax Then wordmax=Len(t) End If Text2 Text=wordmax End Sub 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按键运行程序，先单击 “读数据 ”按钮，再单击 “统计 ”按钮，最后中卉窗体右上角的关闭按钮结束程序。
