单选题
设有如图所示窗体和以下程序：
Pirint Sub Command1_Click()
Text1．Text="Visual Basic"
End Sub
Private Sub Text LostFocus()
If Text1．Text<>"BASIC"Then
Text1．Text=""：Text SetFocus
End If
End Sub
程序运行时，在Text1文本框中输入“Basic”(如图所示)，然后单击Command按钮，则产生的结果是
【正确答案】
A
【答案解析】解析：本题考查控件属性和事件过程。单击Command1命令按钮，执行命令按钮的Click事件过程，在Command1的Click事件过程中，设置文本框的Text1．Text属性为“Visual Basic”。同时，由于鼠标从文本框移动到命令按钮，文本框失去焦点，触发文本框的LostFocus事件，在该事件代码里面，判断文本框内容是否为“BASIC”，由于在前面的Command1的事件过程中设置了文本框的Text属性为“Visual Basic”，和“BASIC”不相等，因此该if判断条件成立，接下来把文本框的Text清空，并设置文本框获取输入焦点。