Imports System

Public Module Module1

    Public Sub Main()

        Dim x as integer

        Dim y as integer

        Dim z as integer

​

        Console.Writeline("                              lets play a game, type 3 numbers and i'll guess the largest and smallest")

        Console.WriteLine("PLease enter your 1st number")

        x = Console.ReadLine()

        Console.WriteLine("PLease enter your 2nd number")

        y = Console.ReadLine()

        Console.WriteLine("PLease enter your 3rd number ")

        z = Console.ReadLine()

        if (x>y) And (x>z) then 

            Console.WriteLine(x & " is greatest")

        Elseif (y>x) And (y>z) then 

            Console.WriteLine(y & " is greatest")

        Elseif  (z>y) And (z>x) then 

            Console.WriteLine(z & " is greatest")

        End if 

        If (x=y) and (x=z) then 

            Console.WriteLine("You can't enter same numbers if you wanna find the greatest")

        Elseif (y=x) and (y=z) then 

            Console.WriteLine("You can't enter same numbers if you wanna find the greatest")

        End if

        if (x<y) And (x<z) then 

        Console.WriteLine(x & " is smallest")

        Elseif (y<x) And (y<z) then 

            Console.WriteLine(y & " is smallest")

        Elseif  (z<y) And (z<x) then 

            Console.WriteLine(z & " is smallest")

        End if 

        If (x=y) and (x=z) then 

            Console.WriteLine("You can't enter same numbers if you wanna find the smallest")

        Elseif (y=x) and (y=z) then 

        End if

    End Sub

End Module

​