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

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

 比如，代码可以这样写。

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)

 呃，好吧。

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

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