itgle.com

把窗体的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】 。

题目

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

Private Sub Form_KeyDown（KeyCode As Integer, Shift As Integer）

Print KeyCode

End Sub

Private Sub Form_KeyPress（KeyAscii As Integer）

Print KeyAscii

End Sub

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

相似考题

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

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_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,并编写如下两个事件过程: PrivateSubForm_KeyDown(K ”相关问题

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

    把窗体的Key Preview属性设置为True，然后编写如下过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyVode As Integer, ShiftAs Integer) Print Chr(KeyCode+2) End Sub 程序运行后，如果按“A”键，则输出结果______。

    A．A

    B．A

    C．A

    D．A A B C D


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

  • 第3题：

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

  • 第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,然后编写如下事件过程

    (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

相关内容