Código de programación en minúsculas en lenguaje Vb

Subcomando privado 1_Click()

a = cuadro de entrada("")

Seleccione caso Asc(a)

Caso Asc("a ") a Asc("z ")

Imprimir caso (a)

Caso Asc("A ") a Asc("Z ")

Imprimir caso (a)

Finalizar selección

Finalizar conector

Segunda pregunta

Subcomando privado 1_Click()

a = Val(InputBox(" ")

Si (un Mod 4 = 0 y un Mod 100 lt; gt0) o Mod 400 = 0

Imprimir una copia de "Este es un año bisiesto"

Otro

Imprimir una copia de "No es un año bisiesto"

Terminará si...

Conector final