Usamos dos condicionales if, para gestionar los valores mayores y menores que los deseados.
El código de hoy es el siguiente:
Option Explicit
Sub condicional()
'Declaramos una variable numerica
Dim dia As Integer
If (dia = 1) Then MsgBox ("lunes")
If (dia = 2) Then MsgBox ("martes")
If (dia = 3) Then MsgBox ("miercoles")
If (dia = 4) Then MsgBox ("jueves")
If (dia = 5) Then MsgBox ("viernes")
If (dia = 6) Then MsgBox ("sabado")
If (dia = 7) Then MsgBox ("domingo")
If (dia < 1) Then MsgBox ("Error, has introducido un error demasiado pequeño")
If (dia > 7) Then MsgBox ("Error, has introducido un error demasiado grande")
End Sub
En el primero controlamos los valores menores que uno.
En el segundo los valores mayores que siete.
No hay comentarios:
Publicar un comentario