按鍵精靈的問題 請大大幫忙

Question

不知道 有沒有人 可以 幫我寫出這個~!!

就是 會從
0000
0001
0002
0003
0004
0005
.
.
.
.
9999 就這樣!@@"

自動 打出 0000~ 9999 的數字 由小排到大!! 都要4個數!! 例如 0001 0002 @@

Answer 1

不確定這是不是你所要的

dim curr_n as integer ' 整體變數

Private Sub Form_Load()

curr_n = 0

End Sub

Private Sub Command1_Click()

if (curr_n>9999) then Exit Sub

Print Format(curr_n, "0000")
curr_n = curr_n+1

End Sub

你的螢幕需要放一個按鈕 Command1
它的 TabIndex 要設成 0
(如果不是0, 第一次要用老鼠的按鈕去執行.
再來就可以用鍵盤的 鍵了)