以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  转换问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44025)

--  作者：lizubian --  发布时间：2013/12/20 21:59:00 --  转换问题 大家好，FT中如何将数字23转换为“二十三”，而不是“二三”或“贰拾叁”。先谢谢啦！

--  作者：有点甜 --  发布时间：2013/12/20 22:18:00 --    转换一下不就行了？免得重写，用一个简单笨笨的方法 Dim data As Integer = 23 Dim nums1() As String = {"壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖", "拾"} Dim nums2() As String = {"一", "二", "三", "四", "五", "六", "七", "八", "九", "十"} Dim result As String = CUNumber(data) For i As Integer = 0 To nums1.Length - 1     result = result.Replace(nums1(i), nums2(i)) Next msgbox(result)