Imports System

Public Module Module1

    Public Sub Main()

        'Console.Clear

        'Dim nInt as integer 

        'Dim nInt16 as short 

        'Dim nDec as decimal

        'Dim nSng as double

        'nDec = 10 / 3

        'nInt = nDec

        'Console.WriteLine(nDec)

        'Console.WriteLine(nInt)

        'nSng = Math.PI

        'Console.WriteLine(nSng)

        'nDec = nSng

        'Console.WriteLine(nDec)

        'create a sub routine called Print that outputs a string

        'use: Print(stringValue)

        GetSumDo()

    End Sub

​

    Private Sub GetSumWhile()

        Dim i as integer

        Dim sum as decimal

        i = 0

        sum = 0

        Console.WriteLine("Enter a number")

        i = Convert.ToInt32(Console.ReadLine())

        While i <> -1

            i =  Convert.ToInt32(Console.ReadLine())

            sum = i + sum

        End While

        Console.WriteLine(sum)

    End Sub

​

​

    Private Sub GetSumDo()

        Dim i as integer

        Dim sum as decimal

        i = 0

        sum = 0

        Console.WriteLine("Enter a number")

        i = Convert.ToInt32(Console.ReadLine())

        Do Until i = -1

            i =  Convert.ToInt32(Console.ReadLine())

            sum = i + sum

        Loop 

        Console.WriteLine(sum)

    End Sub 

    Private Sub GetSumFor()

        Dim i as integer

        Dim sum as decimal

        sum = 0

        Console.WriteLine("Enter a number")

        i = Convert.ToInt32(Console.ReadLine())

        For i = 1 to 10

            i =  Convert.ToInt32(Console.ReadLine())

            sum = i + sum

        Next 

        Console.WriteLine(sum)

    End Sub 

​

​

    Private Sub GetMaxFor()

        Dim i as integer

        Dim maxValue as decimal

        maxValue = 0

        Console.WriteLine("Enter 10 numbers slowly")

        For i = 1 to 10

            i =  Convert.ToInt32(Console.ReadLine())

            if (i > maxValue) then

                maxValue = i

            end if

        Next 

        Console.WriteLine(maxValue)

    End Sub 

​

​

    Private Sub GetMaxUntil()

        Dim i as integer

        Dim maxValue as decimal

        maxValue = 0

        Console.WriteLine("Enter 10 numbers slowly")

        Do Until i = -1

            i =  Convert.ToInt32(Console.ReadLine())

            if (i > maxValue) then

                maxValue = i

            end if

        Loop 

        Console.WriteLine(maxValue)

    End Sub 

​

​

    Private Sub GetMaxWhile()

        Dim i as integer

        Dim maxValue as decimal

        maxValue = 0

        Console.WriteLine("Enter 10 numbers slowly")

        Do While i <> -1

            i =  Convert.ToInt32(Console.ReadLine())

            if (i > maxValue) then

                maxValue = i

            end if

        Loop 

        Console.WriteLine(maxValue)

    End Sub 

​

Private Sub GetMaxNestedFor()

        Dim i as integer

        Dim maxValue as decimal

        maxValue = 0

        Console.WriteLine("Enter 10 numbers slowly")

        For j = 1 to 3

            For i = 1 to 3

                i =  Convert.ToInt32(Console.ReadLine())

                if (i > maxValue) then

                    maxValue = i

                end if

            Next i

            Console.WriteLine(maxValue)

        Next j

    End Sub 

​

End Module