把窗体的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键，则在窗体上输出的数值为【 】和【 】。

题目

把窗体的KeyPreview属性设置为True，并编写如下两个事件过程：

Private Sub Form_KeyDown(KcyCode As Integer,Shift As Integer)

Print Key Code；

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

Print Key Ascii

End Sub

程序运行后，如果按下A键，则在窗体上输出的数值为【 】和【 】。

相似考题

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，然后编写如下事件过程： 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

3.把窗体的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．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

更多“把窗体的KeyPreview属性设置为True,并编写如下两个事件过程: Private Sub Form_KeyDown(KcyCode ”相关问题

  • 第1题：

    把窗体的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码转化为相应的字符。

  • 第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_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2) End Sub 程序运行后，如果按“A”键，则输出结果为 ______。

    A．A A

    B．A B

    C．A C

    D．A D


    正确答案：C
    解析：当键盘被按下时，输出按下的键所代表的字符，即“A”；当键盘被松开的时候，输出该字符后继字符的后继字符，即“C”。

  • 第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码转化为相应的字符。

相关内容