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, en un ejercicio Desde....Siguiente se me pide una serie de resultados y hay uno en concreto que no estoy seguro de representarlo bien en pseudocódigo. Lo resumo,es un conteo de personas que entran en 8 horas en un supermercado. El pseudocódigo que he planteado es:


1.Inicio

  2.Desde i=10 hasta 18 Hacer   [ Abre a las 10h hasta las 18h]

      2.1 Leer personasEntran(i)

      2.2 totalpersonasdia=totalpersonasdia+personasEntran(i)

      2.3 Si personasEntran(i)=0 Entonces
           ningunapersona=ningunapersona+1
           Mostrar"En la hora",i,"no hubo ninguna persona"
         FinSi
   
      2.4 Si personasEntran(i)>horamayornumpersonas Entonces
           horamayornumpersonas=personasEntran(i)
         FinSi

    Siguiente

  3.Mostrar "Las horas que no entro ninguna persona fueron",ningunapersona,"y fueron",personasEntran(i)

4.Fin
La pregunta es..¿En el paso 3 estaria bien representado las horas en las que habrian 0 personas?ningunapersona seria la cantidad pero personasEntran(i) ¿representaria las horas exactas?ejemplo las 12,14 y 16 horas
Gracias

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

Gracias