Duda con Select Case

[Scratz]

Holas!

Estaba intentando sacar si un número es par o impar. Muy sencillo: si num mod 2 = 0 es Par, sinó es Impar.

Intento pasar esto a un select case:

Código [Seleccionar] Expandir

       
        a = Val(TextBox1.Text)

        Select Case a

            Case (a Mod 2 = 1)
               
                MsgBox("Impar")
           
            Case Else

                MsgBox("Par")

        End Select

Y esto ya no funciona =( ¿Por qué?

Gracias.
Salu2.

[cassiani]

 Para eso que queres, podes hacer algo tan sencillo como esto:

Código [Seleccionar] Expandir

MsgBox IIf((Val(Text1.Text) Mod 2 = 0), "Par", "Impar")

¡Espero que os sirva! Saludos. 

[Tughack]

El mod te da el resto de una division...

se haces esto: a Mod 2 = 1, hay muchos resultados k no tiene resto = 1...

Tienes k hacer Case (a Mod 2 = 0) entonces es par, else es impar...

De kualkier forma puedes simplificarlo....

Salu2

[Scratz]

Para eso que queres, podes hacer algo tan sencillo como esto:

Código [Seleccionar] Expandir

MsgBox IIf((Val(Text1.Text) Mod 2 = 0), "Par", "Impar")

¡Espero que os sirva! Saludos. 

Sirve, pero no para lo que yo quiero

se haces esto: a Mod 2 = 1, hay muchos resultados k no tiene resto = 1...

Cualquier número entero mod 2 devuelve un 1 o un 0.
El código no sirve, sigue haciendo siempre lo del Case Else.

Código [Seleccionar] Expandir


        a = Val(TextBox1.Text)

        Select Case a

            Case (a Mod 2 = 0)

                MsgBox("Par")

            Case Else

                MsgBox("Impar")

        End Select


Gracias a los dos. Por cierto, es VB.net, pero creo recordar que es exactamente igual en VB6.

[Tughack]

Cualquier número entero mod 2 devuelve un 1 o un 0.

Bueno no sabia k solo estavas trabajando con numeros enteros.

De todas formas tu code estaba mal...

Seria asi:

    a = Val(Text1.Text)

    Select Case a Mod 2
    Case 0
        MsgBox ("Par")
    Case Else
        MsgBox ("Impar")
    End Select

[vivachapas]

yo cuando recien empesaba a programar en uno de mis programas tenia q saber si un numero era par o impar y me mande esto jej miren

If (-1) ^ (numero) < 0 then
msgbox "Numero impar"
else
msgbox "numero par"
end if

creo q era asi jeje

alto ingenio ;P


modificado: me habia olvidado los parentesis xD

[Scratz]

Cualquier número entero mod 2 devuelve un 1 o un 0.

Bueno no sabia k solo estavas trabajando con numeros enteros.

De todas formas tu code estaba mal...

Seria asi:

    a = Val(Text1.Text)

    Select Case a Mod 2
    Case 0
        MsgBox ("Par")
    Case Else
        MsgBox ("Impar")
    End Select

Claro, estaba usando mal el Select Case. Gracias! Pero no me sirve para lo q yo quiero, así que tendré q usar If y muchos ElseIf. Gracias a todos.