Imports System

Public Module Module1

    Public Sub Main()

        dim q1 as integer = 50

        while q1 < 75

            q1 = q1 + 1

            Console.WriteLine(q1)

        end while

        dim q2 as integer = 11

        while q2 > 1

            q2 = q2 - 1

            Console.WriteLine(q2)

        end while

        dim q3 as integer

        while q3 < 70

            q3 = q3 + 7

            Console.WriteLine(q3)

        end while

    End Sub

End Module