VB循環技巧功課...急

2008-03-26 9:42 pm
我想問大家vb程式中...
要點打d步驟先可以整到...
1.印出數字1至15
按一下就會不斷出現1-15
2.印出數字1至20內的單數
又是一按會不斷出現單數
thanks...

回答 (2)

2008-03-27 8:26 am
✔ 最佳答案
夠簡單的基本練習題
告訴你一個陳述式: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的旁邊、旁邊、再旁邊!)暫停程式。
2008-03-26 10:46 pm
我都唔知你用VB幾寫,點教你。

你是用 VB 5.00 CCE
VB 6.0
VB 2005
你唔係要我寫曬比你呀

參考: experience


收錄日期: 2021-04-21 14:38:11
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20080326000051KK01466

檢視 Wayback Machine 備份