Números aleatoreos
Hola, Quería saber como puedo hacer en VB un programita que me tire por ejemplo, 10 números al azar de entre 100 posibles y como hago para poder verlos.
Gracias.
Luciano
Gracias.
Luciano
2 Respuestas
Respuesta de adrianxxi
1
La función RND() te devuelve un numero aleatorio entre 0 y 1 (pe. 0.225688). si esto lo multiplicas por 100 y le extraes el entero tenés "22"
Pero esto te daría entre 0 y 99. Para que sea entre 1 y 100 hay que sumarle 1.
La instrucción completa seria:
x=Int(Rnd()*100)+1
y para verlos depende de donde queres mostrarlos. En el formulario sería:
for x = 1 to 100
Y=Int(Rnd()*100)+1
Print Y
Next x
Pero esto te daría entre 0 y 99. Para que sea entre 1 y 100 hay que sumarle 1.
La instrucción completa seria:
x=Int(Rnd()*100)+1
y para verlos depende de donde queres mostrarlos. En el formulario sería:
for x = 1 to 100
Y=Int(Rnd()*100)+1
Print Y
Next x
Respuesta de darm
Dim MiValor
Dim mis_numeros_aleatorios
mis_numeros_aleatorios = Array(445, 56, 77, 5, 33, 22, 344, 565, 77, 55, 44, 33, 22, 11, 22)
MiValor = Int((15 * Rnd) + 1) 'genera un numero aleatorio del 1 al 15
'te muestra unos numeros que tu has definido con anterioridad
MsgBox (mis_numeros_aleatorios(MiValor))
Este codigo quizas mejor, dimelo
Dim mis_numeros_aleatorios
mis_numeros_aleatorios = Array(445, 56, 77, 5, 33, 22, 344, 565, 77, 55, 44, 33, 22, 11, 22)
MiValor = Int((15 * Rnd) + 1) 'genera un numero aleatorio del 1 al 15
'te muestra unos numeros que tu has definido con anterioridad
MsgBox (mis_numeros_aleatorios(MiValor))
Este codigo quizas mejor, dimelo