问：数组名作为传地址参数的函数原型的定义语法

[jaopen]

越是这种便捷开发式的平台，连个好一点的reference都不好找。
ms这个垃圾专造这种缺乏flexiblity的SHIT

[yangfanatcsdn]

不要着急：到MSDN上看一看VB方面的参考。

[SoHo_Andy]

Function FindMax(a()) As Single
Dim Max, i

Max = a(LBound(a))
For i = LBound(a) + 1 To UBound(a)
If Max < a(i) Then Max = a(i)
Next
FindMax = Max
End Function

Sub Form_Click()
Dim a(100)
For i = 0 To 100
a(i) = i
Next
Print FindMax(a())
End Sub

[jaopen]

Thanks a lot

Function Sum(ParamArray args() As Variant) As Double
~~~~~~~~~~是否必须？
Dim i As Integer
' All ParamArrays are zero-based.
For i = 0 To UBound(args)
Sum = Sum + args(i)
Next
End Function