单项选择题

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

A．A
A
B．A
B
C．A
C
D．A
D

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个命令按钮，然后编写如下程序： Function fun1(ByVal Bum As Long)As Long Dim k As Long k=0 Bum=AbsfBum) Do While Bum k=k+(Bum Mod 10) Bum=Bum 10 Loop fun1=k End Function Private Sub Command1_Click( ) Dim n As Long n=InputBox( 请输入一个数 ) Print fun1(n) End Sub 程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为______。

A．3
B．4
C．9
D．10

单项选择题

在窗体上丽一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) Dim a(4，4) For i=1 To 4 For j=1 To 4 a(i，j)=(i-1)*3+j Next j Next i For i=3 To 4 For j=3 To 4 Print a(j，i)； Next j Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容为______。

A．6 9 7 10
B．7 10 8 11
C．8 11 9 12
D．9 12 10 13

相关试题