巢狀控制結構 (Visual Basic)

發行項
06/08/2015

您可以在其他控制陳述式中放置控制陳述式，例如在 For...Next 迴圈中放置 If...Then...Else 區塊。在其他控制陳述式中放置控制陳述式的動作稱為「巢狀化」(Nested)。

巢狀層次

在 Visual Basic 中的控制結構可使用巢狀型態，層次數目可依您而定。這是一種常見的方式，藉由縮排每個結構的主體，使巢狀結構更具可讀性。整合式開發環境 (IDE) 編輯器會自動執行此動作。

在下列範例中，程序 sumRows 將矩陣中每一列的正值項目加總。

Public Sub sumRows(ByVal a(,) As Double, ByRef r() As Double)
    Dim i, j As Integer
    For i = 0 To UBound(a, 1)
        r(i) = 0
        For j = 0 To UBound(a, 2)
            If a(i, j) > 0 Then
                r(i) = r(i) + a(i, j)
            End If
        Next j
    Next i
End Sub

在前述範例中，第一個 Next 陳述式關閉內層 For 迴圈 (Loop)，而最後一個 Next 陳述式關閉外層 For 迴圈。

同樣的，在巢狀 If 陳述式中，End If 陳述式會自動套用至之前最接近的 If 陳述式。巢狀 Do 迴圈也以相似的形式來運作，它是以最內層的 Loop 陳述式對應至最內層的 Do 陳述式。

注意事項
對於許多控制結構來說，當您按一下關鍵字時，就會將該結構中的所有關鍵字反白顯示。例如，當您按一下 If...Then...Else 建構中的 If 時，就會將該建構中 If、Then、ElseIf、Else 和 End If 的所有執行個體反白顯示。若要移至下一個或上一個反白顯示的關鍵字，請按 CTRL+SHIFT+向下鍵或 CTRL+SHIFT+向上鍵。

在不同種類的控制結構中使用巢狀結構

您可以在其他種類的控制結構內使用巢狀控制結構。下列範例使用 For Each 迴圈中的 With 區塊，以及 With 區塊中的巢狀 If 區塊。

For Each ctl As System.Windows.Forms.Control In Me.Controls
    With ctl
        .BackColor = System.Drawing.Color.Yellow
        .ForeColor = System.Drawing.Color.Black
        If .CanFocus Then
            .Text = "Colors changed"
            If Not .Focus() Then
                ' Insert code to process failed focus.
            End If
        End If
    End With
Next ctl