vb填空求大佬指教

更新时间：2019-05-19 12:41:11 145次访问

 如有以下程序代码，请填空

Option Base 1

Private Sub Command1_Click()

Dim a(10) As Intege

rDim max  As Integer

For i = 1 To 10

a(i) = Int(Rnd * 1000)

Next i

max=_______

For i = 2 To 10

if _______ then

max = a(i)

End If

Print a(i);

Next i

Print "max is:"; max

End Sub

1。

max=a(1)

2.

a(i)>max

或

max<a(i)

都可以