[单选题]

在窗体上画一个名称为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．b

B．bb

C．BB

D．B

参考答案与解析：

相关试题

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

[单选题]在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:Private Sub Text1_KeyPress(KeyAscii As Integer)D．im str As StringStr=Chr(KeyAscii)KeyAscii=Asc(UCase (str))Textl.Text=String(2, KeyAscii)E．nd Sub程序运行后,如果在键盘上输入字母"b",则在文本框Text1中显示的内容是A．bbbB．BBBC．BBD．bb

  • 查看答案

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

    [单选题]在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim sb As String Str=Chr(KcyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“b”，则在文本框Text1中显示的内容是A．bbbB．BBBC．BBD．bb

  • 查看答案

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

    [单选题]在窗体上画一个名称为Text1的文本框，然后编写如下的事件过程： Private Sub Text1_KeyPress(Keyascii As Integer) ... End Sub 若焦点位于文本框中，则能够触发此事件的操作是( )。A．左键单击文本框B．左键双击文本框C．右键单击文本框D．按下键盘上的某个键

  • 查看答案

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

    [单选题]在窗体上画一个名称为Text1的文本框，然后编写如下的事件过程：Pfivate Sub Text1_KeyPress(Keyascii As Integer) … End Sub 若焦点位于文本框中，则能够触发此事件的操作是( )。A．单击文本框B．双击文本框C．单击文本框D．按键盘上的某个键

  • 查看答案

    • 在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程:Private S

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

  • 查看答案

    • 在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程:Private S

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

  • 查看答案

    • 在窗体上画一个名称为Txta的文本框，然后编写如下的事件过程：Private S

    [单选题]在窗体上画一个名称为Txta的文本框，然后编写如下的事件过程：Private Sub Txta_KeyPress（keyascii asinteger）EndSub若焦点位于文本框中，则能够触发KeyPress事件的操作是（）A . 单击鼠标B . 双击文本框C . 鼠标滑过文本框D . 按下键盘上的某个键

  • 查看答案

    • 在窗体上画一个文本框,然后编写如下事件过程:Private Sub Text1_

    [单选题]在窗体上画一个文本框，然后编写如下事件过程： 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．aB．AC．aaaaaaaD．AAAAAAA

  • 查看答案

    • 在窗体上画一个文本框,然后编写如下事件过程:Private Sub Text1_

    [单选题]在窗体上画一个文本框，然后编写如下事件过程：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．aB．AC．aaaaaaaD．AAAAAAA

  • 查看答案

    • 在窗体上画一个文本框,然后编写如下事件过程:Private Sub Text1_

    [单选题]在窗体上画一个文本框，然后编写如下事件过程： 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

  • 查看答案