设有如图所示窗体和以下程序： Private Sub Command1_Click

问题单项选择题

设有如图所示窗体和以下程序：
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”(如图所示)，然后单击Command1按钮，则产生的结果是( )

A．文本框中无内容，焦点在文本框中
B．文本框中为“Basic”，焦点在文本框中
C．文本框中为“Basic”，焦点的按钮上
D．文本框中为“Visual Basic”，焦点的按钮上

答案

参考答案：A

解析： LostFocus事件是当光标离开当前文本框或用鼠标选择其他对象时触发的事件；SetFocus是将焦点移到文本框中；本题程序的含义是单击按钮，触发单击事击，在文本框中写入“Visual Basic”，此时的光标不在文本框中，就是触发LostFocus事件，If语句检查文本框中的内容不等于“Basic”，于是置空文本框，再使光标(焦点)移到文本框中。