留零亿猜一数字的简单介绍

checkp=instrthenumber，quotquot#39判断是否含有小数位 改为 if leftstrthenumber，1=quotquot then thenumber=intthenumberisF=quot负quotend if checkp=instrthenumber，quotquot#39判断是否含有小数位 然后在 responsewrite Money #39显示结果 改为 responsewrite isF Money #39显示结果。

Dim strNum10 As String #39大写数字 Dim strUnit16 As String #39单位，比如 十，拾，万等 Dim strUnitB2 As String #39小数后的单位 #39初始化 Select Case Typ Case 0 strNum0 = quot零quot strNum1 = quot壹quot strNum2 = quot贰quot strNum3 = quot叁quotstrNum4 = quot肆quot。

if lennlt1 and rights，1=quot零quot then s=lefts，lens1if lefts，2=quot一十quot then s=rights，lens1jx=msgbox quot您输入的数是quot y vbcrlf quot读为quot s vbcrlf quot是否继续quot，vbyesno+32+4096，quot系统提示quotif jx=vbno then wscriptquit s=quotquot。