单项选择题

把窗体的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．A
B．B
C．C
D．D
<上一题 目录 下一题>
热门 试题

单项选择题
有如下程序： Private Sub Form Click() Dim i As Integer，sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为
A．12
B．30
C．24
D．18
单项选择题
有如下程序： Option Base 1 Private Sub Form Click() Dim arr，Sum Sum =0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i) 3=arr(i) 3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为
A．25
B．26
C．27
D．28
相关试题