privateSubCommand1Click()Textl.Text="VisualBasic"EndSubPrivateSubText1LostFocus()IfText1.Text"BASIC"ThenText1.Text=""Text1.SetFocusEndIfEndSub程序运行时,在Text1文件框中输入“Basic”,然后单击Command1按钮,则产生

Question

private Sub Command1_Click()
Textl.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”,焦点的按钮上
麻烦高人说明下原因,现在在vb中无法运行

Answer 1

选A.
说明：程序运行时,在Text1文件框中输入“Basic”,然后单击Command1按钮,则Text1失去焦点,因此触发Text1_LostFocus事件,因此执行Private Sub Text1_LostFocus() 中的事件.而事件是判断Text1文件框中输入的是不是"BASIC",如果是,就无动作,如果不是,就清空,并且焦点回到Text1文件框.而题目中输入的是“Basic”,不等于"BASIC",因此结果选A.
需要说明的是,若一开始运行,就立即单击Command1按钮,则Text1文件框中显示的是 "Visual Basic" .