把窗体的KeyPreview属性设置为Tree，然后编写如下事件过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) Print Chr(KeyAscii+2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是______。A． AB．BC．CD．D

题目

把窗体的KeyPreview属性设置为Tree，然后编写如下事件过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) Print Chr(KeyAscii+2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是______。

A． A

B．B

C．C

D．D

相似考题

1.把窗体的KeyPreView属性设置为True，并编写如下两个事件过程：Private Sub Form_KeyDown（KeyCode As Integer, Shift As Integer）Print KeyCodeEnd SubPrivate Sub Form_KeyPress（KeyAscii As Integer）Print KeyAsciiEnd Sub程序运行后，如果按下B键，则在窗体上输出的数值是 【12】 和 【13】 。

2.把窗体的KeyPreview属性设置为True，并编写如下两个事件过程：Private Sub Form_KeyDown(KcyCode As Integer,Shift As Integer)Print Key Code；End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Key AsciiEnd Sub程序运行后，如果按下A键，则在窗体上输出的数值为【 】和【 】。

3.把窗体的KeyPreview属性设置为True，然后编写如下事件过程： Prirate Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) Print Chr(KeyAscii+2) End Sub 程序运行后，按键盘上的A键，则在窗体上显示的内容是A．AB．BC．CD．D

4.把窗体的KeyPreview属性设置为True，然后编写如下事件过程Private Sub Form_KeyPress（KeyAscii As Integer）Dim ch As Stringch = Chr（KeyAscii）KeyAscii = Asc（UCase（ch））Print Chr（KeyAscii + 2）End Sub程序运行后，按键盘上的“A”键，则在窗体上显示的内容是（ ）。A．AB．BC．CD．D

参考答案和解析
正确答案：C
解析：当把窗体的KeyPreview属性设置为True时，按键盘上的键时，就触发窗体的KeyPress事件。如果键盘上按的是“A”，则KeyAscii=97，即小写的“a”，把该字母转化为大写以后，再对Ascii码加2，则为大写的“C”。
更多“把窗体的KeyPreview属性设置为Tree,然后编写如下事件过程Private Sub Form_KeyPress(KeyAscii As ”相关问题

  • 第1题：

    把窗体的KeyPreview属性设置为True，然后编写如下事件过程： Private Sub Form_KeyPress(KeyAsciiASInteger) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) PrintChr(KeyAscii+2) End Sub 程序运行后，按键盘上的A键，则在窗体上显示的内容是( )。

    A．A

    B．B

    C．C

    D．D


    正确答案：C

  • 第2题：

    把窗体的KeyPreview属性设置为True,然后编写如下事件过程

    (KeyAscii As Integer)

    Dim ch As String

    ch = Chr(KeyAscii)

    KeyAscii = Asc(UCase(ch))

    Print Chr(KeyAscii + 2)

    程序运行后,按键盘上的“A”键,则在窗体上显示的内容是( )。

    A.A

    B.B

    C.C

    D.D


    正确答案：C

  • 第3题：

    把窗体的KeyPreview属性设置为True，然后编写如下事件过程： Private Sub Form_KeyPress(KeyAscii As Integer) Dim Ch As String Ch=Chr(KeyAscii) KeyAscii=Asc(UCase(Ch)) Print Chr(KeyAscii+2) End Sub 程序运行后，按键盘上的A键，则在窗体上显示的内容是______。

    A．A

    B．B

    C．C

    D．D


    正确答案：C
    解析：KeyPress事件用来识别按键的ASCII码。参数KeyAscii是一个预定义的变量，执行KeyPress事件过程时，KeyAscii是所按键的ASCII码。函数Chr(x)是把x的值转换为相应的ASCII字符，函数Asc(x)是返回字符串x的首个字母的字符代码，函数UCase(x)返回大写的字符串X。当按键盘上的A键时，KeyPress值为97，Chr(97)的返回侑为“a”，Asc(UCase("a"))返回值为“65”Chr(65+2)的返回值为“C”。

  • 第4题：

    把窗体的KeyPreview属性设置为True，然后编写如下事件过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) PrintChr(KeyAscii+2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是

    A．A

    B．B

    C．C

    D．D


    正确答案：C
    解析：本题主要考查的知识点是，字符及其ASCII码之间的转换，需要注意的是UCase(ch)是将ch转化为其相应的大写，Asc()是取字符的ASCII码，Chr()是将ASCII码转化为相应的字符。

  • 第5题：

    把窗体的KeyPreview属性设置为True，然后编写如下事件过程

    Private Sub Form_KeyPress(KeyAseii As Integer)

    Dim ch As String

    ch=Chr(KeyAscii)

    KeyAscii=Ase(UCase(ch))

    Print Chr(KcyAseii+2)

    End Sub

    程序运行后，按键盘上的“A”键，则在窗体上显示的内容是

    A．A

    B．B

    C．C

    D．D


    正确答案：C
    解析：本题需要注意的是UCase(ch)是将ch转化为与其相应的大写，Asc()是取字符的ASCII码，Chr()是将ASCII码转化为相应的字符。

相关内容