0000 - 9999 干吗？输出？这样：
For 9999
lngNumber = lngNumber + 1
SayString String(4-Len(lngNumber), "0") & lngNumber
Delay 1000
EndFor
Delay是延时，可以自己改，要按回车的话自己加，很简单吧？到记事本上试试！
i=0
While i<10000
While len(i)<4
i="0"&i
EndWhile
msgbox i '显示数字
i=i+1
EndWhile
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024