主题：[讨论]支piao格式问题

呵呵，我来个：

Dim sz As String = "零壹贰叁肆伍陆柒捌玖"
Dim db As Integer = 2011
Dim ss As String
Do
    ss = sz.Chars(db Mod 10) & ss
    db = db \ 10
Loop While db > 0