Par o Impar

Par, no es impar

Interfaz

Programación

Private Sub Command1_Click()

   Dim N As Long

   N = Text1

    If N / 2 = CLng(N / 2) Then MsgBox "ES PAR" Else MsgBox "ES IMPAR"

End Sub

Home | VB |