问题
单项选择题
设有如图2所示的窗体和以下程序：
Private Sub Command1_Click()
Text1.Text="Visual Basic"
End Sub
Private Sub Text1_LostFocus()
If Text1.Text＜＞"BASIC" Then
Text1.Text=""
Text1.SetFocus
End If
End Sub
程序运行时，在Text1文本框中输入Basic(如图2所示)，然后单击Command1按钮，则产生的结果是
答案
参考答案：A
解析： 当对象失去焦点时，触发LostFocus事件。当单击Command1按钮时，Text1失去焦点，触发Text1的LostFocus事件，程序调用Text1_LostFocus过程，使得Text1控件清空和获得焦点，同时，命令按钮未能获取到焦点，也不触发命令按钮的Click事件。所以本题的答案为A。