1、VB机试模拟试卷 162及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml、标题为 “框架 ”的窗体上画一个名称为 Framel，且没有标题的框架。框架内含有两个单选按钮，名称分别为 Optl和 opt2、标题分别为 “字体 ”、 “大小 ”，如图 1-216所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 (2)考生文件夹下的工程文件 sjt2 vbp中有一个由直线 Linel、 Line2和 Line3组成的三角形，直线 Lin
2、el、 Line2和 Line3的坐标值见表 1-10： 要求画一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。再画两个命令按钮，名称分别是 Cmdl、 Cmd2，标题分别为 “显示高 ”、 “隐藏高 ”，如图 1-217所示。请编写适当的事件过程，使得在运行时，单击 “显示高 ”按钮，则显示三角形的高；单击“隐藏高 ”按钮，则隐藏三角形的高。注意：要求程序中不得使用变量，每个事件过程只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。 二、简单应 用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，运行情况如图 1-23所示。程序
3、的功能是计算表达式的值： z=(x-2)!+(x-3)!+(x-4)!+(x -N)!其中的 N和 x值通过键盘分别输入到两个文本框 Textl、 Text2中。单击名称为 Commandl、标题为 “计算 ”的命令按钮，则计算表达式的值，并将计算结果显示在名称为 Labell的标签中。在窗体文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确内容。要求：程序调试通过后，必须按照如图 1-23所示输入N=5， x=12，然后计算 z的值，并将计算结果显示在标签 Labell中，否则没有成绩。注意；不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件
4、名存盘。 (2)在考生文件夹下有一个工程文件sjt4 vbp。窗体上有名称为 Labell的标签和名称为 Timerl的计时器控件。该程序的功能是在名称为 Labell的标签中循环显示不同的字符串。程序开始运行，在标签中显示 “第一项 ”(如图 1-24所示 )，且每隔 1秒钟依次显示 “第二项 ”、 “第三项 ”、“第四项 ”，如此循环。在给出的窗体文件中已经有了全部 控件和程序，但程序不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。三、综合应用题（ 30分） 3 在考生文件夹中有一个工程文件 sjt5
5、vbp。窗体外观如图 1-58所示。运行程序，单击 “读数据 ”按钮，文件中的数据被读入字符串变量中并显示在 Label2标签中。单击 “排序 ”按钮时，对读入的数据从小到大排序，并将排序结果显示在窗体的Label4控件中。要求：工程文件中已给出部分程序， “读数据 ”命令按钮的事件过程不完整，请去 掉程序中的注释符，把程序中的 ?改为正确的内容。请编写 “排序 ”命令按钮的事件过程中的部分程序代码。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，两个命令按钮的事件过程必须至少各执行一次。 VB机试模拟试卷 162答案与解析 一、基本操作题（ 30分）
6、 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表2-126在窗体上绘制控件并设置属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：打开本题工程文件 sjt2 vbp，在窗体中画一个直线控件和两个命令按钮，并设置其相关属性如表 2-127所示。步骤 2：打开代码编辑窗口，编写命令按钮的 Click事件过程。 参考代码： Private Sub Cmdl_Click() Line4 ViSible=True End Sub Private Sub Cmd2_Click() Line4 Visible=False End
7、 Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 本题只需按题目要求画出框架和单选按钮，并分别设置其属性。 第 2小题 Visible(可见 )属性用于设置控件或菜单项在程序运行时是否可见，值为 True表示可见，值为 False表示不可见。 本题的考核要求有两项。 二、简单应用题（ 40分） 2 【正确答案】 第 l小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： tmp=1 tmp=temp+i xn=tmp z=z+xn(t) 步骤 2：按 键键
8、运行程序，在第一个文本框中输入 5，第两个文本框中输入12，然后单击 “计算 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： arr=Array(“第一项 “， “第二项 “， “第三项 “， “第四项 “) Static i As Integer Labell Caption=arr(i) i=0 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 本题原程序中，自定义函数 xn的功能是进行 m！阶乘
9、运算，它通过 For循环连续 m次将循环变量 i的值乘以累积变量 tmp(第一个 ?处 map初值应为 1)来实现。故自定义函数 xn中第两个 ?处应改为： tmp*i，作为函数返回值第三个 ?处应改为： )xn。 在 “计算 ”按钮的单击事件过程中。根据程序所要计算 表达式的特点，原程序利用一个 For循环依次计算表达式中各项的值 (x-i)1)，并将其累加入变量 z。计算表达式中各项的值通过调用自定义函数 xn(t)来实现的，其中 t=x-i。故Commandl_Click事件过程中第一个 ?处应改为： xn(t)。计算结果显示在标签中。 第 2小题 要实现本题中的功能，在窗体的 Load
10、事件过程中，首先使用 Array函数建立一个新数组，然后设置计时器的相关属性并启用计时器；在计时器的 Timer事件中，由于需要计算 Timer事件的执行次数才能判断出应该显示何种文字，因此计数变 量 i应该声明为 Static类型的变量，然后把数组的第 i项显示在标签中，接下来令 i+l，一旦 i超过了 3就将其重新置 O以便实现循环显示。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Do While Not EOF(1) s=s&
11、Str(a(i) 步骤 2：在代码编辑窗口指定位置编写以下代码： 参 考代码： num=UBound(a) For i=1 To num-1 For j=i To num If a(i)a(j)Then t=a(i) a(i) =a(j) a(j) =t End If Next Next 步骤 3：按 键运行程序，先单击 “读数据 ”按钮，再单击 “排序 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 冒泡法的 核心思路是按顺序让一个数列中的每一个数都与它之后的所有的数逐一进行比较，如果该数大于其后面的数。则把这两个位置的数进行交换。通过这样的循环，最终按照从小到大的顺序排列出该数列。 设计思路：在 “读数据 ”按钮的单击事件中，首先使用 Do While当型循环结构从文件中读取全部数据，并以 Not EOF(文件号 )(非文件结尾 )作为循环条件，通过Input#语句将打开文件中的数据逐一读出后赋值给 a(i)，然后将数组连接起来显示在标签中。 在 “排序 ”按钮的单击事件过程中，原程序利用 “冒泡法 ”对记录数组中的 元素从小到大进行排序。
