对文本框Text1编写如下事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim b As Stringb = Chr(KeyAscii)KeyAscii = Asc(UCaseB、)End Sub运行时，下列叙述正确的是( )。A、 Text1中无法输入字符B、 Text1中内容为"b"C、 Text1中输入的字符都变为大写D、 Text1中输入的字符都被转换成ASCII码

题目

对文本框Text1编写如下事件过程：

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim b As String

b = Chr(KeyAscii)

KeyAscii = Asc(UCaseB、)

End Sub

运行时，下列叙述正确的是( )。

A、 Text1中无法输入字符

B、 Text1中内容为"b"

C、 Text1中输入的字符都变为大写

D、 Text1中输入的字符都被转换成ASCII码

相似考题

1.在窗体上一个文本框，其名称为Text1,然后编写如下事件过程：PrivateSubText2_KeyPress(KeyAsciiAsInteger)DimstrAsString,nAsIntegerstr=Ucase(Chr(KeyAscii))n=Len(str)Text1=String(n,str)EndSub程序运行后，如果在TEXT2中通过键盘上输入单字母"k"，则在文本框Text1中显示的内容为( )A.kB.KC.KKD.Kk

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.窗体上画一个名称为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．abcdeB．efghiC．EFGHID．ABCDE

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

更多“对文本框Text1编写如下事件过程:Private Sub Text1_KeyPress(KeyAscii As Integer)Dim b ”相关问题

  • 第1题：

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

    B．AAA

    C．AA

    D．aa


    正确答案：B
    解析：UCase(str)将str转成大写的字符串；String(n,character)返回n个重复的字符，如果character是ASCII码，则返回其对应的字符。程序运行过程为：首先输入字母“a”，并通过“str=Chr(KeyAscii)”语句将a的ASCII值转换成字符串；然后通过“KeyAscii=Asc(UCase(str))”求得大写A的ASCII值，并显示在文本框中；最后通过“Text1.Text=String(2,KeyAscii)”语句为文本框输入了两个字母“A”，所以最后在文本框中显示出3个大写字母“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题：

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

    A．aaa

    B．AAA

    C．AA

    D．aa


    正确答案：B
    解析：UCase(SB)将sb转成大写的字符串：String(n,character)返回n个重复的字符，如果character是ASCII码，则返回其对应的字符。程序运行过程为：首先输入字母“a”，并通过“str= Chr(KeyAscii)”语句将a的ASCII值转换成字符串：然后通过“KeyAscii=Asc(UCase(str))”求得大写A的ASCII值，并显示在文本框中；最后通过“Textl.Text=String(2，KeyAscii)”语句为文本框输入了两个字母“A”，所以最后在文本框中显示出3个大写字母“A”。

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

相关内容