Imports System

Public Module Module1

    Public Sub Main()

        'Comparar mayor y menor de tres numeros >

        Console.WriteLine("ingrese tres numeros")

        dim a,b,c as integer

        a=Console.ReadLine()

        b=Console.ReadLine()

        C=Console.ReadLine()

        'Evaluar el mayor de los tres 

        If a>b and a>c then

            Console.WriteLine("El mayor es A")

        end if 

        If b>a and b>c then 

            Console.WriteLine("El mayor es B")

        else 

            Console.WriteLine("El mayor es C")

        end if 

        'evaluar el menor de los tres 

        If a<b and a<b then

            Console.WriteLine("El menor es A")

        end if 

        If b<a and b<c then

            Console.WriteLine("El menor es B")

        else 

            Console.WriteLine("El menor es C")

        end if 

    End Sub

End Module