如何在vbscript中传递数组中的数值元素？

如果我输入任何数值，它的数字应该在数组中为任意长度的数值设置

如何像下面提到的那样将其传输到数组中，而无需手动执行，因为数值长度可能会发生变化，而不是固定的

 n = 454512
'*****how no should store in array***********
    a(0) = 4
    a(1) =5
    a(2) =4
    a(3) = 5
    a(4) = 1
    a(5) = 2  

---

将数字转换为一串数字；（Re）调暗字符串的数组wrt长度；使用Mid（）获取数字。代码：

>> n = 454512
>> s = CStr(n)
>> l = Len(s)
>> ReDim a(l - 1)
>> For p = 1 To l
>>     a(p - 1) = CInt(Mid(s, p, 1))
>> Next
>> WScript.Echo TypeName(a(0)), Join(a, "*")
>>
Integer 4*5*4*5*1*2
>>