Programa VB para escribir un programa de verificación de cuenta y contraseña
Privado?Sub?Command1_Click()
If?IsNumeric(Text1.Text)?And?Len(Text1.Text)?=?6?And?Text2.Text?=?good"?good"? Entonces MsgBox?"Ingrese correctamente, verificación aprobada",?vbOKCancel,? "Verificación aprobada"
Else If?MsgBox("Cuenta o contraseña incorrecta",?vbRetryCancel,?vbRetryAuthentication Error")? =?vbRetry Entonces
Text1.Text?=?good"?
Text2.Text?=?""
Text1.SetFocus Else
Fin ¿Fin?Si
Fin?Si
Fin?Sub
Privado?Sub?Form_Load()
Texto1.Texto? Carácter de contraseña=?"*"
Fin?Sub
Privado?Sub?Form_Load()
Texto1.