任意输入一个数,将这个数转换成中文繁体数字(如:输入1234,则输出壹仟二百三十四.)求全部代码.

do
a=0
do until a=1
randomize
sjs=int(rnd*999999999999)
n=inputbox("请输入一个小于1000000000000的整数：","读数",sjs)
if n="" then wscript.quit
if n="0" then exit do
if IsNumeric(n)=false or instr(n,".")<>0 then
msgbox "您输入的不是一个整数，请重新输入！",16+4096,"错误"
elseif left(n,1)=0 then
msgbox "输入错误，您输入的数不能以“0”打头，请重新输入！",16+4096,"错误"
elseif len(n)>12 then
msgbox "您输入的数不能大于“999999999999”，请重新输入！",16+4096,"错误"
else
a=1
end if
loop

y=n
sz=split("0,1,2,3,4,5,6,7,8,9",",")
hz=split("零,一,二,三,四,五,六,七,八,九",",")
for i=0 to 9
n=replace(n,sz(i),hz(i))
next
dw="千百十亿千百十万千百十"
h=len(n)
for i=1 to h
s=s & mid(n,i,1) & mid(dw,12-h+i,1)
next

m=split("零十,零,零百,零,零千,零,零零零,零,零零,零,零亿,亿,零万,万,亿万,亿","