对窗体编写如下事件过程： Option Base 1 Private Sub Form_KeyPress (KeyAScii AS Integer) arr=Array(12，15，18，20，24) m1=arr(1) m2=1 If fKeyAscii=12 Then For i=2 To 5 If arr(i)＞m1 Then m1=arr(i) m2=i End If Next i End If Print m1 Print m2 End Sub 程序运行之后按回车键，输出结果为A．12 1B．20 2C．18 5D．24 12
对窗体编写如下事件过程： Option Base 1 Private Sub Form_KeyPress (KeyAScii AS Integer) arr=Array(12，15，18，20，24) m1=arr(1) m2=1 If fKeyAscii=12 Then For i=2 To 5 If arr(i)＞m1 Then m1=arr(i) m2=i End If Next i End If Print m1 Print m2 End Sub 程序运行之后按回车键，输出结果为
A．12 1
B．20 2
C．18 5
D．24 12
相关考题：
把窗体的KeyPreview属性设置为Tree，然后编写如下事件过程 Private 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． AB．BC．CD．D
把窗体的KeyPreview属性设置为True，然后编写如下事件过程Private Sub Form_KeyPress（KeyAscii As Integer）Dim ch As Stringch = Chr（KeyAscii）KeyAscii = Asc（UCase（ch））Print Chr（KeyAscii + 2）End Sub程序运行后，按键盘上的“A”键，则在窗体上显示的内容是（ ）。A．AB．BC．CD．D
在窗体上画一个文本框(Textl)，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(Ucase(char)) Print String(4，KeyAscii) End Sub 程序运行后，在文本框Text1中输入A，则程序在窗体上的输出结果为A．aB．AC．aaaaD．AAAA
把窗体的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．AB．BC．CD．D
在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(Key Ascii As Integer) Dim char As String char=Chr(Key Ascii) KeyAscii=Asc(UCase(char)) Text1．Text=Sting(6，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为______。A．aB．AC．aaaaaaaD．AAAAAAA
窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Form. Load() Show TextSetFocus End Sub Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc(UCase(ch)) Pint Chr(KeyAscii + 4) End Sub程序运行后，在文本框中输入abcde，则在窗体上显示的内容是______。A．abcdeB．efghiC．EFGHID．ABCDE
把窗体的KeyPreview属性设置为True，然后编写如下事件过程： Private Sub Form_KeyPress(KeyAsciiASInteger) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) PrintChr(KeyAscii+2) End Sub 程序运行后，按键盘上的A键，则在窗体上显示的内容是( )。A．AB．BC．CD．D
把窗体的KeyPreview属性设置为True，然后编写如下事件过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) PrintChr(KeyAscii+2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是A．AB．BC．CD．D
把窗体的KeyPreview属性设置为True,然后编写如下事件过程(KeyAscii As Integer)Dim ch As Stringch = Chr(KeyAscii)KeyAscii = Asc(UCase(ch))Print Chr(KeyAscii + 2)程序运行后,按键盘上的“A”键,则在窗体上显示的内容是( )。A.AB.BC.CD.D
把窗体的KeyPreview属性设置为True，然后编写如下事件过程： Private 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．AB．BC．CD．D