问答题
简单应用题
(1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。本题内容如下：窗体上已有两个文本框，名称为Text1、Text2。要求在窗体上补充两个单选按钮，名称分别为Option1、Option2，标题分别为“全部小写”和“全部大写”。要求补充完整代码后，在Text1中输入一段字符，选中“全部小写”，Text2显示全部小写的字符串；选中“全部大写”，Text2显示全部大写的字符串，如图7-3所示。
注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
(2)在考生文件夹下有一个工程文件sj4．vbp，在窗体Form1上设置一个控件数组Check1(i)，该控件数组包括6个复选框控件，标题不限。另设一个名称为Command1、标题为“统计选中个数”的命令按钮。程序运行后，单击“统计选中个数”按钮时，统计有多少个复选框被选中，并用MsgBox将其显示出来，如图7-4所示。
注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
(2)在考生文件夹下有一个工程文件sj4．vbp，在窗体Form1上设置一个控件数组Check1(i)，该控件数组包括6个复选框控件，标题不限。另设一个名称为Command1、标题为“统计选中个数”的命令按钮。程序运行后，单击“统计选中个数”按钮时，统计有多少个复选框被选中，并用MsgBox将其显示出来，如图7-4所示。
【正确答案】(1) 本题主要考查单选按钮(OptionButton)的画法及常用属性的设置、文本框(TextBox)的Text属性、大小写字母转换函数UCase（ ）和LCase（ ）的使用。单选按钮组常用于提供唯一选择，Value属性值决定每个单选按钮的选中状态：False表示未选中、True表示选中。文本框中输入的内容可以由其Text属性来设置或取得。将字符串中小写字母转化为大写字母可由UCase（ ）函数来实现，将字符串中大写字母转化为小写字母可由LCase（ ）函数来实现。
根据题意，将两个文本框控件和两个单选按钮控件添加到窗体中，文本框的名称分别为Text1 和Text2、Text属性都为空，单选按钮的名称分别为Option1和Option2、Cap-tion属性分别为“全部小写”和“全部大写”。双击 Com-mand1进入代码窗口，编写如下代码：
(2)本题主要考查复选按钮控件数组及MsgBox（ ）函数的使用。
复选按钮组常用于提供多重选择，Value属性值决定每个复选按钮的选中状态：0表示未选中；1表示选中；2表示不可用(即灰色)。
MsgBox（ ）函数用于显示提示信息，并可返回一个代表用户点击了哪个按钮的Integer类型值，其常用语法为：MsgBox(prompt[，buttons] [，title])。其中，prompt参数为消息框的提示信息；buttons参数用于控制消息框中按钮的数目、形式及消息框图标的样式；title参数为消息框标题栏上显示的内容。
添加控件数组的方法是：先建立第一个控件，然后对该控件进行“复制”、“粘贴”操作，粘贴时在弹出的对话框中选择建立控件数组，这时控件数组的Index值会自动从0开始编号，控件数组的Count属性用于返回数组中元素的个数。
根据题意，将一组六个复选按钮控件和一个命令按钮添加到窗体中，Check的名称都为Check1、Caption属性自定义，命令按钮的名称为 Command1、Caption属性为“统计选中个数”，设置完成后双击Command1进入代码窗口，用For循环逐一检查复选按钮数组各元素的 Value属性值是否为1，若是，将统计变量加1。将最终统计结果用MsgBox（ ）函数显示。补充后的具体代码如下：
(2)本题主要考查复选按钮控件数组及MsgBox（ ）函数的使用。
复选按钮组常用于提供多重选择，Value属性值决定每个复选按钮的选中状态：0表示未选中；1表示选中；2表示不可用(即灰色)。
MsgBox（ ）函数用于显示提示信息，并可返回一个代表用户点击了哪个按钮的Integer类型值，其常用语法为：MsgBox(prompt[，buttons] [，title])。其中，prompt参数为消息框的提示信息；buttons参数用于控制消息框中按钮的数目、形式及消息框图标的样式；title参数为消息框标题栏上显示的内容。
添加控件数组的方法是：先建立第一个控件，然后对该控件进行“复制”、“粘贴”操作，粘贴时在弹出的对话框中选择建立控件数组，这时控件数组的Index值会自动从0开始编号，控件数组的Count属性用于返回数组中元素的个数。
根据题意，将一组六个复选按钮控件和一个命令按钮添加到窗体中，Check的名称都为Check1、Caption属性自定义，命令按钮的名称为 Command1、Caption属性为“统计选中个数”，设置完成后双击Command1进入代码窗口，用For循环逐一检查复选按钮数组各元素的 Value属性值是否为1，若是，将统计变量加1。将最终统计结果用MsgBox（ ）函数显示。补充后的具体代码如下：
【答案解析】