首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,名称为Check1的两个复选框构成的控件数组,下标分别为1、2。窗体外观如图所示。 要求在程序运行时,改变复选框选中状态,则文本框中文本的字体做相应变化。为此,某人编写了如下程序代码: Private Sub Che
窗体上有一个名称为Text1的文本框,名称为Check1的两个复选框构成的控件数组,下标分别为1、2。窗体外观如图所示。 要求在程序运行时,改变复选框选中状态,则文本框中文本的字体做相应变化。为此,某人编写了如下程序代码: Private Sub Che
admin
2020-07-22
69
问题
窗体上有一个名称为Text1的文本框,名称为Check1的两个复选框构成的控件数组,下标分别为1、2。窗体外观如图所示。
要求在程序运行时,改变复选框选中状态,则文本框中文本的字体做相应变化。为此,某人编写了如下程序代码:
Private Sub Check1_Click(Index As Integer)
If Index=1 And Check1(1).Value then
Text1.FontItalic=True
Else
Text1.FontItalic=False
End If
If Check1(2).value=1 then
Text1.FontBold=True
End If
If Check1(2).value=0 Then
Text1.FontBold=False
End If
End Sub
但是,以上程序在运行中不能完全达到要求,应进行修改,下面正确的修改是
选项
A、将If Index=1 And Check1(1).Value Then 改为If Check1(1).Value Then
B、将第1个If条件中的Check1(1).Value 改为Check1(1).Value =True
C、将第2个If条件中的Check1(2).Value=1 改为Check1(2).Value =True
D、将第3个If条件中的Check1(2).Value=0改为Check1(2).Value= False
答案
A
解析
复选框中的Value属性用来返回或设置复选的状态,值取0时,表示没有选中复选框,1表示选中复选框,2为该复选框为禁止。故进行修改应在第一个If条件中将"If Index=1 And Check1(1).Value" 改为"If Check1(1).Value"。这是因为当勾选斜体项时, Check1(1).Value为True,设置文本为斜体,否则将文本不设置为斜体。故选择A。
转载请注明原文地址:https://kaotiyun.com/show/H8Hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下数据定义语句:Dima,bAsIntegerDimx%,yasInteger执行上述语句后,不是整型变量的是
以下控件中,能显示滚动条的是
在窗体上厕一个名称为Command1的命令按钮,然后编写如下程序:PrivateSubCommand1_Click()DimaAsIntegera=2s=0Fori=1To3s=s
某人编写了下面的程序:PrivateSubCommandl_Click()DimaAsInteger,bAsIntegera=InputBox(”请输入整数”)b=InputBox(”请输入整数”)
在窗体上有一个名称为Commandl的命令按钮,并有如下程序:PrivateSubCommand1Click()StaticXAsIntegerStaticYAsIntegerClsY=1:Y=Y+5:X=5+X:Print
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序:PrivateSubCommand1_Click() DimxAsInteger x=Val(InputBox("输入数据")) Text1=
实现字符的UniCode编码方式与ANSI编码方式相互转换的函数是()。
以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数是()。
随机试题
()是指公安机关、人民检察院和人民法院依法限令犯罪嫌疑人、被告人不得离开住处或指定的居所,并限制其行动的一种强制方法。
系统性硬化病所致肾损害结节性多动脉炎所致肾损害
有关家庭财务报表的叙述,错误的是( )。
企业出租无形资产所取得的租金收入,正确的会计处理是贷记()科目。
与“春愁难遣强看山,往事惊心泪欲潸。四百万人同一哭,去年今日割台湾。”一诗相关联的历史事件是:
根据法律规定,不可以招用未满16周岁未成年人的单位是()。
由曲线y=1一(x一1)2及直线y=0围成图形(如图3—1所示)绕y轴旋转而成的立体的体积V是()
80386的地址总线是( )。
Inthepastfewdecades,remarkablefindingshavebeenmadeinethology,thestudyofanimalsocialbehavior.Earlierscientists
SharingEconomicLossesthroughInsuranceEachminuteofthedayornight,everyonefacesapossiblefinancialloss.Ahome
最新回复
(
0
)