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

admin2019-08-21  33

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

  Prirate 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
    程序运行时,在Textl文本框中输入“Basic”(如图所示),然后单击Command1按钮,则产生的结果是(    )。

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

答案A

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

最新回复(0)