Visual Basic - Problema con la funcion Rnd & Int

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Alonso

Problema con la funcion Rnd & Int

Publicado por Alonso (1 intervención) el 10/02/2014 06:53:22
Hola amigos tengo un problema, soy nuevo en esto de desarrollo, y pues queria ver si me ayudaban con este problema:

"Crea una función que genere números enteros aleatorios en el rango de 66 a 165"

y pues antes el maestro habia puesto esto: "Usando las funciones anteriores (Int y Rnd) genere un numero random que este en el rango de uno al diez, es decir, que de un numero cualquiera de uno al diez."

R: Int(Rnd(1) *10) +1

y no se si "Int(Rnd(1) *165) +66" sea la respuesta del problema. Ayudenme por fa!
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

Problema con la funcion Rnd & Int

Publicado por Juan Gilberto (278 intervenciones) el 10/02/2014 18:18:20
1
2
3
4
 ' Genera un valor aleatorio entre 66 y 165.
Dim MiValor as Integer
Randomize
MiValor = Int ( ( 165 * Rnd ) + 66 )
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

Problema con la funcion Rnd & Int

Publicado por pedro luis (56 intervenciones) el 10/02/2014 19:39:16
La función Rnd devuelve un valor menor que 1 pero mayor o igual que cero.
Por lo tanto puede dar valores proximos y menores a 165 que al sumarles 66 se nos salen del rango, creo que una solucion seria
Si Int(rnd*166) es mayor o igual a 66 muestralo en caso contrario ignora.
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

Problema con la funcion Rnd & Int

Publicado por Christian (666 intervenciones) el 11/02/2014 03:14:30
Randomize
aleatorio = CLng((66 - 165) * Rnd + 165)
Debug.Print aleatorio
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