Contraseña Curso de Programación Visual Basic

Lección:

Control del Flujo


Ejercicio:

Contraseña 23


Objetivo:

Escribe un programa en Visual Basic para pedir al usuario su login y su contraseña (ambos deben ser números enteros) y repítelo tantas veces como sea necesario, hasta que el login introducido sea "12" y la contraseña sea "1234".


Código:

Imports System
Public Class Exercise30
    Public Shared Sub Main()
        Dim user, pass As Integer

        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")
        Loop While (user <> 12) OrElse (pass <> 1234)

        Console.WriteLine("Login successful")
    End Sub
End Class