单项选择题

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

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为Commandl的命令按钮。有下列程序： Option Base 1 Private Sub Command1_Click() Dim a a=Array(45，27，34，24，91，37，11，67，82，63) For i = 1 To 9 For i = i + 1 To 10 If a(i)＞ a(j)Then a1 = a(i) a(i) = a(j) a(j) = a1 End If Next j Next i For i = 1 To 10 Print a(i) Next i End Sub 程序运行后，单击命令按钮，则窗体上第2行和第3行显示的内容是

A．27和34
B．34和24
C．45和63
D．24和27

单项选择题

在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1，2，3，4) j=1 For i=4 To 1 Step -1 s = s + a(i)* j j = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出的结果为

A．4321
B．12
C．34
D．1234

相关试题