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