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

admin2016-06-30  30

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

    Private Sub Commandl_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”,焦点在按钮上

答案A

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

最新回复(0)