Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim temp(4) as decimal

        dim highest as decimal = 0

        dim lowest as decimal = 0

        dim tempdiff as decimal

        dim input_temp as decimal

        dim count as integer

        for count = 1 to 4

        console.WriteLine("Enter Temperature " & count)

            input_temp = console.readline

            temp(count) = input_temp

        Do while temp(count) < 30 or temp(count) >40 ' extremely important as a validation

            console.write("temperature " & count) : console.Write(" is invalid")

            input_temp=console.ReadLine()

            temp(count)=console.readline

        loop

        next

​

        for count = 1 to 4

            if temp(count) > highest then

                highest = temp(count)

            end if

​

            if temp(count) < lowest then

                lowest = temp(count)

            end if

        next

​

console.WriteLine("The Highest temp is " & highest)

console.WriteLine("The Howest temp is " & lowest)

tempdiff = highest - lowest

console.WriteLine("The difference is " & tempdiff)

    End Sub

End Module

​