首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有名称为Command1的命令按钮和名称为Text1的文本框 Private Sub Command1_Click() Text1.Text="程序设计" Text1.SetFocus End Sub Private Sub Text1_GotF
窗体上有名称为Command1的命令按钮和名称为Text1的文本框 Private Sub Command1_Click() Text1.Text="程序设计" Text1.SetFocus End Sub Private Sub Text1_GotF
admin
2018-09-19
65
问题
窗体上有名称为Command1的命令按钮和名称为Text1的文本框
Private Sub Command1_Click()
Text1.Text="程序设计"
Text1.SetFocus
End Sub
Private Sub Text1_GotFocus()
Text1.Text="等级考试"
End Sub
运行以上程序,单击命令按钮后( )。
选项
A、文本框中显示的是"程序设计",且焦点在文本框中
B、文本框中显示的是"等级考试",且焦点在文本框中
C、文本框中显示的是"程序设计",且焦点在命令按钮上
D、文本框中显示的是"等级考试",且焦点在命令按钮上
答案
B
解析
运行程序,单击命令按钮后,执行Command1_Click事件过程代码,文本框Text1中显示"程序设计",并且文本框Text1获得焦点,此时焦点在Text1中;当Text1获得焦点就会触发它的Got_Focus事件,执行Got_Focus事件过程,结果文本框Text1中显示"等级考试"。故B选项正确。
转载请注明原文地址:https://kaotiyun.com/show/OIFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下程序代码:PrivateSubForm_Click()Dima(100)AsIntegerDimb(100)AsIntegerFori=1To100a(i)=i
有如下程序:PrivateSubForm_Click()DimBAsStringDimmAsInteger,DecAsIntegerB=InputBox("请输入一个二进制数")m=L
有如下通用过程:SubSa(aAsInteger,bAsInteger)b=at=a/bb=tModbEndSub在窗体上画一个Command1命令按钮,然后编写如下事件过程:Priv
假定已在窗体上画了多个控件,其中有一个被选中,为了在属性窗口中设置窗体的属性,预先应执行的操作是( )。
在关系A(S,SN,D)和B(D,CN,NM)中,A的主关键字是S,B的主关键字是D,则D是A的
下列叙述中错误的是
以下过程的功能是从数组中寻找最大值:PrivateSubFindMax(a()AsInteger,ByRefMaxAsInteger) DimsAsInteger,fAsInteger DimiAsInteger
设窗体上有一个名称为Option1的单选按钮数组(其下标从0开始),共有4个单选按钮,并有下面事件过程:PrivateSubOption1_Click(IndexAsInteger)n=IndexIfIndex<3
数据流图中带有箭头的线段表示的是( )。
VisualBasic源程序的续行符为
随机试题
假设圆管流动的临界雷诺数Rek=2300,今有15℃的水在内径d=20mm的圆管中以流速v=0.8m/s在管中流动,则管中水流的流动是什么流态,如管内保持层流状态,其最大的流速是多少,正确的答案是()。
用快速排气阀,不能使气缸速度变快。()
慢性肾功能衰竭最早和最常见的症状是
营养性巨幼细胞贫血出现震颤的护理措施有
下列方剂中组成药物不含人参、生姜的方剂是
A.阿米卡星B.红霉素C.土霉素D.阿昔洛韦E.利福喷丁属于抗结核药的为()。
检验检疫机构签发的产地证书是( )海关征收或减免关税的有效凭证。
数学学习中形成的认真审题及审题方法会影响化学、物理等学习的审题态度及审题方法,这种学习迁移叫()。
王教授是某大学人气极旺的教师,他非常喜欢微博,自然对喜欢开微博的人也很欣赏。他的一位学生粉丝认为,不开微博者没有资格来听王老师的课,于是自作主张,就在王教授上课的教室门口竖起了一块牌子,上面写着“不开微博者不得入内”。牌子竖起后,就来了一位想听课的学生小芳
Itseemsindividualcancercellssendoutthesamedistresssignalsaswounds,trickingimmunecellsintohelpingthemgrowinto
最新回复
(
0
)