'Ejercicio 9

Dim nombre, numeroStr, email, fechaStr, answ, answMinus, nombreAlm, emailAlm As String
        Dim cuenta, numero, telefonoAlm As Integer
        Dim fecha, fechaHoy As Date

        cuenta = 1
        Do
            Do
                Console.ForegroundColor = ConsoleColor.White
                Console.Write("Introduce Nombre y Apellido persona {0}: ", cuenta)
                nombre = Console.ReadLine

                If String.IsNullOrWhiteSpace(nombre) Then
                    Console.ForegroundColor = ConsoleColor.Red
                    Console.WriteLine("No has introducido ningún nombre.")
                End If

            Loop While String.IsNullOrWhiteSpace(nombre)

            cuenta = cuenta + 1

            Do
                Console.ForegroundColor = ConsoleColor.White
                Console.Write("Introduce número de teléfono: ")
                numeroStr = Console.ReadLine

                If Not numeroStr.StartsWith("6") AndAlso Not numeroStr.StartsWith("8") AndAlso Not numeroStr.StartsWith("9") Then

                    Console.ForegroundColor = ConsoleColor.Red
                    Console.WriteLine("No has introducido un número valido.")

                End If

                If Not Integer.TryParse(numeroStr, numero) Then
                    Console.ForegroundColor = ConsoleColor.Red
                    Console.WriteLine("No has introducido un número valido.")
                End If

            Loop Until numeroStr.Count() = 9

            Console.ForegroundColor = ConsoleColor.White
            Console.Write("E-mail: ")
            email = Console.ReadLine

            If Not String.IsNullOrWhiteSpace(email) Then
                Do
                    If Not email.Contains("@") OrElse Not email.Contains(".") Then
                        Console.ForegroundColor = ConsoleColor.Red
                        Console.WriteLine("No has introducido un E-mail valido.")

                        Console.ForegroundColor = ConsoleColor.White
                        Console.Write("E-mail: ")
                        email = Console.ReadLine
                    End If

                Loop While Not email.Contains("@") OrElse Not email.Contains(".")
                Do
                    If email.LastIndexOf("@") > email.LastIndexOf(".") Then
                        Console.ForegroundColor = ConsoleColor.Red
                        Console.WriteLine("No has introducido un E-mail valido.")

                        Console.ForegroundColor = ConsoleColor.White
                        Console.Write("E-mail: ")
                        email = Console.ReadLine
                    End If
                Loop While email.LastIndexOf("@") > email.LastIndexOf(".")

            End If

            Console.ForegroundColor = ConsoleColor.White
                Console.Write("Fecha de nacimiento: ")
                fechaStr = Console.ReadLine
                Date.TryParse(fechaStr, fecha)

            Do
                Console.Write("Deseas otra persona <S/N>: ")
                answ = Console.ReadLine
                answMinus = answ.ToLower
            Loop While answMinus <> "s" And answMinus <> "n"

            If fecha > fechaHoy Then
                nombreAlm = nombre
                telefonoAlm = numero
                emailAlm = email
                fechaHoy = fecha
            End If

        Loop While answ = "s"

        Console.WriteLine("La persona más joven es:")
        Console.WriteLine("{0}. Su número de teléfono es: {1}. Nació el: {2}. Su E-mail es: {3}.", nombreAlm, telefonoAlm, fecha.ToLongDateString, emailAlm)

        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("Pulsa cualquier tecla para finalizar...")
        Console.ReadKey()

'Ejercicio 10

 Dim numMinStr, numMaxStr, answStr As String
        Dim numMin, numMax, numAlea, answ As Byte
        Dim rnd As New Random()
        Dim contador As Integer

        Console.WriteLine("Adivinar número")

        Do
            Do

                Console.Write("Introduce valor mínimo: ")
                numMinStr = Console.ReadLine()
                Console.Write("Introduce valor máximo: ")
                numMaxStr = Console.ReadLine()

                If Not Byte.TryParse(numMinStr, numMin) AndAlso Byte.TryParse(numMaxStr, numMax) Then
                    Console.WriteLine("No has introducido un valor correcto...")
                End If

            Loop Until Byte.TryParse(numMinStr, numMin) AndAlso Byte.TryParse(numMaxStr, numMax)

            If numMin > numMax Then
                Console.WriteLine("El 1º debe de ser mayor al 2º, vuelve a introducirlos")
            End If
        Loop Until numMin < numMax

        numAlea = rnd.Next(numMin, numMax)
        Console.WriteLine("")
        Console.WriteLine("Ahora intenta adivinar un número entre {0} y {1}", numMin, numMax)

        Do
            Console.Write("Número: ")
            answStr = Console.ReadLine
            Byte.TryParse(answStr, answ)

            contador = contador + 1

            If answ > numAlea Then
                Console.WriteLine("Error. {0} es mayor que el que intentas adivinar.", answ)
            ElseIf answ < numAlea Then
                Console.WriteLine("Error. {0} es menor que el que intentas adivinar.", answ)
            End If

        Loop Until answ = numAlea

        Select Case contador
            Case 1 - 2 - 3 : Console.WriteLine("¡¡MUY BIEN!!. Lo has logrado a los {0} intentos", contador)
            Case 4 - 5 : Console.WriteLine("No está mal. Lo has logrado a los {0} intentos", contador)
            Case 6 To 10 : Console.WriteLine("Está bien. Lo has logrado a los {0} intentos", contador)
            Case > 10 : Console.WriteLine("Lo has logrado a los {0} intentos", contador)
        End Select

        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("Pulsa cualquier tecla para finalizar...")
        Console.ReadKey()