1、VB机试模拟试卷 120及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上建立一个名称为 P1的图片框和两个命令按钮，名称分别为 Cmdl和 Cmd2，标题分别为 “输出 ”和 “清除 ”，如图 221所示。要求程序运行后，每单击一次 “输出 ”按钮，不使用任何变量而直接在图片框中显示小写字母“load me；如果单击 “清除 ”按钮，则清除图片框中的内容。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjl frm，工程文件名为 sjl vbp。 (2)在名为：Form1的窗体上绘制一个标签， 名为 Labl，标签上显示 “请输入密码 ”；在标签的右边绘制
2、一个文本框，名为 Textl，其宽、高分别为 1500和 300。设置适当的属性使得在输入密码时，文本框中显示 “*”字符，此外冉把窗体的标题设置为 “PassWord窗口 ”。运行时的窗体如图 222所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为sj2 vbp。 二、简单应用题（ 40分） 2 (1)在考生文件夹中有工程文件 sj3 vbp及其窗体文件 sj3。 frm，该程序是不完整的。本题内容如下：窗体上已有两个文本框， 名称为 Textl、 Text2。要求在窗体上补充两个单选按钮，名称分别为 Optionl、 Option2，标题分别为 “全部小
3、写 ”和 “全部大写 ”。要求补充完整代码后，在 Textl中输入一段字符，选中 “全部小写 ”，Text2显示全部小写的字符串；选中 “全部大写 ”， Text2显示全部大写的字符串，如图 673所示。 注意：请在有 “?”号的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有一个工程文件 sj4 vbp，在窗体 Forml上设置一个控件数组Checkl(i)，该控件数组包括 6个复选框控件，标题不限。另设一个名称为Commandl、标题为 “统计选中个数 ”的命令按钮。程序运行后，单击 “统计
4、选中个数 ”按钮时，统计有多少个复选框被选中，并用 MsgBox将其显示出来，如图 674所示。注意：请去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sj5 vbp，其窗体上有一个命 令按钮，名称为Commandl、标题为 “添加 ”；一个文本框，名称为 Text1。程序运行前，文本框的编辑区为空白；一个列表框，名称为 Listl。在文本框中输入文本，若单击 “添加 ”按钮，文本框中的文本被作为一个列表项被加入到列表框中，如图 195
5、所示。若双击文本框，则使文本框中的内容为空，且使 “添加 ”按钮变为无效。注意：去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性，最后把修改后的文件以原来的文件名存盘。 VB机试模拟试卷 120答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)本题主要考查图片框控件的基本操作。命令按钮的标题通过Caption属性设置，单击命令按钮触发 Click事件；打印信息用 Print方法，清除用Cls方法。题目要求在图片框中打印信息，所以在编写代码时应指定 Print方法和C1s方法的使用对象。在窗体上建立好控件
6、后，先设置控件属性，再编写事件过程。 建立界面并设置控件属性。程序用到的控件及其属性见下表。 命令按钮 Cmdl触发 Click事件，打印信息用 Print方法。题目要求在图片框中打印信 息，所以在编写代码时，应指定 Print方法使用对象。 Private Sub Cmdl Click() P1 Print“load me“ End Sub 清除用 Cls方法。题目要求清除图片框中的信息，所以在编写代码时，应指定 Cls方法的使用对象。 Private Sub Cmd2_Click() P1 Cls End Sub 调试并运行程序。 按题目要求存盘。 (2) 新建一个名为 Forml的窗体。
7、 单击工具箱中的 Label控件图标，在窗体上拖拉出一个标签，在其属性窗口设置名称为 Labl， Caption属性为 “请输入密码 ”。 单击工具箱中的 TextBox控件图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为 Textl；在属性窗口设置其 Width属性为 1500， Height属性为 300，设置 PasswordChar属性为“*”。 按要求保存文件即完成本题。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题主要考查单选按钮 (OptionButton)的画法及常用属性的设置、文本框 (TextBox)的 Text属性、大小写字母转换函数 UCase(
8、)和 LCase()的使用。 单选按钮组常用于提供唯一选择， Value属性值决定每个单选按钮的选中状态： False表示未选中、 True表示选中。文本框中输入的内容可以由其 Text属性来设置或取得。将字符串中小写字母转化为大写字母可由 UCase()函数来实现，将字符串中大写字母转化为小写字母可由 LCase()函数来实现。 根据题意，将两个文本框控件 和两个单选按钮控件添加到窗体中，文本框的名称分别为 Textl和 Text2、Text属性都为空，单选按钮的名称分别为 Optionl和 Option2、 Caption属性分别为“全部小写 ”和 “全部大写 ”。双击 Commandl进
9、入代码窗口，编写如下代码： Private Sub Optionl_Click() Text2 Text=LCase(Textl Text) 单击 Optionl，则将 Textl中的字母转换为小写 End Sub Private Sub Option2_Click() Text2 Text=UCase(Textl Text) 单击 Option2，则将 Textl中的字母转换为大写 End Sub 单击 按钮运行程序，并按要求保存。 (2)本题主要考查复选按钮控件数组及 MsgBox()函数的使用。 复选按钮组常用于提供多重选择， Value属性值决定每个复选按钮的选中状态： 0表示未选中；
10、 1表示选中； 2表示不可用。 (即灰色 )。 MsgBox()函数用于显示提示信息，并可返回一个代表用户点击了哪个按钮的Integer类型值，其常用语法为： MsgBox(prompt， buttons， title)。其中， prompt参数为消息框的提示信息； buttons参数用于控制消息框中按钮的数日、形式及消息框图标的样式； title参数为消息框标题栏上显示的内容。添加控件数组的方法是：先建立第一个控件，然后对该控件进行 “复制 ”、 “粘贴 ”操作，粘贴时在弹出的对话框中选择建立控件数组，这时控件数组的 Index值会自动从 0开始编号，控件数组的 Count属性用于返回数组中
11、元素的个数。 根据题意，将一组六个复选按钮控件和一个命令按钮添加到窗体中， Check的名称都为 Checkl、 Caption属性自定义，命令按钮的名称为 Commandl， Caption属性为 “统计选中个数 ”，设置完成后双击 Commandl进入代码窗口，用 For循环逐一检查复选按钮数组各元素的 Value属性值是否为 1，若是，将统计变量加 1。将最终统计结果用 MsgBox()函数显示。补充后的具体代码如下： Private Sub Commandl_Click() Dim i As Integer Dim hum As Integer hum=0 For i=0 To Che
12、ckl Count-1 For循环遍历 Cheekl组 If Checkl Item(i) Value=1 Then 如果选中该项 num=hum+1 计数加 1 End If Next i MsgBox(“选中了 “+CStr(num)+“项 “) 将计数结果放在提示对话框中显示 End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题重点考查列表框控件的使用及命令按钮的事件和属性设置。 列表框控件用于提供可进行单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其 List属性设置加入也可在程序运行时通过代码 “列表框名 Addlte
13、m项目 ”加入，清除列表框内容可通过其 Clear方法来实现；文本框的Text属性用于设置或返回其上显示的文本； Enabled属性用于设置命令按钮是否有效，单击命令按钮将触发其 Click事件。 根据题意，将一个 List控件、一个命令按钮和一个文本框控件添加到窗体中，列表框的名称为 Listl，命令按钮的名称为Commandl、 Caption属性为 “添加 ”，文本框的名称为 Textl、 Text属性为空。双击Commandl进入代码窗口，编写如下代码： Private Sub Command1_Click() Listl AddItem Textl Text单击添加按键，将 Text1中的字符写入 List中 End SubPrivate Sub Textl_Change()If Textl Text=“ThenCommandl Enabled=False如果Textl中没有字符，则 Commandl不可用 ElseCommandl Enabled=True如果 Textl中有字符，则 Commandl可用 End IfEnd SubPrivate Sub Textl DblClick()Textl Text=“双击 Textl，清空TextlCommandl Enabled=FalseCommand不可用 End Sub单击 按钮运行程序并按要求保存。
