狐爸:想请教您一个问题

增加一个自定义函数，名称为Max，代码为：

Dim MaxVal As Double = Args(0)
For i As Integer = 1 To Args.Length - 1
    MaxVal = Math.Max(MaxVal,Args(i))
Next
Return MaxVal

该自定义函数可以比较任意个数的参数，并返回最大的一个，例如在命令窗口执行：

Output.Show(Functions.Execute("Max",1,3,5,7,9))

即可显示1、3、5、7、9几个数值中的最大数9。

这是帮助中的例子,我现在想返回的是最大数是这几个数中的第几个数,这个怎么做啊,请赐教!

在return MaxVal 前面插入这段

for each i as integer = 0 to Args.length - 1

if MaxVal = args(i) then i= i+1

return i

end if

next

非常感谢jspta,很好用,谢谢您!

第二行多了一个each