14/03/2005, 07:36
|
 | | | Fecha de Ingreso: marzo-2003
Mensajes: 79
Antigüedad: 22 años, 1 mes Puntos: 0 | |
| Hola ToRu, lo que se me ocurre para solucionar el problema que posees es utilizar dos números Random, uno entre el 0 y el número mayor (positivo y negativo) y otro entre 1 y -1 y luego los multiplicaría.
El código sería algo así, aunque no me acuerdo ya mucho de VB:
dim Num, Aux
Num = Int(Rnd * numero maximo)
Aux = Int(Rnd * 2) - 1
if Aux = 0 then Aux = 1 'para evitar multiplicar por cero
Num = Num * Aux
Espero que te sirva de algo
Mucha Suerte!!! |