INTRODUCTION TO USING FOR-NEXT LOOPS

FROM LESSON 4: LOOP TEST




   Private Sub optCount5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optCount5.CheckedChanged
        Dim x As Short
        For x = 1 To 5
            lbAnswer.Items.Add(x)
        Next
    End Sub


    Private Sub optCountBy2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optCountBy2.CheckedChanged
        Dim x As Short
        For x = 2 To 20 Step 2
            lbAnswer.Items.Add(x)
        Next
    End Sub

    Private Sub optBack_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optBack.CheckedChanged
        Dim x As Short
        For x = 20 To 1 Step -1
            lbAnswer.Items.Add(x)
        Next
    End Sub

    Private Sub optNested_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optNested.CheckedChanged
        Dim x As Short
        Dim y As Short

        For x = 1 To 3              'do this 3 times
            lbAnswer.Items.Add(x)
            lbAnswer.BringToFront()
            For y = 1 To 3          'display item 3 times in a set
                lbAnswer.Items.Add("Another set of items")
            Next y
        Next x

    End Sub