设有如图所示窗体和以下程序: Private Sub Command1_Click()   Text1.Text="Visual Basic" End Sub Private Sub Text1_LostFocus()   If Text1.Text"B

admin2020-06-30  45

问题 设有如图所示窗体和以下程序:

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

解析 题目程序的功能为,当单击命令按钮时,Text1失去焦点,激发Text1的LostFocus事件,在此事件中,程序判断文本框中字符串是否为"BASIC",如果是则退出事件过程,继续执行命令按钮的单击事件过程,文本框中显示"Visual Basic",如果不是则文本框内容置空,焦点返回到文本框中等待输入,不会执行命令按钮的单击事件过程。题目中输入了"Basic",与"BASIC"不符,因此文本框置空,焦点回到文本框中。
转载请注明原文地址:https://jikaoti.com/ti/FmS0FFFM
0

最新回复(0)