金额的转化，将阿拉伯数字的金额装换成大写

Private Sub Command1_Click()
    Static a As String
    Static n As String
    Dim c(9), b(9)
    Dim i, s
    c(1) = "": c(2) = "拾": c(3) = "百": c(4) = "千": c(5) = "万": c(6) = "拾"
    c(7) = "百": c(8) = "千": c(9) = "亿": b(0) = "": b(1) = "壹": b(2) = "贰": b(3) = "叁": b(4) = "肆"
    b(5) = "伍": b(6) = "陆": b(7) = "柒": b(8) = "捌": b(9) = "玖"
    a = txt.Text
    For i = Len(a) To 1 Step -1
        n = Mid(a, Len(a) + 1 - i, 1)
        If n = 0 And i <> 5 Then
            c(i) = ""
        End If
        s = s + b(n) + c(i)
    Next i
    lbl.Caption = s & "元整"
End Sub