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
%>
|
|
