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

Question

如果我输入任何数值，其数字应在数组中以任何长度的数值结算。

如下所述如何将其传输到数组中，而不是手动执行，因为数值长度可以变化，但不是固定的。

 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  

Answer 1

将数字转换为数字字符串; （重新）将数组的长度调整为字符串;使用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
>>