更多"对窗体编写如下事件过程：
Option Base 1
Pr"的相关试题:
[单项选择]对窗体编写如下事件过程：
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
程序运行之后按回车键，输出结果为( )。
[单项选择]对窗体编写如下事件过程： 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
B. 20
C. 18
D. 24
[单项选择]对窗体编写如下代码： Option Base 1 Private Sub Form_ KeyPress (KeyAscii As Integer) a=Array(237，126，87，48，498) m1=a(1) m2=1 If KeyAscii=13 Then For i=2 To 5 If a(i)＞m1 Then m1=a(I) m2=i End If Next i End If Print m1 Print m2 End Sub 程序运行后，按回车键，输出结果为______ 。
A. 48 4
B. 237 1
C. 498 5
D. 498 4
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base1
Private Sub Command1_Click（ ）
Dim a
s=Array(1,2,3,4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print S
End Sub
运行上面的程序，单击命令按钮，其输出结果是 【15】 。
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click（ ）
Dim a As Variant
a= Array (1,2,3,4)
j=1
for i=a To 1 Step-1
s=s+ a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是______ 。
A. 4321
B. 12
C. 34
D. 1234
[单项选择]编写如下事件过程：
Option Base 1
Private Sub Form Click（ ）
Dim x1（ ）As Integer
Dim i As Integer
Dim s As Integer
ReDim x1(3)
For i = 1 To UBound(x1)
x1(i)=i + 1
Next i
Call sub1(x1)
For i = 1 To UBound(x1)
s = s + x1(i)
Next i
Print s
End Sub
Private Sub sub1(n（ ）As Integer)
Dim i As Integer
ReDim Preserve n(5)
For i = 3 To 5
n(i)=n(i-1)*2
Next i
End Sub
程序运行后，单击窗体，则窗体上显示的内容是
A. 6
B. 12
C. 24
D. 47
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click（ ）
Dim a
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是 【15】 。
