首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.。frm,该程序是不完整的。本题内容如下:窗体上已有两个文本框,名称为Textl、Text2。要求在窗体上补充两个单选按钮,名称分别为Optionl、Option2,标题分别为“全部小写”和“
(1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.。frm,该程序是不完整的。本题内容如下:窗体上已有两个文本框,名称为Textl、Text2。要求在窗体上补充两个单选按钮,名称分别为Optionl、Option2,标题分别为“全部小写”和“
admin
2010-09-02
38
问题
(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://kaotiyun.com/show/zUmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序片段的执行中,说法正确的是( )。publicclassTest{publicstaticvoidmain(Stringargs[]){bytey=20;
通过类MyClass中的不含参数的构造函数,生成该类的一个对象obj,可通过以下语句实现:______。
执行下列程序段之后,变量n的值为( )。publicclassTest{publicstaticvoidmain(String[]args){inty=2;i
数据库、数据库系统和数据库管理系统之间的关系是( )。
下列程序的功能是创建了一个显示5个"Hello!"的线程并启动运行,请将程序补充完整。publicclassThreadTestextendsThread{publicstaticvoidmain(Stringargs[]){Thre
下列语句中所使用的布局管理器,当改变容器大小,组件大小不会随着一起改变的是
下列数组array_test中,能在程序运行时动态调整大小的是
在最坏情况下,下列排序方法中时间复杂度最小的是
阅读下列代码后publicclassPerson{intarr[]=newint[10];publicstaticvoidmain(Stringargs[]){System.out.pr
下列哪一个类是由编译器自动生成对象的特殊类,且用于类操作?______
随机试题
下列对优美的理论探讨的叙述,不符合实际的是()
在众多的酸碱平衡指标中3个基本指标是______、______、______。
男,42岁,突感胸骨后撕裂样疼痛,就诊后行CTA检查如下图,应考虑为
酶与无机催化剂化反应的不同点是
乙建筑公司采用累计实际发生的合同成本占合同预计总成本的比例确定合同完工进度,并采用完工百分比法确认合同收入和合同成本。20×2年1月1日,乙建筑公司签订一项总金额为480万元的建造合同,合同期为3年。20×2年12月31日,乙建筑公司实际发生合同成本100
习近平总书记曾在中央政法工作会议上强调,公安机关要处理好维稳与维权的关系,要把群众合理合法的利益诉求解决好。这集中体现了对公安机关()的要求。
“第一”的雅称有()。
[*]
Manyinstructorsbelievethataninformal,relaxedclassroomenvironmentis【1】tolearningandinnovation.Itisnotuncommon
Iamoneofthemanycitypeoplewhoarealwayssayingthatgiventhechoicewewouldprefertoliveinthecountryawayfromth
最新回复
(
0
)