在VB6.0中将多个值插入数组

Question

我需要在数组中插入唯一值一次，而不会像下面的语句那样循环(我使用的是visual basic6.0)

Dim Marks(0 To 9) As Integer = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9,}

但是它得到了编译错误。上面的说法应该怎么改?？

Answer 1

来自Alex K's answer，但已转换为整数：

Function ArrayInt(ParamArray tokens()) As Integer()
    ReDim arr(UBound(tokens)) As Integer
    Dim i As Long
    For i = 0 To UBound(tokens)
        arr(i) = tokens(i)
    Next
    ArrayInt = arr
End Function

用法：

Dim Marks() As Integer
Marks = ArrayInt(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)

Answer 2

这是我能找到的最简单的方法

Dim marks 
marks = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)