¿Cómo puedo saber si el valor de una variable es par o impar en un bucle for en visual basic?
Hola, esta es una pequeña urgencia, necesito saber como hago para saber si una variable, que yo le doy el valor, es par o impar, es decir, tengo un FOR, de o a 100 y necesito poner según sea par o impar mi variable, un valor u otro, ¿me explico?.
Bueno, te agradezco desde ya y espero respuesta.
Nico.
Bueno, te agradezco desde ya y espero respuesta.
Nico.
1 Respuesta
Respuesta de andresmaga
1
La solución para esto es la siguiente:
Dim i As Integer
For i = 0 To 100
If CInt(i / 2) = i / 2 Then
'par
'Muestra el valor en la ventana de inmediato
debug.print i
else
'impar
Next i
Esto lo que hace es comparar el valor de i / 2, con el valor redondeado de i/2; si da igual es par, sino impar.
Dim i As Integer
For i = 0 To 100
If CInt(i / 2) = i / 2 Then
'par
'Muestra el valor en la ventana de inmediato
debug.print i
else
'impar
Next i
Esto lo que hace es comparar el valor de i / 2, con el valor redondeado de i/2; si da igual es par, sino impar.
Funciona, el tema es que yo quiero hacer un formulario cuyo fondo se mueva, un estilo matrix, pero con los 1 y 0 moviéndose, ¿me explico?, bueno, si sabes de algo o como puedo llegar a hacer eso, te agradecería que me lo hagas saber.
Nico.
Nico.
Mmmm una opción sería:
Poner 2 textbox, y la propiedad multiline de los mismo en true
Después poner el siguiente código:
Dim i As Integer
Dim z As Integer
Text1.Text = ""
Text2.Text = ""
For i = 0 To 100
If CInt(i / 2) = i / 2 Then
'par
z = 1
Text1.Text = Text1.Text & z & vbCrLf
Else
'impar
z = 0
Text2.Text = Text2.Text & z & vbCrLf
End If
Next i
De esta manera te pondría los pares en el text1 y los impares en el text2; pero lo podrías hacer de la manera que gustes. Ahora que los 0 y 1 se desplazen hacia arriba sería un poco complicado; al menos no se me ocurre alguna solución fácil para hacerlo
Poner 2 textbox, y la propiedad multiline de los mismo en true
Después poner el siguiente código:
Dim i As Integer
Dim z As Integer
Text1.Text = ""
Text2.Text = ""
For i = 0 To 100
If CInt(i / 2) = i / 2 Then
'par
z = 1
Text1.Text = Text1.Text & z & vbCrLf
Else
'impar
z = 0
Text2.Text = Text2.Text & z & vbCrLf
End If
Next i
De esta manera te pondría los pares en el text1 y los impares en el text2; pero lo podrías hacer de la manera que gustes. Ahora que los 0 y 1 se desplazen hacia arriba sería un poco complicado; al menos no se me ocurre alguna solución fácil para hacerlo
