programación de contraseña vb

'El código es el siguiente. No sé si este es el resultado que desea. Si no, espero que pueda aclararlo. Si tiene alguna pregunta, hablemos y aprendamos unos de otros.

'Simplemente copie el código. en el nuevo formulario

'Control requerido: comando1(0)

Dim StrNum As String 'Número predeterminado

Subcomando privado1_Click(Índice como entero)

Atenuar StrCh como cadena

StrCh = Command1(Index).Caption

Text1 = Texto1 & StrCh

If Mid(StrNum, Len( Text1.Text), 1) < > StrCh Then MsgBox "La contraseña es incorrecta": Text1.Text = "": Salir de Sub

Si Text1.Text = StrNum Then MsgBox "La contraseña se ha ingresado completamente correctamente !"

End Sub

Sub privado Form_Load()

Comando1(0).Caption = 0

Texto1 = ""

Para i = 1 a 9

Cargar Comando1(i)

Comando1(i).Left = Comando1(i - 1).Left + Comando1(i - 1).Ancho + 50

Comando1(i).Arriba = Comando1(0).Arriba

Comando1(i).Caption = i

Comando1 (i).Visible = True

Next i

StrNum = "20080808"

End Sub

'Amigo, hice la operación ¿Tuviste éxito? Si es así, por favor dame la respuesta. Espero poder obtener cincuenta puntos de ti, jaja

'Llorando... Miré el código del amigo de abajo Luego miré la solicitud del cartel original. ... Como resultado, lo entendí mal... Suspiro... Parece... Realmente no puedo ser profesor o algo así... Lo único que me alegra es eso. No me quedé en la escuela cuando me gradué de la universidad Jaja