對窗體編寫如下代碼:
Option Base1
Private Sub Form_Key Press(Key Ascii AsInteger)
a=Array(237,126,87,48,498)
m1=a(1)
m2=1
IfKey Ascii=13Then
ForI=2To5
Ifa(I)>mlThen
m1=a(j)
m2=I
EndIf
NextI
EndIf
Printm1
Printm2
EndSub
程序運行后,按回車鍵,輸出結果為()
A.499
B.237
C.498
A.TextBox
B.Label
C.Timer
D.Image
A.2
B.4
C.8
D.16