首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如图所示窗体和以下程序: Private Sub Command1_Click( ) Text1.Text=“Visual Basic” End Sub Private Sub Text1_LostFocus
设有如图所示窗体和以下程序: Private Sub Command1_Click( ) Text1.Text=“Visual Basic” End Sub Private Sub Text1_LostFocus
admin
2020-08-10
59
问题
设有如图所示窗体和以下程序:
Private Sub Command1_Click( )
Text1.Text=“Visual Basic”
End Sub
Private Sub Text1_LostFocus( )
If Text1.Text<>“BASIC”Then
Text1.Text=“”
Text1.SetFocus
End If
End Sub
程序运行时,在Text1文本框中输入“Basic”(如图所示),然后单击Command1按钮,则产生的结果是 ( )。
选项
A、文本框中无内容,焦点在文本框中
B、文本框中为“Basic”,焦点在文本框中
C、文本框中为“Basic”,焦点在按钮上
D、文本框中为“Visual Basic”,焦点在按钮上
答案
A
解析
题目程序的功能为,当单击命令按钮时,Text1失去焦点,激发Text1的LostFocus事件,在此事件中,程序判断文本框中字符串是否为“BASIC”,如果是则退出事件过程,继续执行命令按钮的单击事件过程,文本框中显示“VisualBasic”,如果不是则文本框内容置空,焦点返回到文本框中等待输入,不会执行命令按钮的单击事件过程。题目中输入了“Basic”,与“BASIC”不符,因此文本框置空,焦点回到文本框中。
转载请注明原文地址:https://kaotiyun.com/show/9qHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下程序的功能是随机产生10个两位的整数:OptionBase1PrivateSubCommand1Click()Dima(10)AsInteger,iAsIntegerRandomizcFori=1To10a(i)=
在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为ComTest1。设窗体Form1标题为“MyForm1”,双击控件数组中的第3个按钮,打开代码编辑器,编写如下代码:PrivaeSubComTest1_Click(IndexAs
编写如下程序:PrivateSubCommandl_Click()DimiAsInteger,jAsIntegern=InputBox(”输入一个大于1的正整数”)
以下关于VB对象属性的叙述中,错误的是
以下关于单选按钮和复选框的叙述中,正确的是
如果改变驱动器列表框的Drive属性,则将触发的事件是
为了使标签控件在显示其内容时不覆盖其背景内容,需进行设置的属性为
在VisualBasic中,所有标准控件都具有的属性是
设菜单编辑器中各菜单项的属性设置如下表所示针对上述属性设置,以下叙述中错误的是
将窗体的KeyPreview属性设为Tlue,然后编写如下程序:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivat
随机试题
A.providesB.idealC.middleD.averageE.senseF.abundanceG.primarilyH.stopI.moderateJ.surviveK.d
某急性心肌梗死患者心电监护时发现一提前出现的宽大畸形QRS波群,T波与QRS波主波方向相反,此提前出现的QRS波群最可能是
A.生物利用度B.表观分布容积C.达峰时间D.药-时曲线下面积E.清除率可相对反映出同种药物不同制剂为机体吸收程度的指标是
环境质量评价的目的不包括
脾之大络,名为
下列钢筋混凝土结构允许的伸缩缝间距最大的是()。
写出项目环评的专题设置内容。写出大气监测因子。
2001年,刘军华共收到26笔汇款,开始6次是每笔750元,剩下的每笔都比开始前6次每笔多30元,问这一年他共收到多少钱?()
设a=2,b=3,c=4,d=5,下列表达式的值是______。3>2*bOra=cAndb<>cOrc>d
Likeaneedleclimbingupabathroomscale,thenumberkeepsrising.In1991,15%ofAmericanswereobese(肥胖的);by1999,thatp
最新回复
(
0
)