中国DOS联盟

用笨办法写的，希望各位帮忙测试一下...
（还望高人指点，希望能有更简单的方法，谢谢！)

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("零十,零百,零千,零万,零亿",",") do until instr(s,m(0))=0 and instr(s,m(1))=0 and instr(s,m(2))=0and instr(s,m(3))=0 and instr(s,m(4))=0 s=replace(s,m(0),"零") s=replace(s,m(1),"零") s=replace(s,m(2),"零") s=replace(s,m(3),"万零") s=replace(s,m(4),"亿零") loop s=replace(s,"亿万","亿") do until instr(s,"零零")=0 s=replace(s,"零零","零") loop 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) on error resume next i=0 do i=instr(i+1,s,"零") if mid(s,i+2,1)="千" then s=replace(s,mid(s,i,3),mid(s,i+1,2)) loop until i=0 jx=msgbox ("您输入的数是:" & y & vbcrlf & "读为：" & s & vbcrlf & "是否继续？",vbyesno+32+4096,"系统提示") if jx=vbno then wscript.quit s="" loop

[ Last edited by jmz573515 on 2007-3-1 at 10:15 AM ]

Do
a = 0
Do Until a = 1
Randomize
rdnum = Int(Rnd * 999999999999)
n = Inputbox("请输入一个小于1000000000000的整数：", "读数", rdnum)
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
Cagain=Msgbox("您输入的数是:" & n & vbCrLf & "读为：" & num2chinese(n) & vbcrlf & "是否继续?",vbyesno+32+4096,"系统提示")
If Cagain=vbNo Then wscript.quit
Loop


Function num2chinese(Num)
Dim numStr,strlen,i
numStr = ReplaceEx(Num, "0;零 ;1;壹 ;2;贰 ;3;叁 ;4;肆 ;5;伍 ;6;陆 ;7;柒 ;8;捌 ;9;玖 ")
strlen = Len(Num)
For i = strlen To 1 Step -1
numStr = Mid(numStr, 1, i * 2 - 1) & Replace(numStr, Mid(numStr, i * 2, 1), Mid("圆拾佰仟万拾佰仟亿拾佰仟万", strlen - i + 1, 1), i * 2, 1)
Next
numStr = ReplaceEx(numStr, "零拾;零;零佰;零;零仟;零;零零零;零;零零;零;零亿;亿;零万;万;零圆;圆;亿万;亿")
num2chinese = numStr
End Function

Function ReplaceEx(Str,reStr)
Dim tmp,Var
ReplaceEx = Str
Var=Split(reStr,";")
For tmp = 0 To (Ubound(Var) - 1) Step 2
ReplaceEx = Replace(ReplaceEx, Var(tmp), Var(tmp + 1))
Next
End Function

希望看了可以提高你的脚本思路和技巧

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("零十,零,零百,零,零千,零,零零零,零,零零,零,零亿,亿,零万,万,亿万,亿",",") 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="" loop

[ Last edited by jmz573515 on 2007-7-28 at 10:23 PM ]

ReplaceEx其实功能和你的这个:
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
差不多。。。

只不过是0;零;1;一这样把你的2个数组放在一个数组里（单数和双数保存者）
然后for 而且step 2就是用 双数位的数字替换前面单数为的数字。

主要是因为零十,零,零百,零,零千,零,零零零,零,零零,零,零亿,亿,零万,万,亿万,亿
被替换的和要替换的字符长度不一致……不然不建议用数组（像0123456789转的这个可以直接用mid去取）。

ReplaceEx处理的话，因为用了split函数，所以 被替换和要替换的这个长度不一致就可以解决了。