英文的大小写转换

来源：百度知道 编辑：UC知道 时间：2024/05/06 01:11:46
我需要一个软件可以输入数字转换成英文的

举例 122 ： ONE HUNDRED AND TWENTY TWO
242341： TWO HUNDRED AND FORTY TWO THOUSAND THREE HUNDRED AND FORTY ONE
第一个回答我的 那个人 这个在什么程序里运行啊？
我在什么软件里编这个程序啊？
我不懂啊

function zr4(y)

' 准备数据
dim z(10)
z(1)="ONE"
z(2)="TWO"
z(3)="THREE"
z(4)="FOUR"
z(5)="FIVE"
z(6)="SIX"
z(7)="SEVEN"
z(8)="EIGHT"
z(9)="NINE"
zr4=z(MID(y,1,1))
end function

function zr3(y)

' 准备数据
dim z(10)
z(1)="ONE"
z(2)="TWO"
z(3)="THREE"
z(4)="FOUR"
z(5)="FIVE"
z(6)="SIX"
z(7)="SEVEN"
z(8)="EIGHT"
z(9)="NINE"
zr3=z(MID(y,3,1))
end function

function zr2(y)

' 准备数据

dim z(20)
z(10)="TEN"
z(11)="ELEVEN"
z(12)="TWELVE"
z(13)="THIRTEEN"
z(14)="FOURTEEN"
z(15)="FIFTEEN"
z(16)="SIXTEEN"
z(17)="SEVENTEEN&qu