Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Private Function ParImpar(Numero As Integer) Resultado = Numero / 2 If Resultado Like "*.*" Then ParImpar = "Es ImPar" Else ParImpar = "Es Par" End If End Function
Private Sub Command1_Click() MsgBox ParImpar(Val(Text1)) End Sub
Valora esta respuesta
0
Comentar
RE:par o impar
Publicado por Juan_K (1 intervención) el 29/06/2005 22:50:30
O usan do Mod ..... if (Numero Mod 2) then impar Else PAR End If
Valora esta respuesta
0
Comentar
RE:par o impar
Publicado por RICAURTE (1 intervención) el 29/06/2005 22:56:37