Imports System

Public Module Module1

    Public Sub Main()

        Dim valor1 as Decimal

        Dim valor2 as decimal

        Dim valor3 as decimal

        dim promedio as decimal

        Console.WriteLine("Ingrese su primera valor")

            valor1 = Console.ReadLine()

        Console.WriteLine("Ingrese su segunda valor")

            valor2 = Console.ReadLine()

        Console.WriteLine("Ingrese su tercera valor")

            valor3 = Console.ReadLine()

        if promedio = (valor1+valor2+valor3)/3 then

        elseif promedio < 10 then

                Console.WriteLine("es frio")

        elseif promedio > 20 then

            Console.WriteLine("es calido")

        elseif promedio <= 10 and promedio >20 then

            Console.WriteLine("es templado")

        end if

    End Sub

End Module

​

​

​