主题：最大值问题

写个内部函数，然后调用

http://www.foxtable.com/webhelp/scr/1486.htm

Dim max As double = -999
For Each n As Double In args
    If n > max Then
        max = n
    End If
Next
Return max

调用

dim max = Functions.Execute("mymax", 1，3，5，7，9，2，4，15，14)
msgbox(max)