Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim temp(2) as integer

        Console.WriteLine("Type in the first temperature")

        temp(0) = Console.Readline()

        Console.Writeline("Write down the second number")

        temp(1) = Console.ReadLine()

        Console.WriteLine("Now write the last temperature")

        temp(2) = Console.ReadLine()

        Dim max As Decimal = -1000000

        Dim min As Decimal = 10000000

        for i As Integer = 0 To temp.Length - 1

            if(temp(i) < min) then

                min = temp(i)

            end if

​

            if(temp(i) > max) then

                max = temp(i)

            end if

        Next

​

        Dim dif as decimal

        dif = max - min

        Console.WriteLine("the highest temperature was " & max)

        Console.WriteLine("The lowest temperature was " & min)

        Console.Writeline("The difference between these two numbers is " & dif)

    End Sub

End Module

​