主题：[求助]

参考

http://www.foxtable.com/webhelp/scr/0318.htm

Dim n = 112
Dim ary1 As String() = {"壹", "贰", "拾", "佰"}
Dim ary2 As String() = {"一", "二", "十", "百"}
Dim str As String = CUNumber(n)
For i As Integer = 0 To ary2.length -1
    str = str.replace(ary1(i), ary2(i))
Next
msgbox(str)