阿拉伯数字转成中文字串的算法

'阿拉伯数字转成中文字串的算法。计算范围：正负长整型

'将数字汉化
Private Function CChinese(Eng&) As String
    '
    '定义变量
    Dim L&, I&, Js&, Jd&
    Dim SEng$, Ch1$, Ch2$, S$
    Dim SeqS1, SeqS2, CDigs
    '
    Ch1 = ""
    If Eng < 0 Then Ch1 = "负"
    SEng = CStr(Abs(Eng))
    CDigs = Array("零", "一", "二", "三", "四", "五", "六", "七", "八", "九")
    SeqS1 = Array("", "十", "百", "千")
    SeqS2 = Array("", "万", "亿", "兆")
    '记录数字的长度
    L = Len(SEng)
    '转换为汉字
    Js = (L - 1) \ 4
    Jd = ((L - 1) Mod 4)
    Ch2 = ""
    For I = 1 To L
        '返回数字对应的汉字
        S = CDigs(Mid(SEng, I, 1))