Dim M(1 To 5) As DoublePrivate Sub Form_Load()
For i = 1 To 5
M(i) = i
Next
End Sub Public Function Max(ByRef SZtmp) As Double
Dim i%
Max = 0
For i = LBound(SZtmp) To UBound(SZtmp)
If CDbl(SZtmp(i)) > Max Then _
Max = CDbl(SZtmp(i))
Me.Print Max
Next i
End FunctionPrivate Sub Command1_Click()
Call Max(M)
End Sub
For i = 1 To 5
M(i) = i
Next
End Sub Public Function Max(ByRef SZtmp) As Double
Dim i%
Max = 0
For i = LBound(SZtmp) To UBound(SZtmp)
If CDbl(SZtmp(i)) > Max Then _
Max = CDbl(SZtmp(i))
Me.Print Max
Next i
End FunctionPrivate Sub Command1_Click()
Call Max(M)
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货