Foros aprenderaprogramar.com
Didáctica y divulgación de la programación

Hola en un ejercicio se me pide los siguiente: establecer un
valor de variable alfanumérica “Albert Einstein” como dato inicial. Mediante un bucle
Mientras…Hacer mostrar un menú “1. Intentar averiguar el nombre secreto 2. Ver
pista 3. Salir del programa. Si se elige la opción 1 el usuario debe tener opción a
introducir un nombre, y si coincide con el nombre secreto se muestra el mensaje “Has
acertado” y el programa debe terminar. Si el usuario falla se muestra el mensaje “Has
fallado” y se vuelve a mostrar el menú. Si el usuario elije la opción 2 se muestra la pista
“Es el físico más influyente del siglo XX” y se vuelve al menú. Si el usuario elije la
opción 3 se sale del programa.

Con la instruccion Salir Mientras no consigo volver al menu de inicio pero si con la Ir a
¿Es correcto o se puede con la Salir Mientras? Ahi va el codigo,dejo exit do como lo tenia aunque no valga


Option Explicit

Dim Menu As Integer
Dim Nombresecreto As String
Dim Respuesta As String

Private Sub Form_Load()
Nombresecreto = "Albert Einstein"

1
Menu = InputBox("1.-Intentar averiguar el nombre secreto" & vbCrLf & "2.-Ver pista" _
& vbCrLf & "3.-Salir del programa", "Elegir opcion")
Do While Menu <= 3 Or Menu >= 1
 If Menu = 1 Then
      Respuesta = InputBox("Introduzca nombre secreto")
       If Respuesta = Nombresecreto Then
         MsgBox ("Has acertado")
         End
       Else
         MsgBox ("Has fallado")
       GoTo 1
       Exit Do
         
       End If
 End If
 If Menu = 2 Then
         MsgBox ("Es el fisico mas influyente del siglo XX")
         GoTo 1
         Exit Do
 End If
 If Menu = 3 Then
         MsgBox ("Gracias por utilizar este programa")
         End
 End If
 Loop
 End Sub


Hola ¿el resultado de una variable con números y símbolo matemático se considera alfanumérica?

Gracias