itgle.com

在窗体上画一个文本框，然后编写如下事件过程：程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为（ ）。A. aB. AC. aaaaaaD. AAAAAA

题目

在窗体上画一个文本框，然后编写如下事件过程：程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为（ ）。

A. a

B. A

C. aaaaaa

D. AAAAAA

相似考题

1.在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click（）x = InputBox（"请输入一个整数"）Print x + Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为（ ）。A．123B．456C．479D．123456

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

3.在窗体上面有一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) TextText=String(2,KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则在文本框Text1中显示的内容为( )。A．aaaB．AAAC．AAD．aa

4.在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click( ) x=InputBox(“请输入一个整数”) Print x+Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为A．123B．456C．579D．123456

参考答案和解析
正确答案：D
D)    【解析】本题考查KeyPress事件过程和字符串函数。KeyPress事件的过程格式为：Sub object_KeyPress([Index As Integer,]KeyAscii As Integer)，其中KeyAscii为字符ASCII码。当在文本框中输入字符a后，UCase函数把输入的字符转化为大写字符，Asc函数则把字符转化为ASCII码值。String函数则产生6个同样的字符A。
更多“ 在窗体上画一个文本框，然后编写如下事件过程：程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为（ ）。A. aB. AC. aaaaaaD. AAAAAA ”相关问题

  • 第1题：

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

    A．aaaaa

    B．AAAAA

    C．aaaaaa

    D．AAAAAA


    正确答案：D
    解析：在程序段用到了4个函数，在按了键盘上的某个键(在这里是字母键A)后，Chr函数将得到的键的ASCII码值(101)转换成该ASCII码值对应的字符(A)，然后利用Ucase函数将该字符转换成大写字母(A)，将该大写字母的ASCII码值(利用函数Asc())赋给 KeyAscii，最后利用String函数的5个ASCII码值等于KeyAscii的字符(即5个A)赋给文本框Text1，此时文本框中将显示5个A，又因为KeyPress事件本身会在文本框中显示\输入一个ASCII码值为KeyAscii的字符(A)，因此最后在文本框中将显示6个大写字母A。

  • 第2题：

    在窗体上画一个文本框，其名称为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．bbb

    B．BBB

    C．BB

    D．bb


    正确答案：C
    解析：Ucase$(字符串)是指“字符串”中的小写字母转换为大写字母，Chr$(x)是把x的值转换为相应的ASCII字符。

  • 第3题：

    在窗体上画一个文本框,其名称为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字符。

  • 第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题：

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

    A．eeeee

    B．EEEEE

    C．eeeeee

    D．EEEEEE


    正确答案：D
    解析：该程序段用到了4个函数，在按了键盘上的某个键(在这里是字母键e)后，Chr函数将得到的键的 Ascii码值(101)转换成该ASCII码值对应的字符(e)，然后利用UCase函数将该字符转换成大写字母(E)，将该大写字母的ASCII码值(利用函数ASC())赋给KeyAscii，最后利用String函数将5个ASCII码值等于 KeyAscii的字符(即5个E)赋给文本框Text1，此时文本框中将显示5个E，又因为KeyPress事件本身会在文本框中显示/输入一个ASCII码值为KeyAscii的字符(E)，因此最后在文本框中将显示6个大写字母E。

相关内容