如何做具重複執行能力的迴圈

Question

有誰可以告訴我VB程式設計中如何做具重複執行能力的迴圈呢?
有誰知道教我一下

Answer 1

<<迴圈敘述>>
*FOR-NEXT敘述
格式:
　FOR 變數 = 初值 TO 終值[STEP 增值]
　　　　　敘述區段
　NEXT　[變數]

*WHILE-WEND敘述
格式:
　WHILE 條件
　　迴路主體敘述
　WEND

說明:
1.只要條件成立,重複執行迴路主體敘述
2.它必須成對出現
3.可由迴圈內以GOTO敘述跳至迴圈外,不可由迴圈外以GOTO敘述跳至迴圈內
4.FOR-NEXT敘述適用於重複次數已知.WHILE-WEND敘述適用於重複次數未知

*DO-LOOP敘述
格式:
　（前測式迴圈）
　DO WHILE/UNTIL 條件
　　迴路主體敘述
　LOOP

　（後測式迴圈）
　DO
　　迴路主體敘述
　LOOP WHILE/UNTIL 條件

說明:
1.迴圈指令亦可用DO-LOOP敘述,其執行的原則與WHILE-WEND相似,但是DO-LOOP敘述配合WHILE或UNTIL可以將條件置於迴圈前端或末端,而WHILE-WEND只可置於前端
2.條件置於前端稱為前測式迴圈,置於後端稱為後測式迴圈
3.使用WHILE條件 是當條件成立執行迴路主體敘述,而使用UNTIL條件 則是當條件不成立執行迴路主體敘述

<<副程式>>
可分為"函數"和"程序"
　"函數"分為"內建函數"和"自定函數"
　"程序"分為"事件程序"和"自定程序"

　"函數"：
　　"內建函數"：
　　　分為"數值函數"和"字串函數"
　　　"數值函數"：
　　　INT(X)　CINT(X)　FIX(X)　SGN(X)　ABS(X)　
　　　SQR(X)　EXP(X)　LOG(X)　RND
　　　"字串函數"
　　　LEFT$(X$,N)　RIGHT$(X$,N)　MID$(X$,N)　
　　　OCT(X)　HEX(X)
　　"自定函數"：
　　Function...End Function
　　格式：Function函數名稱([By Val/By Ref] 引數[As 資料型態],[By Val/By Ref]引
　　　　　數[As 資料型態]...) [As 資料型態]
　　　　　　敘述區段
　　　　　　函數名稱=運算式
　　　　　End Function
　"程序"：
　　分成"事件程序"和"自定程序"
　　"事件程序"：
　　配合物件使用，當觸動一個物件時，就會執行該物件指定的事件程序，例
　　如按一下命令鈕，會啟動命令鈕的Click事件程序，
　　即Private Sub Command1_Click( )...End Sub
　　"自定程序"：
　　Sub...End Sub
　　格式：Sub 程序名稱([By Val/By Ref] 引數[As 資料型態],[By Val/By Ref]引
　　　　　數[As 資料型態]...) [As 資料型態]
　　　　　　敘述區段
　　　　　End Sub

　

Answer 2

寫一個function副程式，
參數就是迴圈條件。
然後用call的方式，就可以重複使用(reuse)了。

2006-04-01 07:53:03 補充：
2號您雖然把書上的東西打上來了，可是，問題是你打的是迴圈，並不能「重複使用」(reuse)，而且，函數和副程式的最大差別，在能不能帶參數，
這一點你也沒有指出來喔！

Answer 3

什麼叫做『具重複執行能力的迴圈』？問題可能要再說明詳細一點