设有如图所示窗体和以下程序: Pirint Sub Commandl_Click() Text1.Text="Visual Basic" End Sub Private Sub Text_LostFocus()

admin2019-04-29  14

问题 设有如图所示窗体和以下程序:
    Pirint Sub Commandl_Click()
      Text1.Text="Visual Basic"
    End Sub
    Private Sub Text_LostFocus()
      If Text1.Text<>"BASIC"Then
        Text1.Text="":Text SetFocus
       End If
    End Sub

程序运行时,在Text1文本框中输入“Basic"(如图所示),然后单击Command按钮,则产生的结果是

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

答案A

解析 本题考查控件属性和事件过程。单击Commandl命令按钮,执行命令按钮的Click事件过程,在Commandl的Click事件过程中,设置文本框的Textl.Text属性为“Visual Basic”。同时,由于鼠标从文本框移动到命令按钮,文本框失去焦点,触发文本框的LostFocus事件,在该事件代码里面,判断文本框内容是否为“BASIC”,由于在前面的Commandl的事件过程中设置了文本框的Text属性为“Visual Basic”,和“BASIC”不相等,因此该if判断条件成立,接下来把文本框的Text清空,并设置文本框获取输入焦点。
转载请注明原文地址:https://kaotiyun.com/show/R1Up777K
0

最新回复(0)