单选题
设有如图所示窗体和以下程序：
Private Sub Command 1_Click()
Text1.Text="Visual Basic"
End Sub
Private Sub Text 1_LostFocus()
If Text 1.Text＜＞"BASIC" Then
Text1.Text=""
Text1.SetFocus
End If
End Sub
程序运行时，在文本框中输入“Basic”，然后单击Command1按钮，则产生的结果是______。
Private Sub Command 1_Click()
Text1.Text="Visual Basic"
End Sub
Private Sub Text 1_LostFocus()
If Text 1.Text＜＞"BASIC" Then
Text1.Text=""
Text1.SetFocus
End If
End Sub
程序运行时，在文本框中输入“Basic”，然后单击Command1按钮，则产生的结果是______。
【正确答案】
A
【答案解析】[考点] 文本框和焦点
[解析] 当按下Tab键使光标离开当前文本框或用鼠标选择其他对象时触发文本框的LostFocus事件。本题程序运行时，在文本框中输入“Basic”后，单击命令按钮，将首先执行文本框的LostFocus事件过程，而此时LostFocus事件过程中If语句的条件为真，文本框中的内容将被清空，并且重获焦点，因此命令按钮的Click事件过程将不被执行。