问题
单项选择题
设有如图所示窗体和以下程序：
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”不符，因此文本框置空，焦点回到文本框中。