设有如图所示窗体和以下程序: Private Sub Command1_Click() Text1.Text="Visual Basic" End Sub Private Sub Text1_LostFoeus() If Text1.Text<>"BAS

admin2018-06-20  32

问题 设有如图所示窗体和以下程序:

Private Sub Command1_Click()
Text1.Text="Visual Basic"
End Sub
Private Sub Text1_LostFoeus()
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”,如果是则退出事件过程,继续执行命令按钮的单击事件过程,文本框中显示“Visual Basic”,如果不是则文本框内容置空,焦点返回到文本框中等待输入,不会执行命令按钮的单击事件过程。题目中输入了“Basic”,与“BASIC”不符,因此文本框置空,焦点回到文本框中。
转载请注明原文地址:https://jikaoti.com/ti/Zjy0FFFM
0

最新回复(0)