如题
举例说明：比如自定义一个好象EXCEL里的MAX（）返回做大值，可以返回N个数的最大值，也可以返回N+1个数的最大值
谢谢！

文不对题！

我说的不够明白吗？
就是要自定义一个MAX（）函数可以返回不确定个数值的最大数
比如：MAX（）可以返回3，6，9这三个数中最大数
MAX（）也可以返回3，6，9，11，15中的最大数
MAX（）也可以返回3，6，9，11，15............中的最大数

ParamArray

利用数组。数组的下标作为函数的参数之一。

谢谢
我以前也曾考虑过数组（不会有人说我马后炮吧？呵呵）
可试了几次不成功，以为是思路有问题，现在看来是功力不够
我在试一试
谢谢

Function Max(params() as integer) as integer

...
end function


--- 调用：
maxnumber=Max(Array(1,2,3,4,5,6))


不过这样的编程不是必要的，毕竟你写代码的时候用到多少参数就是多少参数，参数数量不应当随着运行状态而变化。但也不一定都是这样子，VS2005中就经常看到数组做为参数提供一套信息。

还有一种方法，用Optional定义可选参数。

Function Max(param1 As Integer, Optional param2 as Integer =-32768, Optional param3 as integer = -32768 ........) as integer
.........
end function

Option Explicit

Public Function Max(Optional ByVal Value) As Double
Dim x As Variant
Dim Temp As Double
Dim Temp1() As String

On Error Resume Next

If IsMissing(Value) = True Then
Exit Function

End If

If IsArray(Value) = True Then ''''''''(1)如果Value为数组'''''''
Temp = Value(LBound(Value))
For Each x In Value
If x > Temp Then
Temp = x

End If

Next

ElseIf VarType(Value) = vbString Then '''''(2)如果value为字符串''''''''
Temp1 = Split(Value, ",")
Temp = Temp1(LBound(Temp1))
For Each x In Temp1
If x > Temp Then
Temp = x

End If

Next

End If

Max = Temp

End Function

Private Sub Command1_Click()
Dim Value(4) As Double

Value(0) = -100.5
Value(1) = 9.56325
Value(2) = -20
Value(3) = 100.284
Value(4) = -30.5
Text2 = Max(Value)

End Sub

Private Sub Text1_Change()
Text2 = Max(Text1)

End Sub

哇 好高级……看不懂……