Red de conocimiento informático - Computadora portátil - Programación 680

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