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

题目

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

A.Text1的SetFocus事件

B.Text1的GotFocus事件

C.Text1的LostFocus事件

D.窗体的GotFocus事件

相似考题

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

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.VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母（ ）。A. 只触发KeyUp事件B. 这3个事件都会触发C. 只触发KeyDown、KeyPress事件D. 不触发其中任何一个事件

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

更多“设窗体中有一个文本框Text1,若在程序中执行了Text1.SetFocus,则触发( )。A.Text1的SetFocus事件# ”相关问题

  • 第1题：

    在窗体上有一个文本框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”。

  • 第2题：

    在窗体上有一个文本框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”。

  • 第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．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”。

  • 第5题：

    VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母（ ）。

    A.这3个事件都会触发

    B.只触发KeyPress事件

    C.只触发KeyDown、KeyUp事件

    D.不触发其中任何一个事件


    正确答案：A
    A。【解析】每输入一个字符，经历了键盘上的字符被按下，又弹起，或再次被按下，又被弹起的过程，所以此过程涉及了KeyPress、KeyDown和KeyUp这三个过程。

相关内容