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

admin2019-06-11  29

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

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

最新回复(0)