银行帐单的问题，急？？？

Question

例如：一个数是123456.78      
我要把它放成这样    千百十万千百十元角分
        1 2 3 4 5 6 7 8
也就是说各位大哥能不能把这个数拆分后，把结果赋给变量，最好有源代码

Answer 1

当然是字符串了，如千万就赋给qw，百万就赋给bw,等等

Answer 2

Private Sub Command1_Click()
X = Val(Text1.Text)
X = Int(X * 100 + 0.5) / 100qw = Int(X / 10000000)
X = X - qw * 10000000
bw = Int(X / 1000000)
X = X - bw * 1000000
sw = Int(X / 100000)
X = X - sw * 100000
w = Int(X / 10000)
X = X - w * 10000
q = Int(X / 1000)
X = X - q * 1000
b = Int(X / 100)
X = X - b * 100
s = Int(X / 10)
X = X - s * 10
Y = Int(X)
X = X - Y
X = X * 10
j = Int(X)
X = X - j
f = Int(X * 10)
End Sub

Answer 3

//class1内容Private qw, bw, sw, w, q, b, s, y, j, f As Long
Private int_data(10) As Integer
Public Sub FaxBlankData(str_blk As String)
    Dim zint As String
    Dim dpos As Integer
    Dim int_len As Integer
    dpos = InStr(str_blk, ".")
    zint = Mid(str_blk, 1, dpos - 1)
    int_len = Len(zint)
    While (int_len)
       Select Case int_len
             Case 1:
                y = Left(zint, 1) '元
             Case 2:
                s = Left(zint, 1) '十
             Case 3:
                b = Left(zint, 1) '百
             Case 4:
                q = Left(zint, 1) '千
             Case 5:
                w = Left(zint, 1) '万
             Case 6:
                sw = Left(zint, 1) '十万
             Case 7:
                bw = Left(zint, 1) '百万
             Case 8:
                qw = Left(zint, 1) '千万
        End Select
       zint = Right(zint, int_len - 1)
       int_len = Len(zint)
    Wend
    If (dpos < Len(str_blk)) Then
        j = Mid(str_blk, dpos + 1, 1) '角
        f = Mid(str_blk, dpos + 2, 1) '分
    End If
End SubPublic Sub DispData()
 MsgBox Str(qw) + "千万" + Str(bw) + "百万" + Str(sw) + "十万" + Str(w) + "万" + Str(q) + "千" + Str(b) + "百" + Str(s) + "十" + Str(y) + "元" + Str(j) + "角" + Str(f) + "分"
End Sub//窗体内容Private Sub Form_Load()
 Dim BakDat As Class1
 Set BakDat = New Class1
 BakDat.FaxBlankData ("231234.234")
 BakDat.DispData
End Sub