Par, no es impar
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 |