Make your own free website on Tripod.com

 

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 |