Programación 680
Subtrabajo público 1()
Etiqueta x como un número entero
Semana = Val(InputBox("Ingrese x "))
Si x = 0 , Luego
Depurar. Imprima "Domingo"
Entonces ElseIf x = 1
Depurar. Imprima "lunes"
Luego, si no, x = 2
Depurar. Imprima "martes"
Luego, si no, x = 3
Depurar. Imprima "miércoles"
Entonces si no x = 4
Depurar. Imprima "jueves"
Luego, si x = 5
Depurar. Imprima "Viernes"
Entonces ElseIf x = 6
Depurar. Imprima "sábado"
Entonces, si no, x = -1
Depurar. Imprimir "programa de terminación"
Otro
Depurar. Imprimir "Su entrada es incorrecta"
Finalizar si...
Finalizar adaptación