TOP

Visual Basic Consola - Condicionales 03




03.  Elaborar un programa que simule una clave de acceso. Si el usuario es: ”ADMIN” y la clave “123456” mostrara el mensaje “ACCESO PERMITIDO” caso contrario mostrar el mensaje “ACCESO DENEGADO”.


Imports System.Console
Module Module3
    Dim clave, usuario
    Sub Main()
        Write("Ingrese Clave : ")
        clave = ReadLine()
        Write("Ingrese Usuario : ")
        usuario = ReadLine()
        WriteLine()
        If (clave.ToUpper = "ADMIN" And usuario = "123456") Then
            WriteLine("ACCESO PERMITIDO")
        Else
            WriteLine("ACCESO DENEGADO")
        End If
        ReadLine()
    End Sub
End Module


share_facebook

DAME UN ME GUSTA - SI VALORAS ESTE CÓDIGO



0 comentarios:

Publicar un comentario

Danos tu opinión o déjanos tu ejercicio! - Algoritmos, pseudocódigo y lo pasamos a Visual Basic consola.