Significado de la programación Spc
Subcomando privado 1_Click()
Muestra el año como un número entero y y como un número entero
Año = Val(InputBox("El año a juzgar es: "))
Llamar a runnian(año, y)
Si y = 1, entonces
Imprimir cadena (año); SPC(2);
Otros
Imprimir cadena (año); SPC (2); "¡El año no es bisiesto!"
Terminará si...
Fin de unión
Año de subejecución común (n es un número entero, x es un número entero)
Salto difuso en forma de número entero
Si n módulo 400 = 0, Entonces
salto = 1
De lo contrario, si n Mod 4 = 0 y n Mod 100 lt, entonces 0
salto = 1; p>
Otros
Salto = 0
Terminará si...
x = Salto
Finalizar conector p>