mira en BASIC existe un operador llamado MOD
ese operador lo que hace es dividir un numero entre X numero pero devuelve el resto un ejemplo seria asi
msgbox "que numero quieres ver?"
numero = text1.text
caca = text1.text mod 2
msgbox caca
y lo que hace es devolverte el resultado de la divicion por 2
y para saber si es impar o par haces esto
Private Sub Form_Load()
a = InputBox("numero:")
If a Mod 2 = 0 Then
MsgBox "el numero es par"
Else
MsgBox "el numero es impar"
End If
End Sub
Explicacion : lo que hace aqui es almacenar en a lo que escribes en un inputbox y despues
a mod 2 es Numero almacenado en a dividelo en 2 y devuelveme el resto en este caso es 0 , si sabes que en matematicas la propiedad de un numero entero es todo numero dividido en 2 que el resto sea 0 es entero a pues aqui se hace eso y despues condiciona si mod osea el resto de la divicion es 0 entonces el numero es entero si no es impar
saludos y espero que te sirva
Autor
En línea
