你可以使用mid()函数，我用过，可以
Dim a(10) As Integer, b As Integer, myStr As StringmyStr = "123"For b = 1 To Len(myStr) a(b - 1) = Val(Mid(myStr, b, 1))NextFor b = 0 To UBound(a) Print "a(" & b & ")=" & a(b)Next
