单选题
设有如图所示窗体和以下程序：
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
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
【正确答案】
A
【答案解析】[解析] LostFocus事件是当光标离开当前文本框或用鼠标选择其他对象时触发的事件；SetFocus是将焦点移到文本框中；本题程序的含义是单击按钮，触发单击事击，在文本框中写入“Visual Basic”，此时的光标不在文本框中，就是触发LostFocus事件，If语句检查文本框中的内容不等于“Basic”，于是置空文本框，再使光标(焦点)移到文本框中。