Imprimir Página - Problema: Etiqueta no definida

Hola a todos. Estoy trabajando en un de/codificador que incluye la opción de definir tu propio algoritmo de cifrado. El código que llevo por ahora es el siguiente (No llevo nada programando). El subprograma CommandButton1_Click() intenta llamar al etiquetado como Definicion, pero me salta un problema con la etiqueta. ¿Cómo lo soluciono?

Código:

Public Sub Definicion()



Dim respuestauno, respuestados As String

Const respuestauno = _
(InputBox("Escribe aquí tu respuesta"))

If respuestauno Like SI Or SI Or SI Or SI Then

MsgBox ("Respuesta correcta. Cambiando los nombres, si todos los edificios son de piedra y toda la piedra es rompible, entonces todos los edificios son rompibles")
GoTo 16
Else: MsgBox ("Respuesta incorrecta.")

End If

'-----------

Const respuestados = (InputBox("Si compro por 8 y vendo por 10, y más tarde vendo por 12 y compro por 14, ¿cuánto he ganado?"))

If respuestados = 4 Then

MsgBox ("Respuesta correcta. ¡Bien hecho!")
Close
Else:
If respuestados <> 4 Then
MsgBox ("Respuesta incorrecta.")
End If

'-----------

End Sub



Public Sub CommandButton1_Click()

GoSub Definicion

End Sub

Llama al procedimiento sin el GoSub, y después de eso, añade el End Sub que te falta.

Código

Public Sub CommandButton1_Click()
    Definicion
End Sub

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Fuen en 24 Octubre 2010, 13:48 pm