Consulta con este algoritmo

[Ever Cerna]

Consulta muchachos, quisas sea uno de esos algoritmos faciles que dejan x alli no logro que me salga esta pregunta:

"Digite un numero que muestre uno de los sgtes msjs... par positivo , par negativo... impar positivo, impar negativo...según sea el caso"

Lo clasico usnado MOD es lo unico que logre hacer haber si me hechan una manito con esto

Private Sub Command1_Click()
    Dim Numero As Integer

    Numero = Val (Text1.text)

    If Numero Mod 2 = 0 Then
        MsgBox "Es Numero Par", 32, "error"
    Else
        MsgBox "Es Numero Impar", 32, "error"
    End If
End Sub

Gracias saludos

[LeandroA]

Creo que esto seria lo mas clásico

Código: (vb) [Seleccionar]

Option Explicit

Private Sub Command1_Click()
    Dim Numero As Integer

    Numero = Val(Text1.Text)

    If Numero Mod 2 Then
        If Numero < 0 Then
            MsgBox "Es Numero Impar Negativo"
        Else
            MsgBox "Es Numero Impar Positivo"
        End If
    Else
        If Numero < 0 Then
            MsgBox "Es Numero Par Negativo"
        Else
            MsgBox "Es Numero Par Positivo"
        End If
    End If
End Sub

y después hay otra de operación binaria

Código: (vb) [Seleccionar]

Option Explicit

Private Sub Command1_Click()
    Dim Numero As Integer

    Numero = Val(Text1.Text)

    If (Numero And 1) Then
        If Numero And &H80000000 Then
            MsgBox "Es Numero Impar Negativo"
        Else
            MsgBox "Es Numero Impar Positivo"
        End If
    Else
        If Numero And &H80000000 Then
            MsgBox "Es Numero Par Negativo"
        Else
            MsgBox "Es Numero Par Positivo"
        End If
    End If
End Sub