Respuestas

2014-02-02T15:41:05+01:00
Entrada = Val(txt1.Text)
If entrada Mod 2 = 0 Then MsgBox "Par" Else MsgBox "Impar"