首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件vbsj3.vbp,窗体上有一个命令按钮cmdNext(标题为“下一个”)。 要求:在窗体上建立一个单选按钮数组optItem,含4个单选按钮,标题分别为“A”、“B”、“C”、“D”,初始状态下,“A”为选中状态。如图3—
(1)在考生目录下有一个工程文件vbsj3.vbp,窗体上有一个命令按钮cmdNext(标题为“下一个”)。 要求:在窗体上建立一个单选按钮数组optItem,含4个单选按钮,标题分别为“A”、“B”、“C”、“D”,初始状态下,“A”为选中状态。如图3—
admin
2017-03-27
54
问题
(1)在考生目录下有一个工程文件vbsj3.vbp,窗体上有一个命令按钮cmdNext(标题为“下一个”)。
要求:在窗体上建立一个单选按钮数组optItem,含4个单选按钮,标题分别为“A”、“B”、“C”、“D”,初始状态下,“A”为选中状态。如图3—70所示。窗体文件中已经给出了命令按钮的Click事件过程,但不完整,请去掉程序中的注释符,把程序中的“?”改为正确的内容,使得每单击命令按钮一次,就选中下一个单选按钮,如果已经选中最后一个单选按钮,再单击命令按钮,则选中第1个单选按钮。
注意:不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
程序源码:
Private Sub cmdNext Click()
’For k=0To?
If optItem(k).Value Then
’n=?
End If
Next k
optItem(n).Value=False
n=n+1
If n=4Then
’n=?
End If
optItem(n).Value=True
End Sub
(2)在考生文件夹下有一个工程文件vbsj4.vbp,窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时,在txtInput中输入若干个大写和小写字母,并选中一个单选按钮,再单击“转换”按钮,则按选中的单选按钮的标题进行转换,结果放入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=1To n
’a=Mid$(txtInput.Text,?,1)
If Opt1.Value=True Then
If a>="a"And a<="z"Then
ch=ch+UCase(a)
ElseIf 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=0To3 If optItem(k).Value Then n=k End If Next k OptItem (n).Value=False n=n+1 If n=4Then n=0 End If OptItem(n).Value=True End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 步骤1:打开考生文件夹中的本题工程文件vbsj4.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/NhGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上命令按钮Commandl的事件过程如下:PrivateSubCommand1_Click()DimtotalAsIntegertotal=s(1)+s(2)PrinttotalEndSubPrivateFunctions
属性窗口分为4个部分,这4个部分分别是______。
下列关于图像框控件和图片框控件的说法错误的是()。
使用PublicConst语句声明一个全局的符号常量时,该语句应放在______。
为了定义自己的鼠标光标,首先应把MousePointer属性设置为【】,然后把【】属性设置为一个图标文件。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Dima(1To10)Dimp(1To3)k=5Fori=1To10a(i)=iNextiFori=1To3p
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:PrivateSubCommand1_Click()strText=InputBox("请输入"
窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerX=2
下面概念中,不属于面向对象方法的是______。
在窗体上画一个命令按钮和一个文本框,其名称分别为Commandl和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:PrivateSubCommandl_Ciick()a=InputBox("Enteran
随机试题
“电波三法”
下列微分方程中,为一阶线性方程的是()
关于肾脏解剖结构的描述,错误的是
质权和抵押权都属于担保物权的范畴,但二者是不同的担保物权,质权的法律特征主要包括()。
稳健型投资者为了获得稳定的现金流,应当投资于()基金。
企业领导体制的监控系统的根本任务有()。
难以对某项变更区分为会计政策变更或会计估计变更的,应当将其作为()处理。
刘大年在《当前近代史研究的几个理论问题》一文中指出:“中国近代110年的历史基本问题是两个。一是民族不独立,要求在外国侵略压迫下解放出来;二是社会生产落后,要求工业化、近代化。两个问题内容不一样,又与之相关,不能分离。” 综合所学知识,请从背景、过程、
某重点高校20岁的大二学生王晓,起诉要求父亲王军支付大学期间的教育费和生活费,但王军因收入有限拒绝支付。对此,下列观点正确的是()。
Mostpeoplebelievethatthegovernmentaldepartmentsshouldgive______serviceatminimumcost.
最新回复
(
0
)