1,486
社区成员
发帖
与我相关
我的任务
分享
Private Function Minimum(ParamArray Vals())
Dim n As Integer, MinVal
On Error Resume Next
MinVal = Vals(0)
For n = 1 To UBound(Vals)
If Vals(n) < MinVal Then MinVal = Vals(n)
Next n
Minimum = MinVal
End Function
Private Function Maximum(ParamArray Vals())
Dim n As Integer, MaxVal
On Error Resume Next
MaxVal = Vals(0)
For n = 1 To UBound(Vals)
If Vals(n) > MaxVal Then MaxVal = Vals(n)
Next n
Maximum = MaxVal
End Function
Private Declare Function Max Lib "a.dll" Alias "MaxA" (ByRef a() As Double, ByVal L As Integer) As Double
Private Sub Form_Load()
Dim a(1 To 10) As Double
Dim i As Integer
Dim MaxNum As Double
For i = 1 To 10
a(i) = CDbl(Rnd * 10)
Next i
MaxNum = Max(a, 10)
End Sub