Visual Basic - Omitir Numeros en Rnd

Life is soft - evento anual de software empresarial
 
Vista:

Omitir Numeros en Rnd

Publicado por Jose Lab (34 intervenciones) el 15/07/2004 16:22:57
Como puedo omitir numeros dentro del mismo rango en la funcion Rnd.... por ejemplo que me genere un numero aleatorio entre 1 y 15, pero omitiendo en 12, o omitiendo 2 numeros,,,, el 12 y 14,
De antemano gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Omitir Numeros en Rnd

Publicado por miguel (1042 intervenciones) el 15/07/2004 17:40:31
Lo puedes hacer de esta manera si se omite el 12 y el 14
Do
myvalue = Int((15 * Rnd) + 1) ' Generate random value between 1 and 15.
Loop Until myvalue = 1 Or myvalue = 2 Or myvalue = 3 Or myvalue = 4 Or myvalue = 5 Or myvalue = 6 Or myvalue = 7 Or myvalue = 8 Or myvalue = 9 Or myvalue = 10 Or myvalue = 11 Or myvalue = 13 Or myvalue = 15
MsgBox CStr(myvalue)
En la instruccion Loop Until pones lo que realmente ocupas espero y te sriva saludos...!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Omitir Numeros en Rnd

Publicado por Jose Lab (34 intervenciones) el 15/07/2004 19:59:42
Gracias por la respuesta... me sirvio bastante.....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar