0000到9999依次遞增輸入的代碼？

For i = 1 To 9SayString "000"&iKeyPress "Space", 1KeyPress "Enter", 1NextFor i = 10 To 99SayString "00"&iKeyPress "Space", 1KeyPress "Enter", 1NextFor i = 100 To 999SayString "0"&iKeyPress "Space", 1KeyPress "Enter", 1NextFor i = 1000 To 9999SayString "0"&iKeyPress "Space", 1KeyPress "Enter", 1Next