Array() 函数

Question

如何写出像 Array() 函数那样可以有任意 “无限” 数量参数虽然 VB6 有 Optional Value , 但总不可能用Optional Value1, Optional Value2…………………Optional Value9999,

Answer 1

Option ExplicitPrivate Sub Command1_Click()
  MsgBox Sum(1, 2, 3)
  MsgBox Sum(3, 5)
End SubFunction Sum(ParamArray intNums() As Variant)
        Dim x     As Variant
        Dim y     As Integer
        For Each x In intNums
              y = y + x
        Next x
        Sum = y
End Function

Answer 2

'Array()函数之简单用法
Option ExplicitPrivate Sub Form_Load()
        Dim arr(), i As Integer
        arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
        For i = 0 To UBound(arr)
            Debug.Print arr(i)
        Next
End Sub

Answer 3

原来关键词是 ParamArray我打 Array( 时有看到没想到这救是关键呢谢谢啰