VB DemoFor1

Module DemoFor1

    'Buka DemoFor1.vbproj

    Sub Main()

        Dim a As Integer, b As Integer

        For a = 1 To 10

            Debug.Print(a & " " & vbNullChar)  'nilai a pada haris yg sama

        Next a

        Debug.Print("")     'tampilkan baris kosong

        'Menggunakan STEP

        For b = 10 To 1 Step -1

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

        Next b

    End Sub

End Module