vb determina si el año de entrada es bisiesto.

Dim y As Long, _

m As Long

Dim b As Boolean

Me.Cls

b = False

y = Val(InputBox ("Año", "Ingrese"))

m = Val(InputBox ("Mes", " Por favor ingrese"))

Si y Mod 4 = 0 O y Mod 400 = 0 Entonces

Imprima "Año:"； y； "¡Es un año bisiesto!"

b = False

y = Val(InputBox ("Año", "Ingrese"))

m = Val(InputBox ("Mes", "Ingrese) "))

Si y Mod 4 = 0 O y Mod 400 = 0 Entonces

Imprime "Año: "; y; " ¡Es un año bisiesto!

b = Verdadero

De lo contrario

Imprimir "Año:"; "¡No es un año bisiesto! "

b = Falso

Fin