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...

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