一个很简单的问题，但是不知道如果解决？？？？急急急急急急

Question

例如有一个数是123456.78 
我想把把它拆分成1，2，3，4，5，6，7，8
怎么样作

Answer 1

dim strN as string
dim A() as string
dim B() as string 
    strN = "123456.78"
    'strN = cstr(n) 'if n as double and n = 123456.78
    a = split(strN)
dim i as long
dim offset as long
    for i = lbound(strn) to ubound(strn)
        if a(i) =  "." then  
           offset = 1
        else
           b(i-offset) = a(i)
        end if 
    next
'至此 b(i) 里就是 1，2，3，4，5，6，7，8
'看看结果
    for i = lbound(B) to Ubound(B)
        print b(i)
    next
'随意编编，没有调试过

Answer 2

Private Sub Command1_Click()
 faxNumber 123456789.2323
End SubPublic Sub faxNumber(sur_Num As Double)
       Dim str_tmp As String
       Dim chr_tmp As String
       '转化字符
       str_tmp = Str(sur_Num)
       '去掉前导空格
       str_tmp = Trim(str_tmp)
       '判断是否存在字符
       While (Len(str_tmp))
         '从右边取一个
         chr_tmp = Right(str_tmp, 1)
         If (chr_tmp <> ".") Then
            MsgBox chr_tmp  '我在这里只是显示下里边的数，楼主可以根据自己的需要来处理
         End If
         '字符串本身-1长度
         str_tmp = Left(str_tmp, Len(str_tmp) - 1)
       Wend
End Sub

Answer 3

假如你的数字var1是两位小数，要取出它的每一位。
先var1*100，使它变为整数，然后再取出每一位。Private Sub Command1_Click()
var1=text1.text       '文本框的值赋给变量var1
var1=val(var1)*100    '变为整数
var2=var1 & ""   '变为字符串
n=len(var2)
for i=1 to n
print mid(var2,i,1)  
next
End Sub

Answer 4

作了改进，不论数字是否2位小数，也可以是整数,可以是任意多位小数,输出所有各位数字
Private Sub Command1_Click()
var1 = Text1.Text
var2 = var1 & "" '变为字符串
var3 = Split(var2, ".")
If UBound(var3) > 0 Then
var2 = var3(0) & var3(1)
End Ifn = Len(var2)
For i = 1 To n
Print Mid(var2, i, 1)
Next
End Sub

Answer 5

烦不，写那么多。你写下来，在改写不就行了
不喜欢吗？那用trim（），mid（）,left（）,right（），那么多呢，自个用