1、VB 机试模拟试卷 189及答案与解析 一、基本操作题（ 30分） 1 注意：下面出现的 “考生文件夹 ”均为 C:wexam25160002。 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上建立 1个名称为 Op1的单选按钮数组，含 3个单选按钮，它们的标题依次为 “选择1”、 “选择 2”和 “选择 3”，其下标分别为 0、 1和 2，初始状态下， “选择 2”为选中状态。运行后的窗体如图 26-1所示。 注意；存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。 (2)在窗
2、体上建立 1个二级菜单，第一级含两个菜单项，标题分别为 “编辑 ”和 “帮助 ”，名称分别为 edit和 help。其中“编辑 ”菜单含有 3个子菜单，其标题依次为 “剪切 ”、 “复制 ”和 “粘贴 ”，名称分别为cut、 copy和 paste，如图 26-2所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，运行情况如图 1-23所示。程序的功能是计算表达 式的值： z=(x-2)!+(x-3)!+(x-4)!+(x -N)!其中的 N和 x值通过
3、键盘分别输入到两个文本框 Textl、 Text2中。单击名称为 Commandl、标题为 “计算 ”的命令按钮，则计算表达式的值，并将计算结果显示在名称为 Labell的标签中。在窗体文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确内容。要求：程序调试通过后，必须按照如图 1-23所示输入N=5， x=12，然后计算 z的值，并将计算结果显示在标签 Labell中，否则没有成绩。注意；不能修改程序的 其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4 vbp。窗体上有名称为 Labell的标签和名称为
4、Timerl的计时器控件。该程序的功能是在名称为 Labell的标签中循环显示不同的字符串。程序开始运行，在标签中显示 “第一项 ”(如图 1-24所示 )，且每隔 1秒钟依次显示 “第二项 ”、 “第三项 ”、“第四项 ”，如此循环。在给出的窗体文件中已经有了全部控件和程序，但程序不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最 后把修改后的文件按原文件名存盘。三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sj5 vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为 Textl的文本框；画
5、一个名称为Commandl、标题为 “计算显示 ”的命令按钮；再画两个单选按钮，名称分别为Optionl和 Option2、标题分别为 “求 100到 250之间能被 5整除的数的个数 ”和 “求300到 400之间能被 6整除的数的个数 ”，如图 625所示。请编写适当的事件过程，使得在运行时，选中一个单选按钮，再单 击 “计算显示 ”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。 注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮来完成。在结束程序运行之前，必须至少要进行一种计算
6、，否则不得分。 VB 机试模拟试卷 189答案与解析 一、基本操作题（ 30分） 1 【正确答案】 在窗体上建立好控件后，设置控件的属性。 建立控件数组由多种方法，考生可以采取任何一种来建立单选按钮数组。要使 “选择 2”为选中状态，则应该将 该控件的 Value属性值设置 True。 Value属性用来表示单选按钮的状态，它的值可以是 True或 False，当设置为 True时，该单选按钮为选中，否则没有选中。解题步骤： 第一步：建立界面并设置控件的属性。程序中用到的控件及其属性见表 26-1。 第二步：调试并运行程序。 第三步：按题目要求存盘。 (2)在 Visual Basic中，菜单
7、通过 “菜单编辑器 ”窗口来建立。 解题步骤： 第一步：建立界面并设置对象属性。 程序中用到的控件及其属性见表 26-2。 第二步：调试并运行程序。 第三步：按题目要求存盘。 二、简单应用题（ 40分） 2 【正确答案】 第 l小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： tmp=1 tmp=temp+i xn=tmp z=z+xn(t) 步骤 2：按 键键运行程序，在第一个文本框中输入 5，第两个文本框中输入12，然后单击 “计算 ”按 钮。 步骤 3：按要求将文件保存至考生
8、文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： arr=Array(“第一项 “， “第二项 “， “第三项 “， “第四项 “) Static i As Integer Labell Caption=arr(i) i=0 步骤 2：按要求将文件保存至考生文件夹中。 【试题解 析】 第 l小题 本题原程序中，自定义函数 xn 的功能是进行 m！阶乘运算，它通过 For循环连续 m次将循环变量 i的值乘以累积变量 tmp(第一个 ?处 map 初值应为 1)来实现
9、。故自定义函数 xn 中第两个 ?处应改为： tmp*i，作为函数返回值第三个 ?处应改为： )xn。 在 “计算 ”按钮的单击事件过程中。根据程序所要计算表达式的特点，原程序利用一个 For循环依次计算表达式中各项的值 (x-i)1)，并将其累加入变量 z。计算表达式中各项的值通过调用自定义函数 xn(t)来实现的，其中 t=x-i。故Commandl_Click 事件过程中第一个 ?处应改为： xn(t)。计算结果显示在标签中。 第 2小题 要实现本题中的功能，在窗体的 Load事件过程中，首先使用 Array函数建立一个新数组，然后设置计时器的相关属性并启用计时器；在计时器的 Timer
10、事件中，由于需要计算 Timer事件的执行次数才能判断出应该显示何种文字，因此计数变量 i应该声明为 Static类型的变量，然后把数组的第 i项显示在标签中，接下来令 i+l，一旦 i超过了 3就将其重新置 O以便实现循环显示。 三、综合应用题（ 30分） 3 【正确答案】 根 据题意，将一个文本框控件，两个单选按钮控件和一个命令按钮添加到窗体中，文本框的名称为 Textl，单选按钮的名称：分别为 Optionl和Option2， Caption分别为 “求 100到 250之间能被 5整除的数的个数 ”和 “求 300到400之间能被 6整除的数的个数 ”，命令按钮的名称为 Command
11、l， Caption属性为“计算显示 ”，设置完成后，双击 Commandl进入代码窗口，补充后的具体代码如下： Private Sub Commandl_Click() Dim rain As Integer下限 Dim max As Integer上限 Dim i As Integer循环计数 Dim mum As Integer个数 Dim tmp As Integer除数 If Optionl Value=True Then 选中 Optionl时 min=100 max=250 tmp=5 Else选中Option2时 rain=300 max=400 tmp=3 End If num=0 For i=min To max利用循环来逐个判断 If i Mod tmp=0 Then num=num+1 如 果能被除数整除，则个数加 1 End If Next i Textl Text=hum在 Textl文本框中显示出来 Open“App Path& out5 txt“For Output As#1 Print#1， Textl Text Close#1End Sub单击 按钮运行程序，并按要求保存。
