1、VB机试模拟试卷 177及答案与解析 一、基本操作题（ 30分） 1 新建一个工程。在窗体中画三个标签，名称分别为 Label1、 Label2和 Label3，标题分别为 “加数 1”、 “加数 2”和 “和 ”。在三个标签下分别有三个文本框 (名称分别为Textl、 TexQ和 Text3)用来输入数字。要求编写一个事件过程，程序运行后在文本框 Text1和 Text2中输入数字，单击文本框删后其中输出两个数的和。如图 14所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 ylc2.vbp，窗体丈件名为 ylc2.frm。二、简单应用题（ 40分） 2 (1
2、)在名称为 Form1的窗体上建立两个主菜单，其标题分别为 “文件 ”和 “帮助 ”，名称分别为 vbFile和 vbHelp， “文件 ”菜单下有三个子菜单项，标题分别为 “新建 ”、“打开 ”和 “存盘 ”，名称分别为 vbNew、 vbOpen和 vbSave。要求程序运行后，如果选中 “文件 ”下的某个菜单项，则通过 MsgBox对话框显示该菜单项的标题，如图474所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj3 frm，工程文件名为 sj3 vbp。 (2)在考生 文件夹中有一个工程文件 sj4 vbp，相应的窗体文件为 sj4 frm。在名为 Form1的窗体上有一
3、个命令按钮 (名称为 Cmdl，标题为“求和 ”)，其功能是产生 30个 0 1000的随机整数，放入一个数组中，然后输出它们的和。程序运行后，单击命令按钮，即可求出其和，并在窗体上显示出来，如图475所示。本程序不完整，请补充完整，并能正确运行。 注意：去掉程序中的注释符 “”，把程序中的问号 “?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。 三、 综合应用题（ 30分） 3 在考生目录下有一个工程文件 sj5 vbp，其窗体上有两个标签 L1和 L2，标题分别为 “口令 ”和 “允许次数 ”；一个命令按钮 C1，标题为 “确
4、定 ”；两个文本框，名称分别为 Text1和 Text2。其中 Text1用来输人口令 (输入时，文本框内容显示 “*”)，初始内容为空； Text2的初始内容为 3。并给出了 Cl的事件过程，但不完整，要求去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使得程序运行时，在Text1中输人口令后，单击 “确定 ”，如果输入的是 “123456”则在 Text1中显 示 “口令正确 ”；如果输入其他内容，单击 “确定 ”后，弹出错误提示对话框 (如图 686所示 )，并且 Text2中的数字减 1。最多可输入 3次口令，若 3次都输入错误，则禁止再次输入。 注意：不能修改程序中的其他
5、部分。最后将修改后的文件按原文件名存盘。 VB机试模拟试卷 177答案与解析 一、基本操作题（ 30分） 1 【正确答案】 Visual Basic集成环境中，执行 “文件 ”“ 新建工程 ”命令，选择 “标准 Exe”。创建窗体 Form1。 (2)在工具箱中选择标签控件，在窗体中要求位置画出 3个标签，其 Caption属性分别为 “加数 1”、 “加数 2”和 “和 ”。 (3)在工具箱中选择文本框控件，在窗体上创建 3个文本框。双击文本框 Text3弹出代码窗口，添加代码： Private Sub Text3 click() Text3=Val(Text1)+Val(Text2) En
6、d Sub (4)按 F5键运行程序。如图 14所示。 (5)执行 “文件 ”“ 保存工程 ”命令，将工程文件命名为 yle2.vbp，窗体文件命名为ylc2.frm。 【试题解析】 (2)第 2小题中，利用 Val函数将输入的字符串转换为数值进行计算。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题主要考查菜单编辑器的使用。在 Visual Basic中，菜单项通过菜单编辑器来建立；选择菜单则是触发其 Click事件。 MsgBox函数在对话框中显示消息，等待用户单击按钮，并返回一个 Integer告诉用户单击哪一个按钮。 语法： MsgBox(promptbuttons， tit
7、le， helpfile， context) MsgBox函数的语法具有以下几个命 名参数： prompt：必需参数；字符串表达式，作为显示在对话框中的消息。 buttons：可选参数；数值表达式是值的总和，指定显示按钮的数目及形式。 title：可选参数；在对话框标题栏中显示的字符串表达式。如果省略 title，则将应用程序名放在标题栏中。 helpfile：可选参数；字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。 context：可选参数；数值表达式，通过帮助文件的作者指定给适当的帮助主题的上下文编号。 建立菜单项；程序中用到的菜单项及其属性见下表： 为各个菜单项编写事件 处
8、理程序。参考代码如下： Private Sub vbNew_Click()MsgBox“新建 “End SubPrivate Sub vbOpen_Click()MsgBox“打开 “ End SubPrivate Sub v bSave Click()MsgBox“保存 “End Sub 调试并运行程序。 按题目要求存盘。 (2) 打开题目所给工程文件。 将注释语句改为：arrN(i)=Int(Rnd*1000)Min=arrN(1)Sum=arrN(i)+Sum 按要求保存文件即完成本题。 三、综合应用题（ 30分） 3 【正确答案】 本题主要考查文本框的 Text、 PasswordCh
9、ar和 Enabled属性， &连接符以及 MsgBox()函数。根据题意将文本框控件 Text1的 PasswordChar属性设置为 “*”。双击进入代码窗口，编写如下代码： Private Sub C1_Click() If Text1 Text=“123456“Then Text1.Text=“口令正确 “ Text1 PasswordChar=“ Else Text2 Text=Text2 Text-1 If Text2 Text0 Then MsgBox“第 “&(3-Text2 Text)&“次 13令错误，请重新输入 “ Else MsgBox“3次输入错误，请退出 “ Text1 Enabled=False End If End IfEnd Sub单击 按钮运行程序，并按要求保存。
