for-loop-bounds-cached.vb

Module Program

    Sub Main()

        Dim lower = 1,
            upper = 9,
            increment = 2

        For i = lower To upper Step increment
            Console.WriteLine(i)
            upper += 1
            increment -= 1
        Next

    End Sub
End Module