谁知道怎么用VBS脚本编写用中文读数学数字 要全代码和解释。谢谢了

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(零十,零,零百,零,零千,零,零零零,零,零零,零,零亿,亿,零万,万,亿万,亿,,) '求解释
For i=0 To 14 Step 2 '求解释
s=Replace(s,m(i),m(i+1)) '求解释
Next

'以下代码处理数字结尾是零的情况：
'比如：一千一百八十零，要变成：一千一百八十，去掉最后的零

If Len(n)1 And Right(s,1)=零 Then s=Left(s,Len(s)-1) '求解释

If Left(s,2)=一十 Then s=Right(s,Len(s)-1)

jx=MsgBox (您输入的数是: & y & vbCrLf & 读为： & s & vbCrLf & 是否继续？,vbYesNo+32+4096,系统提示)
If jx=vbno Then WScript.quit
s=