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

很明显的错误，过程内不能声明过程。应该是:

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

Private Sub Form_Load()
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

唉，这是个函数啊，应该用 Function……

Public Function procmin(a() As Integer) 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 Function

Private Sub Form_Load()
Dim b(10) As Integer, t As Integer

Randomize
For i = 0 To 9
b(i) = Int(Rnd * 101 + 300)
Next i
t = procmin(b())
Print t

End Sub

[此贴子已经被作者于2005-11-13 12:19:13编辑过]