首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件vbs2-3.vbp,窗体上有一个命令按钮cmdNext(标题为“下一个”)。 要求:在窗体上建立一个单选按钮数组optltem,含4个单选按钮,标题分别为“A”、“B”、“C”、“D”,初始状态下,“A”为选中状态
(1)在考生目录下有一个工程文件vbs2-3.vbp,窗体上有一个命令按钮cmdNext(标题为“下一个”)。 要求:在窗体上建立一个单选按钮数组optltem,含4个单选按钮,标题分别为“A”、“B”、“C”、“D”,初始状态下,“A”为选中状态
admin
2017-09-22
14
问题
(1)在考生目录下有一个工程文件vbs2-3.vbp,窗体上有一个命令按钮cmdNext(标题为“下一个”)。
要求:在窗体上建立一个单选按钮数组optltem,含4个单选按钮,标题分别为“A”、“B”、“C”、“D”,初始状态下,“A”为选中状态。如图3.70所示。窗体文件中已经给出了命令按钮的Click事件过程,但不完整,请去掉程序中的注释符,把程序中的“?”改为正确的内容,使得每单击命令按钮一次,就选中下一个单选按钮,如果已经选中最后一个单选按钮,再单击命令按钮,则选中第1个单选按钮。
注意:不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
程序源码:
PriVate Sub cmdNext_Click()
’ For k=0 To?
If OptItem(k).Value Then
’ n=?
End If
Next k
optItem(n).Value=False
n=n+1
If n=4 Then
’ n= ?
End If
optItem(n).Value=True
End Sub
(2)在考生文件夹下有一个工程文件vbsj4.vbp,窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时,在txtlnput中输入若干个大写和小写字母,并选中一个单选按钮,再单击“转换”按钮,则按选中的单选按钮的标题进行转换,结果放入txtResult(如图3.71所示)。在给出的窗体文件中已经给出了全部控件,但程序不完整,要求:去掉程序中的注释符,把程序中的“?”改为正确的内容。
注意:不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
程序源码:
Private Sub cmdChange_Click()
Dim n As Integer,k As Integer
Dim ch As String,a As String
n=Len(txtInput.Text)
ch=""
For k=1 To n
’ a=Mid$(txtInput.Text,?,
1)
If Optl.Value=True Then
If a>="a" And a<="z" Then
ch=ch+UCase(a)
E1seIf a>="A" And a<="Z" Then
’ Ch=Ch+?
Else
ch=ch+a
End If
End If
If Opt2.Value=True Then
ch=UCase(txtInput)
End If
If Opt3.Value=True Then
ch=LCase(txtInput)
End If
Next k
’txtResult=?
End Sub
选项
答案
(1)步骤1:打开考生文件夹中的本题工程文件vbsj3.vbp,按表4-43在窗体中用“复制”和“粘贴”命令画出包含4个元素的单选数组和1个命令按钮并设置属性。 [*] 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: PriVate Sub CmdNext_Click() For k=0 To 3 If OptItem(k).Value Then n=k End If Next k OptItem (n).Value=False n=n+1 If n=4 Then n=0 End If OptItem (n).Value=True End Sub 步骤3:按要求将文件保存至考生文件夹中。 (2)步骤1:打开考生文件夹中的本题工程文件vbsi4.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: a=Mid$(txtInput.Text,k,1) ch=ch+LCase(a) txtResult=ch 步骤2:按要求将文件保存至考生文件夹中。
解析
(1)本题源程序在命令按钮的单击事件过程中,首先利用For循环语句(循环变量k的初值为0,终值为3)逐一检查单选按钮数组中的每个元素是否被选中,若选中则用变量n记录下选中单选按钮的索引号,即n=k。循环结束后,取消对当前选中单选按钮的选择,变量n增1;接着判断增1后的n值是否为4,若是则将n的值设置为0;最后设置索引号为n的单选按钮被选中。
(2)本题源程序功能是在命令按钮的单击事件过程中,用For循环语句和Mid函数逐一取出文本框txtInput中的字符后,根据单选按钮的选择进行相应转换;当选择“大小写互换”时,如果是小写字母就用UCase函数转换为大写,如果是大写字母就用LCase函数转换为小写,如果不是字母就不用转换;当选择“全部大写”时,就用UCase函数将文本框中所有字母转换为大写;当选择“全部小写”时,就用LCase函数将文本框中所有字母转换为小写。将转换结果显示在文本框txtResult中。
转载请注明原文地址:https://kaotiyun.com/show/RjGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在VisualBasic中按文件的访问方式不同,可以将文件分为顺序文件,随机文件和【】。
数据库设计包括概念设计、【】和物理设计。
一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Fomil中有语句PublicXAsInteger,在Model1中有语句PublicYAsInteger.则以下叙述中正确的是
为了使命令按钮(名称为Command1)右移200,应使用的语句是
假定有下表所列的菜单结构:要求程序运行后,如果单击菜单项“大图标”,则在该菜单项前添加一个“√”。以下正确的事件过程是
在窗体上画一个名称为Filel的文件列表框,并编写如下程序:PrivateSubFilel_DblClick()x=Shell(Filel.FileName,1)EndSub以下关于该程序的叙述中,错误的是__
设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为al,且取消其"可见"属性。运行时,可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是
一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句PublicXAsInteger,在Model1中有语句PublicYAsInteger,则以下叙述中正确的是()。
随机试题
机体处于炎热环境中时
邦仪公司(外商独资企业)享受特定减免税优惠进口的小轿车,未经海关批准不得擅自出售、转让、移作他用。按照现行规定,海关对其监管年限为()。
某银行股份公司主要经营存、贷款业务,并提供其他金融服务,2008年第二季度发生了以下几笔业务:(1)“其他贷款利息收入”130万元,其中票据贴现贷款利息收入30万元;“金融机构往来利息收入”账户反映同业往来利息收入25万元。(2)本期取得一
甲公司为增值税一般纳税人,适用的增值税税率为13%。2020年4月甲公司发生以下经济业务: (1)1日,甲公司与丙公司签订合同,委托丙公司销售w商品200件,w商品已经发出,每件成本为60元。合同约定丙公司应按每件100元对外销售,甲公司按不含增值税的销
《消费者权益保护法》规定,经营者提供商品或提供服务时侵害消费者人格尊严或侵犯消费者人身自由的,应当()。
因勇救学生于2012年5月16日、17日相继被评为全国“五一劳动模范”、全国“三八红旗手”的教师叫张丽莉。()
下列论断,属于主观唯心主义的有()。
设实对称矩阵A满足A2=O,证明:A=O.
A、Heisalwaysoptimisticabouteverything.B、Heisextremelycarefulinhisdiet.C、Heseeshisdoctorassoonashefallsill.
A、Becausetheyprovidepoorservice.B、Becausetheyneglectcustomers’requirement.C、Becausetheyinsultcustomers.D、Becauset
最新回复
(
0
)