第 4 章 VBScript 的流程控制

第4章 VBScript的流程控制 • 4-1 流程控制的基礎 • 4-2 VBScript的條件控制 • 4-3 VBScript的迴路控制

4-1 流程控制的基礎 • 流程控制指令可以分為兩類，如下所示： • 條件控制：條件控制就是一個選擇題，可能為單一選擇或多選一，依照第四章條件運算子的結果，決定執行那一區塊的程式碼。 • 迴路控制：迴路控制是重複執行一區塊的程式碼，其中擁有一結束條件，以便結束迴路的執行。

4-2 VBScript的條件控制 • 4-2-1 If … Then是否選條件敘述 • 4-2-2 If … Then … Else兩選一條件敘述 • 4-2-3 If Then ElseIf多選一條件敘述 • 4-2-4 Select Case多選一條件敘述

4-2-1 If … Then是否選條件敘述-1 • If Then條件敘述是一種是否執行的條件，決定是否執行區塊內的程式碼，如果If條件為True，就執行Then...End If間的程式碼，如下所示： If strSex = "男" Then Response.Write(strName & "男士您好! ") Response.Write("歡迎使用ASP 3.0<br>") End If

4-2-1 If … Then是否選條件敘述-2

4-2-2 If … Then … Else兩選一條件敘述-1 • 條件如果擁有排它情況的兩個執行區塊，只能二選一，可以加上Else指令，如果If條件為True，就執行Then...Else間的程式碼，False就執行Else...End If間的程式碼，如下所示： If strSex = "男" Then Response.Write(strName & "男士您好! ") Else Response.Write(strName & "女士您好!<br>") End If

4-2-2 If … Then … Else兩選一條件敘述-2

4-2-3 If Then ElseIf多選一條件敘述-1 • If Then ElseIf條件敘述屬於If Then條件敘述的延伸，使用ElseIf指令建立多選一條件： dtWeekday = Weekday(Date) If dtWeekday = 1 Then strWdstring="星期日" ElseIf dtWeekday = 2 Then strWdstring="星期一" ElseIf dtWeekday = 3 Then ……….. Else strWdstring="無法分辨是星期幾" End If

4-2-3 If Then ElseIf多選一條件敘述-2

4-2-4 Select Case多選一條件敘述-1 • Select Case直接依照符合的條件執行不同區塊的程式碼，如下所示： dtWeekday = Weekday(Date) Select Case dtWeekday Case 1: strWdstring="星期日" Case 2: strWdstring="星期一" Case 3: strWdstring="星期二" Case 4: strWdstring="星期三" Case 5: strWdstring="星期四" Case 6: strWdstring="星期五" Case 7: strWdstring="星期六" Case Else strWdstring="無法分辨是星期幾" End Select

4-2-4 Select Case多選一條件敘述-2

4-3 VBScript的迴路控制 • 4-3-1 For … Step … Next迴路 • 4-3-2 巢狀的For Next迴路 • 4-3-3 For Each … In … Next迴路 • 4-3-4 Exit For中斷For迴路 • 4-3-5 Do …Exit Do … Loop迴路 • 4-3-6 Do While … Loop迴路 • 4-3-7 Do Until … Loop迴路 • 4-3-8 Do … Loop While迴路 • 4-3-9 Do … Loop Until迴路 • 4-3-10 Do/While … Loop/Until的巢狀迴路 • 4-3-11 While … Wend迴路

4-3-1 For … Step … Next迴路-1 • For Step Next迴路指令執行固定次數的迴路，其結束條件是Step量每次增加或減少一個值，如果到達結束條件的值，就結束迴路，如下所示： Dim intI, intTotal For intI = 1 To 10 Step 1 intTotal = intTotal + intI Next

4-3-1 For … Step … Next迴路-2

4-3-2 巢狀的For Next迴路 • 巢狀迴路指的是在For Next迴路中擁有其它For Next迴路，有如巢狀般排列的迴路，如下所示： For intI = 1 To 9 For intJ = 1 To 9 …… Next Next

4-3-3 For Each … In … Next迴路 • For Each迴路使用在物件的資料集合或陣列，顯示資料集合或陣列的所有元素，特別適合那些不知道到底有多少元素的資料集合或陣列，如下所示： For Each strName in name Response.Write("<td>" & strName & "</td>") Next • 上述程式碼變數name為一個陣列，這個迴路可以取得所有陣列的元素。

4-3-4 Exit For中斷For迴路 • 在迴路尚來到達結束條件時，我們可以使用Exit For指令強迫跳出For Next迴路，結束迴路的執行，如下所示： For intI = 1 To 100 Step 1 … Exit For … Next

4-3-5 Do …Exit Do … Loop迴路 • Do Loop迴路屬於一個無窮迴路，我們可以使用Exit Do指令結束迴路，如下所示： Do …. Exit Do IntI = intI + 1 …. Loop

4-3-6 Do While … Loop迴路-1 • Do Loop迴路使用While條件在迴路開頭檢查，開頭檢查的目的是是否允許進入迴路，所以While指令的測試條件如果成立時才能進入迴路，如下所示： intI = 1 intTotal = 0 Do While intI <=10 intTotal = intTotal + intI intI = intI + 1 Loop

4-3-6 Do While … Loop迴路-2

4-3-7 Do Until … Loop迴路-1 • Do Loop迴路使用Until條件在迴路開始檢查，Until是直到條件成立，如果條件不成立就進入迴路，如下所示： intI = 1 intTotal = 0 Do Until intI >10 intTotal = intTotal + intI intI = intI + 1 Loop

4-3-7 Do Until … Loop迴路-2

4-3-8 Do … Loop While迴路-1 • Do Loop迴路使用While條件在迴路結尾檢查，這個Do Loop迴路至少執行一次，如下所示： intI = 1 intTotal = 0 Do intTotal = intTotal + intI intI = intI + 1 Loop While intI <=10

4-3-8 Do … Loop While迴路-2

4-3-9 Do … Loop Until迴路-1 • Do Loop迴路使用Until條件在迴路結尾檢查，這個迴路至少執行一次，如下所示： intI = 1 intTotal = 0 Do intTotal = intTotal + intI intI = intI + 1 Loop Until intI > 10

4-3-9 Do … Loop Until迴路-2

4-3-10 Do/While … Loop/Until的巢狀迴路 • Do Loop迴路如同For Next迴路可以結合各種組合建立巢狀迴路，如下所示： Do While intI <= 9 intJ = 1 Do Response.Write(intI & "*" & intJ & "=" & intI*intJ) intJ = intJ + 1 Loop Until intJ > 9 intI = intI + 1 Loop

4-3-11 While … Wend迴路 • While Wend迴路是在迴路開始時測試條件，以決定是否執行迴路的程式碼，同樣的While Wend迴路也可以建立巢狀迴路，其架構如下所示： While intI <= 9 intJ = 1 While intJ <= 9 Response.Write(intI & "*" & intJ & "=" & intI*intJ) intJ = intJ + 1 Wend intI = intI + 1 Wend

第 4 章 VBScript 的流程控制