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
2005-11-13 11:51
很明显的错误，过程内不能声明过程。应该是:
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
2005-11-13 11:54
2005-11-13 11:59
2005-11-13 12:02
唉，这是个函数啊，应该用 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编辑过]
2005-11-13 12:16
