在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii As Integer) …… End Sub 假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是______。A．单击鼠标B．双击文本框C．鼠标滑过文本框D．按下键盘上的某个键

题目

在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii As Integer) …… End Sub 假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是______。

A．单击鼠标

B．双击文本框

C．鼠标滑过文本框

D．按下键盘上的某个键

相似考题

1.（ 28 ）在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程：Private Sub TxtA _KeyPress(KeyAscii As Integer)......End Sub假定焦点已经位于文本框中，则能够触发 KeyPress 事件的操作是A ） 单击鼠标B ） 双击文本框C ）鼠标滑过文本框D ）按下键盘上的某个键

2.在窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc (UCase(ch)) TextText = String(1, KeyAscii) End Sub程序运行后，使文本框拥有焦点，然后按键盘上的B键，则在文本框中显示的内容是 ______。A．bB．bbC．BBD．B

3.在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(Key Ascii As Integer) Dim char As String char=Chr(Key Ascii) KeyAscii=Asc(UCase(char)) Text1．Text=Sting(6，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为______。A．aB．AC．aaaaaaaD．AAAAAAA

4.在窗体上画一个文本框(Textl)，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(Ucase(char)) Print String(4，KeyAscii) End Sub 程序运行后，在文本框Text1中输入A，则程序在窗体上的输出结果为A．aB．AC．aaaaD．AAAA

参考答案和解析
正确答案：D
解析：KeyPress事件用来识别按键的ASCII码，从而识别键盘上某个键的按下与释放。
更多“在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程:Private Sub TxtA_KeyPress(KeyAscii ”相关问题

  • 第1题：

    窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Form. Load() Show TextSetFocus End Sub Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc(UCase(ch)) Pint Chr(KeyAscii + 4) End Sub程序运行后，在文本框中输入abcde，则在窗体上显示的内容是______。

    A．abcde

    B．efghi

    C．EFGHI

    D．ABCDE


    正确答案：C

  • 第2题：

    在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:

    Private Sub Text1_KeyPress(KeyAscii As Integer)

    Dim str As String

    Str=Chr(KeyAscii)

    KeyAscii=Asc(UCase (str))

    Textl.Text=String(2, KeyAscii)

    End Sub

    程序运行后,如果在键盘上输入字母"b",则在文本框Text1中显示的内容是

    A．bbb

    B．BBB

    C．BB

    D．bb


    正确答案：C
    解析：考查对转换函数Ucase$和Chr$的概念和使用方法。Ucase$(字符串)是指"字符串"中的小写字母转换为大写字母,Chr$(x)是把x的值转换为相应的ASCII字符。

  • 第3题：

    在窗体上画一个名称为TxtA的文本框,然后编写如下事件过程:PrivateSubTxtA_KeyPress(Keyasciiasinteger)…EndSub若焦点位于文本框中,则能够触发KeyPress事件的操作是()

    A、单击鼠标

    B、双击文本框

    C、鼠标划过文本框

    D、按下键盘上的某个键


    正确答案：D

  • 第4题：

    在窗体上画一个文本框，然后编写如下事件过程：Private Sub Text1_ KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Text1. Text= String(6，KeyAscii)End Sub程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为______。

    A．a

    B．A

    C．aaaaaaa

    D．AAAAAAA


    正确答案：D
    解析：该事件过程中首先用Chr函数记录下输入的字符，然后用UCase函数将其转化为大写，再用Asc函数记录下其码值。最后使用String函数将其重复6遍并输出到文本框中。当文本框中的文本内容发生变化的时候，会触发文本框的Change事件，而KeyPress事件是在Change事件之前触发的，在发生KeyPress事件之前，尚未触发Change事件。在KeyPress事件中，改变了文本框的Text属性，所以会触发Change事件，之后，键盘输入的信息“a”才在变为大写之后输入文本框，文本框中最终显示的是7个“A”。

  • 第5题：

    在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(key Ascii As Integer) End Sub 若焦点位于文本框中，则能够触发KeyPress事件的操作是( )。

    A．单击鼠标

    B．双击文本框

    C．鼠标滑过文本框

    D．按下键盘上的某个键


    正确答案：D

相关内容