Ejercicio
Función GetMinMax
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