单项选择题

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

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个命令按钮，然后编写如下程序： Function funl(ByVal Bum As Long)As Long Dim k As Long k = 0 Bum=Abs(Bum) 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

单项选择题

在窗体上画一个名称为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

相关试题