250807.




Determinar si un numero es par o impar

Un script muy simple donde se utilizan dos funciones matemáticas de VBScript: abs() y mod(). Y usamos un condicional de tipo Case para evaluar el contenido de la variable que contiene nuestro número.

Muy simple y corto. Aqui va.
<%
'Damos un valor cualquiera a la variable num.
num = 6
select Case abs(num) mod 2
case 0: tipo = "par"
case 1: tipo = "impar"
end select

'Mostramos el numero diciendo si es par o impar.
Response.Write num & " es "& tipo
%>