✔ 最佳答案
夠簡單的基本練習題
告訴你一個陳述式:For
用法(中括號裏的數字可視乎情況而打(Optional)):
For i = x to y [Step n/-n]
Next [i]
例子:
’彈出數字0-9
For i = 0 to 9 Step +1 ’Step+1可以忽略不寫
MsgBox i
Next
’彈出0,2,4,6,8
For i = 0 to 9 Step+ 2 ’Step+2就是每次增加2:i只會等於0,2,4,6,8
MsgBox i
Next
’彈出9,8,7,6,5,4,3,2,1,0
For i = 9 to 0 Step -1 ’Step-1就是每次減少1,注意前邊已經改為9 to 0
MsgBox i
Next
’彈出9,6,3,0
For i = 9 to 0 Step -3 ’Step-3就是每次減少3
MsgBox i
Next
’如果Step是正數,加號(+)可忽略不寫
’如果Step是負數,且For i = x to y [Step n/-n]裏的x-y是少於0(-1或以下),For將不會執行
------------------------------------------------------------------------
明白以後,問題就是如何印出這些數字了,VB6 下可以用Print函數,VB.net 下用Debug.Print函數
第一題:
While(1)’若要不斷顯示,請加上這句(不過程式會陷入死循環)
Dim i As Integer ’VB6可忽略(不過也強烈建議寫下!宣告變數是個好的習慣)
For i = 1 to 15
print i’VB6
Debug.print(CStr(i))’VB.NET(Cstr只是轉換i的類型由整數變成字串以顯示)
Next
Wend’若要不斷顯示,請加上這句(不過程式會陷入死循環)
第二題:
While(1)’若要不斷顯示,請加上這句(不過程式會陷入死循環)
Dim i As Integer
For i = 1 to 20 Step 2
print i’VB6
Debug.print(CStr(i))’VB.NET(Cstr只是轉換i的類型由整數變成字串以顯示)
Next
Wend’若要不斷顯示,請加上這句(不過程式會陷入死循環)
提示/注意!!!
若程式陷入死循環,可按下Ctrl Pause|Break按鈕(Pause|Break按鈕在F12的旁邊、旁邊、再旁邊!)暫停程式。