主题：[求助]求个代码，谢谢

求个代码，例如我想把千位数的1转成one 2转成two、百位数的1转成one，改怎么写代码，谢谢

 呃，不清楚你的具体应用，你做个合适的例子发上来。立马解决。

我开发个支piao套打软件··但我是外国的··不能用中文

例如··金额是1234

那么我想把千位数的1转成ONE 百位数的2转成TWO 十位显示Three

那么123打出来就现实ONE TWO THREE

 比如，代码可以这样写。

Dim en() As String = {"zero", "one", "two", "three"}
Dim num As Double = 123032
Dim nums As String = CStr(num)
Dim ch As String
For Each n As String In nums
    ch = ch & en(n)
Next
msgbox(ch)

好的··我试下··谢谢你了

如果是金额用：EUNumber

 呃，好吧。

http://www.foxtable.com/help/topics/0322.htm

http://www.foxtable.com/help/topics/0323.htm

你好··QQ能加个好友吗

q号是71677936··希望加个好友··谢谢··还有几点东西不懂