VB DemoFor2

 Module DemoFor2

    'Buka DemoFor2.vbproj

    Sub Main()

        'For bersarang

        Dim a As Integer, b As Integer

        For a = 1 To 5

            For b = a To 5

                Debug.Print(b & " " & vbNullChar) 'nilai b pada baris sama

            Next b

            Debug.Print("")

        Next a

    End Sub

End Module