'将数字汉化
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))