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

admin2017-04-25  33

问题 设有如图所示窗体和以下程序:
    Pirint Sub Command1_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

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

最新回复(0)