Programa de programación de contraseñas
Representa n como un número entero
Subcomando privado 1_Click()
Si texto2 = 1, entonces
MsgBox "Inicio de sesión exitoso"
Otro
I = MsgBox("Contraseña incorrecta", ejemplo de vbRetryCancel VB, "Vuelva a ingresar")
n = n 1
Si n = 3, luego
MsgBox "Ingrese la contraseña más de 3 veces para prohibir el inicio de sesión y forzar el cierre de sesión"
Fin
Si i = 4, entonces
Texto2 = " "
Texto2. SetFocus
Terminará si...
Si i = 2, entonces
Fin
Terminará si...
Terminará si...
Terminará si...
Finalizar conector
Subcomando privado 2_Click()
Fin
Conector final
Subtext1_Change() privado
Si IsNumeric(Text1) = False, entonces
MsgBox "Por favor ingrese un número de Cuenta”
Texto1. texto = " "
Texto1. SetFocus
Finalizar si...
Finalizar conector