Visual Basic para Aplicaciones - Dias de la semana(aparentemente sencillo)

Life is soft - evento anual de software empresarial
   
Vista:

Dias de la semana(aparentemente sencillo)

Publicado por crispi (1 intervención) el 20/01/2009 18:08:07
Hola, escribo ésta nota para ver si pueden decirme qué es lo que falla en un programa tan sumamente sencillo como es éste:

Option Explicit
Dim dia, a As Integer
Private Sub Form_Load()
a = 0
dia = InputBox("Introduce el día de la semana", "Nombre del día")
GoTo Verificación

Verificación:
a = a + 1
If dia Mod a Then GoTo Ejecución Else If a >= 8 Then Print ("El número no es entero o es mayor que 7") Else GoTo Verificación
end:

Ejecución:
Select Case dia
Case 1
Print "Lunes"
Case 2
Print "Martes"
Case 3
Print "Miércoles"
Case 4
Print "Jueves"
Case 5
Print "Viernes"
Case 6
Print "Sábado"
Case 7
Print "Domingo"
Case Else
Print "El número no es válido"
End Select
End Sub



Se supone que el programa trabajará en Verificaciónhasta que ql resto de la división de día entre a sea 0 o hasta que a sea mayoe que 7, lo que quiere decir que el número introducido no es entero.
Pero no se por qué pasa completamente y cada vez que meto un número que no sea del 1 al 7 me sale el último print---->El número no es válido
aunque meta el número 50, que debería salir "El número no es entero o es mayor de 7"

Si alguien encuentra la respuesta, por favor, posteen.

Gracias por su atención.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:Dias de la semana(aparentemente sencillo)

Publicado por JuanC (431 intervenciones) el 21/01/2009 14:04:48
no sé cuál es el objetivo del código, pero creo que la verificación está de más
con el select case es suficiente para saber si el nº ingresado es o no correcto
y en caso de no serlo, podrías volver con un Goto a pedir nuevamente otro nº

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar