设有如图所示窗体和以下程序: Private Sub Command l_Click() Textl.Text=“Visual Basic” End Sub Private Sub Textl_LostFocus

admin2020-02-27  33

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

    Private Sub Command l_Click()
         Textl.Text=“Visual Basic”
    End Sub
    Private Sub Textl_LostFocus()
          If Textl.Text<>“BASIC”Then
              Textl.Text=“”
              Textl.SetFocus
          End lif
    End Sub
    程序运行时,在Textl文本框中输入“Basic”(如图所示),然后单击Commandl按钮,则产生的结果是(     )。

选项 A、文本框中无内容,焦点在文本框中
B、文本框中为“Basic”,焦点在文本框中
C、文本框中为“Basic”,焦点在按钮上
D、文本框中为“Visual Basic”,焦点在按钮上

答案A

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

最新回复(0)