插入多個值到VB 6.0

Question

數組我需要插入唯一值一旦進入陣列時不循環像下面的語句（我使用Visual Basic 6.0）

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

，但它已得到編譯錯誤。上面的聲明應該怎麼改？

Answer 1

這是我能找到

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

Answer 2

從Alex K's answer，而是轉換爲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)