对以下此段程序说法正确的是( )PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimLenstraAsInteger,jAsIntegerDimStraAsString,SAsString*1S=Chr(KeyAscii)SelectCaseSCase"0"To"9",",",".","-"CaseElseKeyAscii=0EndSelectEndSubA.S取得的是输入的KeyAscii值B.若在文本框中输入除了数字0～9，,逗号，负号，小数点之外的其他字符，则

题目

对以下此段程序说法正确的是( )

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

DimLenstraAsInteger,jAsInteger

DimStraAsString,SAsString*1

S=Chr(KeyAscii)

SelectCaseS

Case"0"To"9",",",".","-"

CaseElse

KeyAscii=0

EndSelect

EndSub

A.S取得的是输入的KeyAscii值

B.若在文本框中输入除了数字0～9，,逗号，负号，小数点之外的其他字符，则能够继续输入

C.若在文本框中输入数字0～9，,逗号，负号，小数点为有效数字串，可以继续输入

D.当KeyAscii=0时可以继续输入

相似考题

1.下面有一段程序代码，如果从键盘上输入"Computer"，则在文本框内显示的内容是Private Sub Text1_KeyPress（KeyAscii As Integer）If KeyAscii >=65 And KeyAscii <=122 ThenKeyAscii=42End IfEnd Sub（ ）。A．ComputerB．什么都没有C．********D．程序出错

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

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

更多“对以下此段程序说法正确的是( )PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimLenstraA ”相关问题

  • 第1题：

    下面有一段程序代码，如果从键盘上输入“Computer”，则在文本框内显示的内容是 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii＞=65 And KeyAscii＜=122 Then KeyAscii=42 End If End Sub

    A．Computer

    B．什么都没有

    C．********

    D．程序出错


    正确答案：C
    解析：此事件过程是KeyPress事件过程，参数KeyAscii的值是键盘输入的字符的ASCII码值。上述过程对输入的字符进行判断，如果其ASCII码大于65(大写字母“A”)并小于_122(小写字母“a”)，则用星号(ASCII码为42)代替，而运行过程中，题意是要从键盘上输入"Computer"，则应在文本框中显示“********”。

  • 第2题：

    下面有—段程序代码，如果从键盘上输入"Computer"，则在文本框内显示的内容是 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii＞=65 And KeyAscii＜=122 Then KeyAscii=42 End If End Sub

    A．Computer

    B．什么都没有

    C．* * * * * * * *

    D．程序出错


    正确答案：C
    解析：此事件过程是KeyPress事件过程，参数KeyAseii的值是键盘输入的字符得ASCII码值，上述过程对输入得字符进行判断，如果其ASCII码大于65(大写字母“A”)并小于122(小写字母“a”)，则用星号(ASCII码为42)代替，而运行过程中，题意是要从键盘上输入“Computer”，则应在文本框中显示“* * * * * * * *”。

  • 第3题：

    在窗体上画一个文本框，然后编写如下事件过程。当该程序运行后，如果在键盘上输入字母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。

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

    下面有一段程序代码,如果从键盘上输入"Computer",则在文本框内显示的内容是

    Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii >=65 And KeyAscii <=122 Then

    KeyAscii=42

    End If

    End Sub

    A．Computer

    B．什么都没有

    C．********

    D．程序出错


    正确答案：C
    解析：此事件过程是KeyPress事件过程,参数KeyAscii的值是键盘输入的字符得ASCII码值,上述过程对输入得字符进行判断,如果其ASCII码大于65(大写字母"A") 并小于122(小写字母"a"),则用星号(ASCII码为42) 代替,而运行过程中,题意是要从键盘上输入"Computer",则应在文本框中显示"********"。

相关内容