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)

        Getminimumvalueuntil()

    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 

​

​

Private Sub Getminimumvaluewhile

Dim i as integer

Dim minValue as integer 

Dim Count as Integer = 1

minValue = 100000

Console.WriteLine("Enter 10 numbers")

Do While Count <=10

    i = Convert.ToInt32(Console.Readline)

    if (i < minValue) then

    minValue = i

end if

Count = Count + 1

Loop

Console.WriteLine(minvalue)

End Sub 

​

Private Sub Getminimumvalueuntil

Dim i as integer

Dim minValue as integer 

Dim Count as Integer = 1

minValue = 100000

Console.WriteLine("Enter 10 numbers")

Do Until Count = 11

    i = Convert.ToInt32(Console.Readline)

    if (i < minValue) then

    minValue = i

end if

Count = Count + 1

Loop

Console.WriteLine(minvalue)

End Sub 

​

Private Sub Getaverageof3numbers

Dim sum as decimal

Dim count as integer

Dim x as decimal 

Console.WriteLine("Enter 3 numbers")

Convert.ToInt32(Console.Readline)

sum = sum + Console.ReadLine()

count= count + 1

Do While count = 3 

x = sum / count

loop

End Sub

​

Private Sub Findhighestvalue

Dim i as integer

Dim highestValue as integer

Dim count as integer

count = 0

highestValue = -1000

Console.WriteLine("Enter 10 numbers")

Do While count <> 11

count= count + 1

Convert.ToInt32(Console.Readline)

i = Console.Readline()

If i > highestvalue then

End if

highestvalue = i   

If count > 10 

End If 

loop

End Sub

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

End Module

​

​

​

​

​

​

​

​

​

​

​