求助：用VB的funtion做一个程序 悬赏财富20！我只有这么多！急啊！

来源：百度知道 编辑：UC知道 时间：2024/06/17 03:15:12
写一个程序，能将数字的1，25，658，2534563
转变成英文的单词one, twenty five, six hundred and fifty eight

求具体的code，谢谢谢谢谢谢！！！！
谢谢阿！！可是你们说的那个看起来有一点点复杂，我是初学者，才学了一个月，老师就让做这种程序。。。我这里写了一些code了，可是好像有点问题，大家能不能帮我改一改

其实要做好这个问题还是有点难度的！
我现时给你写了一个，只能转 9位数的
你可以改一下代码，把它改成任意位数的就行了。
另外在连接的时候，我只有百使用了 “AND”，其他都是直接读
希望能帮到你了。

以下代码可以直接复制到 VB工程环境下运行。你需要添加两个textbox控件，名字是：text1,text2

Dim dg1(20) As String '个位
Dim dg2(10) As String '十位
Dim BAI As String
Dim QIAN As String
Dim WAN As String
Private Sub InitDG()
dg1(0) = ""
dg1(1) = "One"
dg1(2) = "Two"
dg1(3) = "Three"
dg1(4) = "Four"
dg1(5) = "Five"
dg1(6) = "Six"
dg1(7) = "Seven"
dg1(8) = "Eight"
dg1(9) = "Nine"
dg1(10) = "Ten"
dg1(11) = "Eleven"
dg1(12) = "Twelve"
dg1(13) = "Thirteen"
dg1(14) = "Fourteen"
dg1(15) = "Fifteen"
dg1(16) = "Sixteen"
dg1(17) = "Seventeen"
dg1(18) = "Eightteen"
dg1(19) = &