1、VB机试模拟试卷 194及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上建立一个名称为 Opl的单选按钮数组，含三个单选按钮，它们的标题依次为 “选择 1”、 “选择 2”、 “选择 3”，其下标分别为 0、 l、 2，初始状态下，“选择 2”为选中状态。运行后的窗体如图 1-100所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl fian。(2)在窗体上建立一个二级菜单，第一级含 两个菜单项，标题分别为 “编辑 ”、 “帮助 ”，
2、名称分别为 edit、 help。其中 “编辑 ”菜单含有子菜单，共有三个菜单项，其标题依次为 “剪切 ”、 “复制 ”、 “粘贴 ”，名称分别为 “cut”、 “copy”、“paste”(如图 1-10l所示 )。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题（ 40分） 2 (1)在考生目录下有一个工程文件 sj3 vbp，窗体中有一个命令按钮，标题为 “向左移动 ”，名称为 Commandl；还有一个计时器，名称为 Timerl。并给出了两个事件过程，但并不完整。设置计时器的属性，使其在初始状态不计时；设置计时器的属性
3、，使其每隔 0 3秒调用 Timerl事件过程一次。使得在运行时单击 “向左移动 ”按钮，则按钮每隔 0 3秒向左移动一次，当移出窗体时返回窗体的右端，如图155所示。 注意：去掉程序中的注释符 “”，把程序中的“?”改为正确的内容，不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹中有文件 sj4 vbp及其窗体文件 sj4 frm，窗体已经设计好，要求考生用 If语句编写程序，使得程序运行时， 满足下列要求。窗体上有两个复选框，名称分别为 Checkl和 Check2，标题分别为 “英语 ”和 “德语 ”；两个单选按钮，名称分别为 Optionl和 Optio
4、n2，标题分别为 “我会 ”和 “我不会 ”；一个名称为 Labell的标签；一个名称为 Commandl、标题为 “输出 ”的命令按钮。要求程序运行后，对复选框和单选按钮进行选择，然后单击按钮，可根据下表的规定在标签中显示相应的信息： 程序运行时的窗体界面如图 156所示。 注意：不得使用任何变量。存盘时不得改变文件夹和文件名。 三、综合应用题（ 30分） 3 在考生 文件夹下有一个工程文件 sjt5.vbp，其窗体上有两个标签 L1和 L2，标题分别为 “口令 ”和 “允许次数 ”；一个命令按钮 C1，标题为 “确定 ”；两个文本框名称分别为 Text1和 Text2，其中 Text1用来
5、输入口令 (输入时，显示 “*”)，无初始内容Text2的初始内容为 3，如图 31所示。 程序给出了 C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的 ?改为正确内容，使得在运行时，在 Text1中输入口令后，单击 “确定 ”按钮，如果输入的是 “123456”则在 Text1中显示 “口令正确 ”；如果输入其他内容， 单击 “确定 ”后，弹出错误提示对话框，并且 Text2中的数字减 1。最多可输入 3次口令，若 3次都输入错误，则禁止再次输入。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。VB机试模拟试卷 194答案与解析 一、基本操作题（ 30分） 1
6、 【正确答案】 第 l小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程。 步骤2：在窗体 Forml中加入一个单选按钮，并用 “复制 ”和 “粘贴 ”的方法，生成包含 4个元素的单选按钮数组。 步骤 3：分别设置单选按钮数组中各元素的相关属性，其属性及值如表 2-56所示。 步骤4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：新建一个“标准 EXE”工程，利用菜单设计器如表 2-57在窗体上建立一个二级菜单。步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 容器 (如窗体和框架 )中的单选按钮 (OptionButton)组常用于提供多
7、个选项之间的唯一选择，其 Value属性用于设置或返回每个单选按钮的选中状态：值为 False表示未选，值为 true表示选中。 本题只需按要求画出控件数组，并设置其 Value属性 。 第 2小题 本题只需按题目要求利用 VB菜单设计器建立一个二级菜单。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题考查计时器控件 (Timer)、命令按钮控件 (CommandButton)的常用属性和事件以及编写简单事件过程。 计时器只在设计时可见，计时器是否启用由其 Enabled属性设置，值为 True或 False。启用后间隔多长时间触发一次其Timer事件由其 Interval属性设置，
8、 Interval属性的单位为毫秒，缺省值为 0，此时计时器也不启用。 控制命令按钮向左移动可通过修改其 Left属性值实现，当 Left属性值超过窗体的 Width属性值时表示按钮已移出窗体，此时 Left属性值设为 0即可将按钮返回窗体右端。移动按钮的事件过程均在计时器的 Timer中实现。 根据题意，将一个命令按钮和一个计时器控件添加到窗体中，命令按钮的名称为Command1、 Caption属性为 “向左移动 ”， Timer的名称为 Timer1。双击 Commandl进入代码编写窗口， Timer1将隔一个周期调用 Timer函数一次，而按下 Commandl将启动 Timer1计
9、时器，即设置其周期，补充后的具体代码如下： Private Sub Command1_Click() Timer1 Interval=300设置 Timer的周期 End Sub Private Sub Timerl_Timer() Commandl Left=Commandl Left-100 Command向左移动 If Commandl Left 按钮运行程序并按要求保存。 (2)本题主要考查复选框(CheckBox)和单选按钮 (OptionButton)，以及用 If语句编程的综合运用。 复选框组常用于提供多重选择， Value属性值决定每个复选框的选中状态： 0表示未选； 1表示选
10、中； 2表示不可用 (即灰色 )；单选按钮组常用于提供唯一选择， Value属性值决定每个单选按钮的选中状态： False表示未选， True表示选中。 根据题意，窗体已设计好，只要考生编写相应的代码以实现其功能。双击 Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() If Optionl Value=True Then选择Optionl If Checkl Value=1 And Check2 Value=l Then Labell Caption=“我既会“+Checkl Caption+“也会 “+Check2 Caption Els
11、elf Checkl Value=l Then Labell Caption=“我只会 “+Checkl.Caption显示我只会英语 Elself Check2 Value=1 Then Labell Caption=“我只会 “+Check2 Caption显示我只会德语 End If Else 选择Option2 If Checkl Value=1 And Check2 Value=1 Then Labell Caption=“我既不会“+Checkl Caption+“也不会 “+Check2 Caption Elself Checkl Value=1 Then Labell Capt
12、ion=“我不会 “+Checkl Caption显示我不会英语 Elself Check2 Value=1 Then Labell Caption=“我不会 “+Check2 Caption显示我不会德语 End If End If End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 在文本框里显示的内容通过 Text属性设置，其形式为： 文本框名 .Text显示的内容 要使文本框内容显示为 “*”，需将 PasswordChar属性设置为 “*”。 程序中用到的 MsgBox语句用法为：
13、MsgBox提示 ,按钮 ,标题 在程序运行时控件是否可操作由 Enabled属性设置，当该属性为 True时控件可操作，为 False时不可操作。若 3次都输入错误，禁止再次输入，将文本框的Enabled属性置为 False即可。 解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性值见表 4。 表 4控 件 属 性 设 置 值 文本 框 Name Text Text1 空 文本框 Name Text Text2 3 命令按钮 Name Caption C1 确定 标签 Name Caption L1 口令 标签 Name Caption L2 输入次数 第二步：编写程序代码
14、。 程序提供的代码： Private Sub C1_Click() If?=“123456“ Then Text1.Text “口令正确 “ Text1.? “ Else Text2.Text Text2.Text1 If Text2.Text ?Then MsgBox “第 “ & (3Text2.Text) & “次口令错误，请重新输入 “ Else MsgBox “3次输入错误，请退出 “ Text1.Enabled=? End If End If End Sub 参考代码： Private Sub C1_Click() If Text1.Text=“123456“ Then Text1.Text=“口令正确 “ Text1.PasswordChar=“ Else Text2.Text=Text2.Text1 If Text2.Text 0 Then MsgBox “第 “ & (3Text2.Text) & “次口令错误，请重新输入 “ Else MsgBox “3次输入错误，请退出 “ Text1.Enabled= False End If End If End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。
