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

Question

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

Answer 1

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

Answer 2

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

Answer 3

Thanks a lotFunction 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