Código de programación del programa de inicio de sesión con contraseña VB, necesidad urgente. . .

Atenuar n como entero

Subcomando privado1_Click()

Si Texto2 = 1 entonces

MsgBox "Inicio de sesión exitoso"

Else

i = MsgBox("Contraseña incorrecta", vbRetryCancel vbExclamation, "Vuelva a ingresar")

n = n 1

If n = 3 Luego

MsgBox "Si ingresa la contraseña más de 3 veces, se le prohíbe iniciar sesión y se le obliga a cerrar sesión"

Fin

Si i = 4 Entonces

Text2 = ""

Text2.SetFocus

Finalizar si

Si i = 2 Entonces

Fin

Fin si

Fin si

Fin si

Fin Sub

Sub privado Command2_Click()

Fin

Fin Sub

Sub privado Text1_Change()

Si IsNumeric(Text1) = False Entonces

MsgBox "Ingrese un número de cuenta numérico"

Text1.Text = ""

Text1.SetFocus

End If

Fin del subtítulo