敘述格式

例題：遊戲等級分類

Select Case 資料或運算式
Case 條件值1
敘述區塊1
Case 條件值2
敘述區塊2
、
、
Case 條件值N
敘述區塊N
Case 條件值N+1
敘述區塊N+1
End Select

Private Sub Command1_Click()
N = Val(InputBox("遊戲等級：1.初級 2.進階 3.專家"))
Select Case N
Case 1
Print "初級"
Case 2
Print "進階"
Case 3
Print "專家"
Case Else
Print "資料輸入錯誤"
End Select
End Sub

格式：步進值=1

例題：計算由1加到10

For 計次變數 = 起始值 To 終止值

Next 計次變數

Private Sub Command1_Click()
Sum = 0
For I = 1 To 10
Sum = Sum + I
Next I
Print Sum
End Sub

格式：步進值不等於1

例題：計算由1+4+7+….301

For 計次變數 = 起始值 To 終止值 Step步進值

Next 計次變數

Private Sub Command1_Click()
Sum = 0
For I = 1 To 301 Step 3
Sum = Sum + I
Next I
Print Sum
End Sub

格式：只要條件成立就繞圈執行

範例：2048是二的幾次方

While 條件式

Wend

Private Sub Command1_Click()
N = 0 ' 先假設是 0 次方
While 2 ^ N < 2048 ' 2 的 N 次方還沒達到 2048
N = N + 1 ' 增加 1 次方，再試試看
Wend
Print "2048 是 2 的"; N; "次方"
End Sub

敘述

格式

例題

Do-While-Loop

只要條件式成立，就繼續執行迴圈

Do While 條件式
敘述區塊
Loop

A =1
Do While A <= 10
Print A
Loop

執行迴圈，直到條件式成立

A =1
Do
Print A
Loop Until A > 10

格式：將跳脫的條件式放於迴圈內

例題

Do
:

Loop

A = 1
Do
Print A
If A = 10 Then Exit Loop
'當A=10立即跳出迴圈不在執行下列敘述
A = A+1
Loop

例題

答案

Private Sub Command1_Click()
For A = 1 To 5
For B = 1 To A
Print "*";
Next B
Print
Next A
End Sub

*
**
***
****
*****

實作

答案

Private Sub Command1_Click()
For A = 5 To 1 Step -1
For B = A To 1 Step -1
Print "*";
Next B
Print
Next A
End Sub

*****
****
***
**
*