Imports System

​

Public Module Module1

​

    Public Sub Main()

        Question1()

        question2()

        Question3()

        Question4()

        Question5()

    end sub

​

    private sub Question1()

        Dim n1 As Integer

        n1 = 100

        do until n1 = 1000

            n1 = n1 + 1

            console.writeline(n1)

        loop

    End Sub

​

    private sub Question2()

        Dim n1 As Integer

        n1 = 100

        do while n1 < 1000

            n1 = n1 + 1

            console.writeline(n1)

        loop

    End Sub

​

    private sub Question3()

        dim sum as decimal

        dim n1 as integer

        sum = 0

        console.WriteLine("INPUT A NUMBER")

        do until n1 = -1

            n1 = console.ReadLine()

            sum = sum + n1

        loop

​

        console.WriteLine(sum)

    end sub

        private sub Question4()

        dim sum as decimal

        dim n1 as integer

        sum = -999999999999999

        console.WriteLine("INPUT A NUMBER")

        do until n1 = -1

            n1 = console.ReadLine()

            if n1 > sum then 

                sum = n1

            end if

        loop

​

        console.WriteLine(sum)

    end sub

    private sub Question5()

        dim n1 as decimal

        dim n3 as integer

        n3= 3

        console.WriteLine("THE NUMBER IS BETWEEN 1 AND 10")

        do until n1 = n3

            n1 = console.ReadLine()

            if n1 = n3 then

                console.WriteLine("YOU GOT IT")

            end if

            if n1 < n3 then

                console.writeline("too low")

            end if

            if n1 > n3 then

                console.writeline("too high")

            end if

        loop

    end sub

End Module