Imports System

public Module module_1

    public sub Main()

        sum()

        GetMaxFor()

        GetMinFor()

    end sub

    public Sub sum()

        dim i as integer

        dim nIn as decimal

        dim sum as decimal

        sum = 0

        for i = 1 to 10

        console.WriteLine("enter a number")

        nIn = console.ReadLine()

        sum = nIn + sum

    next

    console.WriteLine(sum)

    End Sub

​

Private Sub GetMaxFor()

        Dim i As Integer

        Dim maxValue As Decimal

        Dim nIn As Decimal

        maxValue = 0

    Console.WriteLine("input 10 numbers")

        For i = 1 To 10

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

            If (nIn > maxValue) Then

                maxValue = nIn

            End If

        Next

        Console.WriteLine(maxValue)

    End Sub

​

Private Sub GetMinFor()

        Dim i As Integer

        Dim minValue As Decimal

        Dim nIn As Decimal

minValue = 0

Console.WriteLine("input 10 numbers")

        For i = 1 To 10

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

            If (nIn < minValue) Then

                minValue = nIn

            End If

        Next

        Console.WriteLine(minValue)

    End Sub

​

End Module