Función GetMinMax Curso de Programación Visual Basic

Lección:

Funciones


Ejercicio:

Función GetMinMax 34


Objetivo:

crear una función llamada "GetMinMax", que pedirá al usuario un valor mínimo (un número) y un valor máximo (otro número). Debe llamarse de manera similar a

GetMinMax( n1, n2);

que se comportarían así:
Introduzca el valor mínimo: 5
Introduzca el valor máximo: 3.5
Incorrecto. Debe ser 5 o más.
Introduzca el valor máximo: 7

Es decir: debe pedir el valor mínimo y luego el máximo. Si el máximo es inferior al mínimo, debe volver a introducirse. Debe devolver ambos valores.


Código:

Imports System
Public Class exercise132
    Public Shared Sub GetMinMax(ByRef number1 As Single, ByRef number2 As Single)
        Console.Write("Enter the minimum value: ")
        number1 = Convert.ToSingle(Console.ReadLine())
        Console.Write("Enter the maximum value: ")
        number2 = Convert.ToSingle(Console.ReadLine())

        While number2 < number1
            Console.WriteLine("Incorrect. Should be {0} or more.", number1)
            Console.Write("Enter the maximum value: ")
            number2 = Convert.ToSingle(Console.ReadLine())
        End While
    End Sub

    Private Shared Sub Main(ByVal args As String())
        Dim number1 As Single = 000000000.00F, number2 As Single = 000000000.00F
        GetMinMax(number1, number2)
    End Sub
End Class