将整型数组拆分为两个数组偶数和奇数组VBscript错误

' 假设这是你的原始数组
Dim numbers(9)
numbers(0) = 1
numbers(1) = 2
numbers(2) = 3
numbers(3) = 4
numbers(4) = 5
numbers(5) = 6
numbers(6) = 7
numbers(7) = 8
numbers(8) = 9
numbers(9) = 10

' 初始化偶数和奇数数组
Dim evenNumbers()
Dim oddNumbers()
ReDim evenNumbers(UBound(numbers))
ReDim oddNumbers(UBound(numbers))

Dim i, j, k As Integer
j = 0 ' 偶数数组的索引
k = 0 ' 奇数数组的索引

' 遍历原始数组，根据奇偶性分配到对应的数组
For i = 0 To UBound(numbers)
    If numbers(i) Mod 2 = 0 Then
        evenNumbers(j) = numbers(i)
        j = j + 1
    Else
        oddNumbers(k) = numbers(i)
        k = k + 1
    End If
Next

' 调整偶数和奇数数组的大小以去除未使用的空间
ReDim Preserve evenNumbers(j - 1)
ReDim Preserve oddNumbers(k - 1)

' 输出结果
WScript.Echo "Even numbers: " & Join(evenNumbers, ", ")
WScript.Echo "Odd numbers: " & Join(oddNumbers, ", ")