Arrays 在VB 6.0中向数组中插入多个值

我需要在数组中插入一次唯一值，而不必像下面的语句那样循环（我使用的是visual basic 6.0）

---

但是它有编译错误。上面的陈述应该如何改变？

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

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

从，但转换为int：

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)

---

简短回答：VB6不做数组文字。更长的回答：（是的，它适用于字符串，但您可以看到它将如何应用于int）这实际上并不能满足您的需要（相当）。函数

array（）

返回变量数组。通过声明（

dim

）标记而不使用任何类型，您已经将其声明为变体本身。这会使您的代码容易出现大量问题，因为这些标记可能根本不是数组，或者可能包含非整数的值。至少，将

dim标记声明为variant（）

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