新手,帮俺看看这段代码怎么错了??
Private Sub Form_Load()
Public Sub procmin(a() As Integer)
Dim min As Integer
min = a(LBound(a))
For i = LBound(a) To UBound(a)
If a(i) < min Then
min = a(i)
End If
Next i
procmin = min
End Sub
Dim b(10) As Integer, t As Integer
For i = 0 To 9
b(i) = Int(Rnd * 101 + 300)
Next i
t = procmin(b())
Print t
End Sub