Imports System

​

Public Module Module1

​

    Public Sub Main()

        q6

    End Sub

​

    public Sub q1()

        console.WriteLine("---------------------------")

        console.WriteLine("Program outputs 2 x the input,Until the user inputs -1")

        console.WriteLine("---------------------------")

        dim n as integer =  console.ReadLine()

        do until n = -1

            console.WriteLine(n*2)

            console.writeline(" ")

            console.WriteLine("input another until -1")

            n = console.ReadLine()

        loop

        console.WriteLine("exit sub")

    end sub

    public sub q2()

        console.WriteLine("---------------------------")

        console.WriteLine("Program outputs 2 x the input,Until the user inputs -1, max 5 times")

        console.WriteLine("---------------------------")

        dim n as integer =  console.ReadLine()

        dim i as integer = 1

        do while i < 5

            console.WriteLine(n*2)

            if n = -1 then

                exit do 

            end if 

            console.writeline(" ")

            console.WriteLine("input another until -1")

            n = console.ReadLine()

            i += 1

        loop

        console.WriteLine("exit sub")

    end sub

    public sub q3 ()

            console.writeline("---------------------------------")

            console.WriteLine("The program prints out the numbers 100 to 1000 using a Do ….. Until loop")

            console.writeline("---------------------------------")

            dim n as integer =100

            do until n > 1000

                console.WriteLine(n)

                n += 1

            loop

    end sub 

    public sub q4 ()

        console.writeline("---------------------------------")

        console.WriteLine("The program prints out the numbers 100 to 1000 using a Do ….. While loop")

        console.writeline("---------------------------------")

        dim n as integer =100

        do while n < 1001

            console.WriteLine(n)

            n += 1

        loop

    end sub

        public sub q5 ()

            console.WriteLine("get sum, end up with -1")

            dim n as decimal

            dim i as integer = 1

            dim nt as decimal = 0

            do until n = -1

                n = console.ReadLine()

                nt += n

            loop

            console.WriteLine("sum:is")

            console.WriteLine(nt)

        end sub

        public sub q6 ()

            console.WriteLine("get largest, end up with -1")

            dim n as decimal

            dim i as integer = 1

            dim ng as decimal = 0

            do until n = -1

                n = console.ReadLine()

                if n > ng then

                    ng = n

                end if

            loop

            console.WriteLine ("largest is ")

            console.WriteLine(ng)

        end sub

End Module

​