（ 17 ）设窗体中有一个文本框 Text1 ，若在程序中执行了 Text1.SetFocus ，则触发A ） Text1 的 SetFocus 事件B ） Text1 的 GotFocus 事件C ） Text1 的 LostFocus 事件D ）窗体的 GotFocus 事件

题目

（ 17 ）设窗体中有一个文本框 Text1 ，若在程序中执行了 Text1.SetFocus ，则触发

A ） Text1 的 SetFocus 事件

B ） Text1 的 GotFocus 事件

C ） Text1 的 LostFocus 事件

D ）窗体的 GotFocus 事件

相似考题

1.在窗体上有一个文本框控件，名称为Text l。同时，窗体加载时设置其计时器间隔为1s、计时器触发事件过程则实现在Text1文本框中动态显示当前日期和时间，请补充完整。Private Sub Form_Load()Me.TimerInterval=1000End SubPrivate Sub 【 】Me!text1=Now()End Sub。

2.设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。A．BasicB．cisaBC．BASICD．CISAB

3.设窗体中有一个文本框Text1，若在程序中执行了Text1．SetFocus，则触发（ ）。A.Text1的SetFocus事件B.Text1的GotFocus事件C.Text1的LostFocus事件D.窗体的GotFocus事件

4.设窗体中有一个文本框Textl，若在程序中执行了Textl．SetFocus，则触发A．Textl的SetFocus事件B．Textl的GotFocus事件C．Textl的LostFocus事件D．窗体的GotFocus事件

参考答案和解析
正确答案：B
更多“( 17 )设窗体中有一个文本框 Text1 ,若在程序中执行了 Text1.SetFocus ,则触发A ) Text1 的 SetF ”相关问题

  • 第1题：

    窗体上有一个文本框，其Name属性为Text1，如图1所示，并有如下事件过程：上述程序的运行结果是（ ）。

    A. 在文本框Text1中输出55

    B. 在文本框Text1中输出0

    C. 语法错误

    D. 在文本框Text1中输出不定值


    正确答案：C
    C)    【解析】本题考查窗体Load事件的运行。当装
    入窗体事件触发时，通常用于对属性和变量的初始化，不能调用setFOCUS方法，因此程序编译出错。

  • 第2题：

    在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：

    Private Sub Text1 KeyPress(KeyAscii As Integer)

    Dim str As String,n As Integer

    str=UCase(Chr(KeyAscii))

    n=Len(str)

    Text1.Text=String(n,str)

    End Sub

    程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。

    A．pp

    B．pP

    C．PP

    D．Pp


    正确答案：B
    解析：解答本题的前提是了解下列几个函数的作用：UCase函数的作用是将某字符串中的字符全部转成大写；String(n,str)函数的作用是返回n个重复字符的字符串；Len函数的作用是返回字符串的长度。因为KeyPress事件中接收KeyAscii参数为输入键的ASCII码，输入小写字母“p”后，str为大写字母“P”，n=1，String(n,str)为“P”，所以Text1中在按下键盘上的键时又添加了一个“P”。

  • 第3题：

    （ 12 ）在窗体上有一个文本框控件，名称为 Text1 。同时，窗体加载时设置其计时器间隔为 1 秒、计时器

    触发事件过程则实现在 Text1 文本框中动态显示当前日期和时间。请补充完整。

    Private Sub Form_Load( )

    Me.TimerInterval =1000

    End Sub

    Private Sub 【 12 】

    Me!text1 = Now( )

    End Sub


    正确答案：

  • 第4题：

    在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String，n As Integer str=UCase(Chr(KeyAscii)) n=Len(str)。 Text1．Text=String(n，str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为（ ）。

    A.A.pp B.pP C.ｐｐ D.Pp

    B.


    正确答案：B
    B。【解析】解答本题的前提是了解下列几个函数的作用：UCase函数的作用是将某字符串中的字符全部转成大写；String(n，str)函数的作用是返回n个重复字符的字符串；Len函数的作用是返回字符串的长度。因为KeyPress事件中接收KeyAscii参数为输入键的ASCII码，输入小写字母“P”后，str为大写字母“P”，n=1，String(nstr)为“P”，所以Text1中在按下键盘上的键时又添加了一个“P”。

  • 第5题：

    在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程：Private Sub Text1_KeyPress(Key Ascii As Integer)Dim str As String, n As Integer str=UCase(Chr(Key Ascii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。

    A．pp

    B．pP

    C．PP

    D．Pp


    正确答案：B
    解析：解答本题的前提是了解以下几个函数的作用：UCase函数的作用是将某字符串中的字符全部转成大写；string(n,str)函数的作用是返回n个重复字符的字符串；Len函数的作用是返回字符串的长度。因为KeyPress事件中接收KeyAscii参数为输入键的ASCII码，输入小写字母“p”后，str为大写字母“P”，n=1，String(n,str)为“P”，所以Text1中在按下键盘上的键时又添加了一个“P”。

相关内容