1、VB机试模拟试卷 131及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 CDl的通用对话框，通过属性窗口设置 CDI的初始路径为 C：，默认的文件名为 None，标题为 “保存等级考试 ”，如图 1-44所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上设计一个菜单。要求在窗体上添加名为 menu0，标题为 “菜单命令 ”的主菜单，再添加两个名称分别为 “menul”、 “m
2、enu2”，标题分别为 “不可用菜单项 ”、 “上一菜单项可用 ”的子菜单，并且使程序运行时， menul子菜单不可用， menu2子菜单已经选中 (运行时的效果如图 1-45所示 )。再编写适当的事件过程，使得程序运行时，单击 “上一菜单项可用 ”，则 “不可用菜单项 ”变为黑色 (可用 )。要求程序中不得使用变量，且只有一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 Frm 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一 个工程文件 sjt3 vbp，它的功能是在运行时只显示名为Form2的窗体，单击 Form2上的 “C2”
3、按钮，则显示名为 Forml的窗体：单击 Forml上的 “Cl”按钮，则 Forml的窗体消失。这个程序并不完整，要求如下： 把 Form2设为启动窗体；把 Forml上按钮的标题改为 “隐藏 ”，把 Form2上按钮的标题改为“显示 ”。 去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件存盘。 工程文件和窗体文件仍以原来的文件名存盘。正确程序运行后的界面如图 l-102所示。(2)在考生文件夹下有一个工程文件 sjt4 vbp，它的功能是在文本框中输入一个整数 ,单击 “移动 ”按钮后，如果输入的是正数，滚动条中的滚动框向右
4、移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示 “文本框中的数值太大 ”；如果输入的是负数，滚动条中的滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示 “文本框中的数值太小 ”，如图 1-103所示。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修 改控件的属性。最后把修改后的程序以原来的文件名存盘。 三、综合应用题（ 30分） 3 在考生目录下有一个工程文件 sjt5 vbp。其功能是产生并显示一个数列的前 n项。数列产生的规律是：数列的前 2项是小于 10的正整数，将此 2
5、数相乘，若乘积 VB机试模拟试卷 131答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 l小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，选择【工程】 【部件】命令，在弹出的 “部件 ”对话框的列表中选中 “MicroSoft Common Dialog Contr016 0”项目，单击 “确定 ”按钮。 步骤 2： 在窗体 Forml上画一个通用对话框，其相关属性设置如表 2-24所示。步骤 3：编写 Forml的 Load事件，加入下面的代码： CD1 ShowSave 步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：新建一个 “
6、标准 EXE”工程，打开 VB菜单设计器设计菜单，各菜单项及属性设置如表 2-25所示。步骤 2：打开代码编辑窗口，编写 “上一菜单项可用 ”命令的 Click事件过程。 参考代码： PriVate Sub menu2_Click() menul Enabled=True End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 通用对话框的 InitDir属性用于为打开或另存为对话指定初始的目录，如果此属性没有指定，则使用当前目录。 通用对话框的初始路径由 InitDk属性设置，默认文件名由 FileName属性设置，标题由 DialogTitle属性设置。 第
7、2小题 VB中的菜单是通过菜单编辑器来设计的。菜单编辑器中的基本设置项有： “标题 ”项，对应出现在菜单中的显示内容； “名称 ”项，系统识 别菜单项的唯一关键字(不能重复 )； “索引 ”项，用于设置菜单数组中各元素的索引号； “快捷键 ”项，是一个下拉列表框，用于设置菜单项的快捷键； “帮助上下文 ”项，设置当鼠标移动到某菜单项上按 键时显示的帮助信息在帮助文件中的对应位置； Visible(可见 )项，用于设置控件或菜单项在 程序运行时是否可见，值为 rme表示可见，值为False表示不可见； Enabled(有效 )项，用于设置控件或菜单项在程序运行时是否有效，值为 True时表示有效
8、，值为 False时表示无效 (显示为灰色 )。通过编辑按钮区的七个按钮可对菜单进行添加、插入、删除、提升 (设置为上一级菜单 )、缩进(设置为下一级菜单 )、上移、下移等操作。 文本框的 Text属性用于设置或返回其显示的文本内容。 本题原程序设计思路：在 “上一菜单项可用 ”命令的单击事件过程中，通过语句设置 “不可用菜单项 ”命令的 Enabled属性值为 True。 二、简单应用题（ 40分） 2 【正确答案】 第 l小题 【操作步骤】 步骤 l：打开考生文件夹下的本题工程文件 sjt3 vbp，然后将按钮 C1的 Caption属性设置为 “隐藏 ”，将按钮 C2的 Caption属
9、性设置为 “显示 ”。 步骤 2：选择【工程】一【工程属性】命令，打开 “工程属性 ”对话框，设置Form2为启动窗体。 步骤 3：打开 Form2和 FormI的代码编辑窗口，去掉程序中的注释符 “”，将问号“?”改为正确的内容。 参考代码： PriVate Sub C1_Click() Forml Visible=False End Sub PriVate Sub C2_Click() Forml Visible=True End Sub 步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序
10、中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If HSl Value+Textl TextHSl Max Then MsgBox”文本框中的数值太大 ” ElseIf HSl Value+Textl TextHSl Min Then MsgBox“文本框中的数值太小 “ Else HSI Value=HSI Value+Textl Text End If 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 从本题题目要求及所提供原程序可知，程序运行时首先显示窗体 Form2，然后在 Form2的 “显示 ”按钮的单击事件过程中，通过设置窗体 Forml的 V
11、isible属性值为 True来显示该窗口。 第 2小题 本题程序设计思路：在 “移动 ”按钮的单击事件过程中，首先判断滚动条在当前位置基础上移动与文本框中输入数值相等的刻度时，是否超过滚动条 Max属性值的限制，若是则弹出消息框显示 “文本框中的数值太大 ”；否则接着判断滚动条在当前位置基础上移动与文本框中输入数值相等的刻度时，是否超过滚动条 Min属性值的限制，若是则弹出消息框显示 “文本框中的数值太小 ”，否则设置滚动条的 Value属性值为原有 Value属性值加上文本框中的输入值。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 s
12、jt vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Text4=Text4&a&“&b a=b If k=n Then b=d 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 While循环和 Do循环是用条件来控制的循环。 Do循环语句的功能是：当指定的 “循环条件 ”为真或直到指定的 “循环条件 ”变为真之前重复执行循环体。 根据题意，数列第 n项的值源于该项前两项的乘积。本题原程序中，将文本框Textl的输入值赋予变量 a作初值，将文本框 Text2的输入值赋予变量 b作初值，并把 a、 b初值作为数列的前两项。故第一个 ?处应改
13、为 b。将文本框 Text3的输入值赋予变量 n，以标记数列最终要生成的项数。变量 k用于记录数列当前项数，初值为 2。 在 Do循环中，首先将 a、 b的乘积赋予变量 c(当前项数 k增 1)，然后判断 c的值是否小于 10，若 c小于 10则 c即为数列的第 3项，并将 b的值赋予变量 a， c的值赋予变量 b，以便计算数列下一项的值；若 c不小于 10，则取 a和 b乘积十位上的数 (即 d=c 10)作数列的第 3项，将 d的值赋予变量 a(当前项数 k增 1)，并进一步判断当前 k值是否小于或等于最终要生成的项数 n，若是则取 a和 b乘积个位上的数 (即 d=c Mod 10)作数列的第 4项，将 d的值赋予变量 b，以便计算数列下一项的值。重复执行循环体，即可依次求出数列后续项的值。
