Ejercicio
Contraseña V2
Objetivo
Escriba un programa en Visual Basic para solicitar al usuario su nombre de usuario y su contraseña (ambos deben ser números enteros), hasta que el inicio de sesión ingresado sea "12" y la contraseña sea "1234". El usuario tendrá un máximo de 3 intentos.
Código
Imports System
Public Class Exercise31
Public Shared Sub Main()
Dim user, pass As Integer
Dim counter As Integer = 0
Do
Console.Write("Enter a user: ")
user = Convert.ToInt32(Console.ReadLine())
Console.Write("Enter a password: ")
pass = Convert.ToInt32(Console.ReadLine())
If (user <> 12) OrElse (pass <> 1234) Then
Console.WriteLine("Login Error")
counter += 1
End If
Loop While ((user <> 12) OrElse (pass <> 1234)) AndAlso (counter <> 3)
If (user <> 12) OrElse (pass <> 1234) Then
Console.WriteLine("Logged out!")
Else
Console.WriteLine("Login successful")
End If
End Sub
End Class