2. 计算机
  3. (1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．。frm，该程序是不完整的。本题内容如下：窗体上已有两个文本框，名称为Textl、Text2。要求在窗体上补充两个单选按钮，名称分别为Optionl、Option2，标题分别为“全部小写”和“

(1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．。frm，该程序是不完整的。本题内容如下：窗体上已有两个文本框，名称为Textl、Text2。要求在窗体上补充两个单选按钮，名称分别为Optionl、Option2，标题分别为“全部小写”和“

admin2010-09-02  44
问题 (1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．。frm，该程序是不完整的。本题内容如下：窗体上已有两个文本框，名称为Textl、Text2。要求在窗体上补充两个单选按钮，名称分别为Optionl、Option2，标题分别为“全部小写”和“全部大写”。要求补充完整代码后，在Textl中输入一段字符，选中“全部小写”，Text2显示全部小写的字符串；选中“全部大写”，Text2显示全部大写的字符串，如图67—3所示。
    注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
    (2)在考生文件夹下有一个工程文件sj4．vbp，在窗体Forml上设置一个控件数组Checkl(i)，该控件数组包括6个复选框控件，标题不限。另设一个名称为Commandl、标题为“统计选中个数”的命令按钮。程序运行后，单击“统计选中个数”按钮时，统计有多少个复选框被选中，并用MsgBox将其显示出来，如图67—4所示。

    注意：请去掉程序中的注释符“’”，把程序中的“?”改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案(1)本题主要考查单选按钮(OptionButton)的画法及常用属性的设置、文本框(TextBox)的Text属性、大小写字母转换函数UCase()和LCase()的使用。 单选按钮组常用于提供唯一选择，Value属性值决定每个单选按钮的选中状态：False表示未选中、True表示选中。文本框中输入的内容可以由其Text属性来设置或取得。将字符串中小写字母转化为大写字母可由UCase()函数来实现，将字符串中大写字母转化为小写字母可由LCase()函数来实现。 根据题意，将两个文本框控件和两个单选按钮控件添加到窗体中，文本框的名称分别为Textl和Text2、Text属性都为空，单选按钮的名称分别为Optionl和Option2、Caption属性分别为“全部小写”和“全部大写”。双击Commandl进入代码窗口，编写如下代码： 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表示未选中；1表示选中；2表示不可用。(即灰色)。 MsgBox()函数用于显示提示信息，并可返回一个代表用户点击了哪个按钮的Integer类型值，其常用语法为：MsgBox(prompt[，buttons][，title])。其中，prompt参数为消息框的提示信息；buttons参数用于控制消息框中按钮的数日、形式及消息框图标的样式；title参数为消息框标题栏上显示的内容。添加控件数组的方法是：先建立第一个控件，然后对该控件进行“复制”、“粘贴”操作，粘贴时在弹出的对话框中选择建立控件数组，这时控件数组的Index值会自动从0开始编号，控件数组的Count属性用于返回数组中元素的个数。 根据题意，将一组六个复选按钮控件和一个命令按钮添加到窗体中，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 Checkl．Count-1 ’For循环遍历Cheekl组 If Checkl．Item(i)．Value=1 Then ’如果选中该项 num=hum+1 ’计数加1 End If Next i MsgBox("选中了"+CStr(num)+"项") ’将计数结果放在提示对话框中显示 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/zUmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)