Module Module1

 

 

    Sub Main()

        Dim number1, number2, number3 As Double

        System.Console.WriteLine("please enter number 1")

        number1 = System.Console.ReadLine()

        System.Console.WriteLine("please enter number 2")

        number2 = System.Console.ReadLine

        System.Console.WriteLine("please enter number 3")

        number3 = System.Console.ReadLine

        Call smallest(number1, number2, number3)

        System.Console.WriteLine("this is your number")

        System.Console.WriteLine()

 

 

    End Sub

    'Private Function smallest(ByVal number1, ByVal number2, ByVal number3 As Double) As Double

    Private Function smallest(ByVal number1 As Double, ByVal number2 As Double, ByVal number3 As Double) As Double

        Dim result As Double

        If number1 <= number2 And number3 Then

            result = number1

        ElseIf number2 <= number3 Then

 

            result = number2

        Else

            result = number3

 

        End If

 

        Return result

 

    End Function

 

 

End Module