niusouti.com

把窗体的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 AB．A BC．A C

题目

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

相似考题

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.设有如下过程： Private Sub Form. KeyDpwn(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 若把窗体的KeyPreview属性设置为True，程序运行后，如果按“A”键，则输出结果为（ ）。A. A AB. A BC. A CD. A 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，然后编写如下事件过程： 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

更多“把窗体的KeyPreview属性设置为True,然后编写如下过程:Private Sub Form_KeyDown(KeyCode As Inte ”相关问题

  • 第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. 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键的操作过程中，先触发KeyDown事件，再触发KeyUp事件，最终在窗体上显示的是A和C。

  • 第4题：

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

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

相关内容