Contraseña 5 intentos Curso de Programación Visual Basic

Lección:

Tipos de datos básicos


Ejercicio:

Contraseña 5 intentos 34


Objetivo:

Escriba un programa en Visual Basic que solicite al usuario su nombre de usuario y contraseña. Ambos deben ser cadenas. Después de 5 intentos erróneos, el usuario será rechazado.


Código:

Imports System
Public Class Exercise52
    Public Shared Sub Main()
        Dim user, pass As String
        Dim count As Integer = 0

        Do
            Console.Write("Enter username: ")
            user = Console.ReadLine()
            Console.Write("Enter password: ")
            pass = Console.ReadLine()
            count += 1
        Loop While ((user <> "user") OrElse (pass <> "password")) AndAlso (count <> 5)

        If count = 5 Then
            Console.Write("Login attemp fail!")
        Else
            Console.Write("Password correct!")
        End If
    End Sub
End Class