Numeros pares e impares - Visual Basic

Agregamos un Textbox y un CommandButton
y agregamos el suguiente codigo:

Private Sub Command1_Click()
If Val(Text1.Text) Mod 2 Then
  MsgBox "impar"
Else
  MsgBox "par"
End If
End Sub

Para saber si un numero es par o impar se divide entre dos si es una division exacta
nos da un numero entero, si es impar no dara un numero con decimales entonces
utilizamos la funcion MOD que divide dos números y devuelve sólo el resto y
sabremos si tiene decimales o no.

Posted in: Visual Basic 6