Visual Basic 2008 迴路的六種樣式簡例

這六個例子輸出的結果，都是「1,2,3,4,5」，六種不一樣的寫法。

花點時間比較一下，搞清楚後，下次看迴路就不擔心了。

編號	程式碼	說明
1	Public Class Form1
2	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
3
4	Dim i, j, k As Integer	'定義參數
5	Dim str1 As String = ""
6
7		'輸出1-5數字
8
9		'前4個為先測試迴路版
10	For i = 1 To 5	'For版
11	str1 = str1 & i
12	Next i
13
14	str1 = str1 & vbNewLine	'跳行
15
16	j = 1	'While版
17	While j <= 5
18	str1 = str1 & j
19	j = j + 1
20	End While
21
22	str1 = str1 & vbNewLine
23
24	k = 1	'Do While版
25	Do While k <= 5
26	str1 = str1 & k
27	k = k + 1
28	Loop
29
30	str1 = str1 & vbNewLine
31
32	k = 1	'Do Until版
33	Do Until k > 5
34	str1 = str1 & k
35	k = k + 1
36	Loop
37
38	str1 = str1 & vbNewLine
39
40		'以下2個例子，為後測試迴路版
41
42	k = 1	'Do … Loop While版
43	Do
44	str1 = str1 & k
45	k = k + 1
46	Loop While k <= 5
47
48	str1 = str1 & vbNewLine
49
50	k = 1	'Do … Loop Until版
51	Do
52	str1 = str1 & k
53	k = k + 1
54	Loop Until k > 5
55
56	str1 = str1 & vbNewLine
57
58	MsgBox(str1)	'最後結果輸出
59
60	End Sub
61	End Class