首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如图所示窗体和以下程序: Pirint Sub Commandl_Click() Text 1.Text=”Visual Basic” End Sub Private Sub Text_LostFocusO If Text 1.
设有如图所示窗体和以下程序: Pirint Sub Commandl_Click() Text 1.Text=”Visual Basic” End Sub Private Sub Text_LostFocusO If Text 1.
admin
2018-10-15
54
问题
设有如图所示窗体和以下程序:
Pirint Sub Commandl_Click()
Text 1.Text=”Visual Basic”
End Sub
Private Sub Text_LostFocusO
If Text 1.Text<>”BASIC”Then
Textl.Text=””:Text SetFocus
End If
End Sub
程序运行时,在Textl文本框中输入“Basic”(如图所示),然后单击Command按钮,则产生的结果是
选项
A、文本框中无内容,焦点在文本框中
B、文本框中为“Basic”,焦点在文本框中
C、文本框中为“Basic”,焦点在按钮上
D、文本框中为“Visual Basic”,焦点在按钮上
答案
A
解析
本题考查控件属性和事件过程。单击Commandl命令按钮,执行命令按钮的Click事件过程,在Command1的Click事件过程中,设置文本框的Text1.Text属性为“Visual Basic”。同时,由于鼠标从文本框移动到命令按钮,文本框失去焦点,触发文本框的LostFocus事件,在该事件代码里面,判断文本框内容是否为“BASIC”,由于在前面的Commandl的事件过程中设置了文本框的Text属性为“Visual Basic”,和“BASIC”不相等,因此该if判断条件成立,接下来把文本框的Text清空,并设置文本框获取输入焦点。
转载请注明原文地址:https://www.kaotiyun.com/show/bUFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有数组声明:Dims(2,3),下面错误的程序段是
以下语句或子句中,符合VisualBasic语法要求的是
有以下函数:Functionfun(xAsInteger,yAsInteger)AsIntegerDoWhilex>=yx=x-yLoopfun=xEndFuncti
下面叙述中错误的是
有下面程序代码:PrivateSubCommand1_Click()DimsignAsIntegersign=1a=1b=2Fork=1To5c=a
下面关于控件数组的叙述中正确的是
(1)在名称为Forml的窗体上添加一个名称为L1,标题为“业余爱好”的标签,再添加一个名称为Chl的复选框数组,含3个复选框,它们的Index属性分别为0、1、2,标题依次为“体育”、“音乐”、“美术”,请设置复选框的属性,使其初始状态如下表所示。程
以下变量名中合法的是()。
下列符号常量的声明中不合法的是
下列说法中,错误的是
随机试题
a.righttorejectorforbidsomethingb.routethatavoidsablockedroad;deviationc.wearaway,eatintod.combingintoaw
孤束核的机能()
调节胰岛素分泌最重要的因素是
*
甲公司为一有限责任公司,乙公司为甲公司独资创办的子公司。2006年,甲公司出资70%、乙公司出资30%,投资创办丙有限责任公司,甲公司总经理王某兼任该公司的董事长。请根据这些情况和下列各题中设定的条件回答问题:
下列关于厂外配套工程的说法正确的是()。
某建筑公司根据施工需要,委托加工厂加工构件,后由于意外情况,建筑公司通知加工厂取消合同;加工厂认为自己已经完成了60%的工作,应当继续履行合同;则下列说法中正确的是()。
Recentlyscientistshavebeen【C1】______andperfectingothersourcesofenergy:nuclearoratomicpower,solar(sun)power,ands
ArchimedeswasafamousGreekmathematicianandscientist.Hewasbornaround287BCandhediedintheyear212BC.73.Arc
Adeputysheriff’sdashmountedcameracaptureshistornadochase.Racingjustminutesbehindthemonsterstormhelooksforda
最新回复
(
0
)