Rnd( ) - Part 3

Si necesitamos que el número aleatorio esté comprendido en un intervalo de números enteros, utilizaremos la fórmula que vemos en el Código fuente 182 para generarlo.

Int((LímiteSuperior - LímiteInferior + 1) * Rnd() + LímiteInferior)

Código fuente 182

El ejemplo del Código fuente 183 crea números aleatorios comprendidos entre el intervalo de los números 7 y 12.

Dim Contador As Integer

Dim Aleatorio As Single

Randomize()

For Contador = 1 To 10

Aleatorio = Int((12 - 7 + 1) * Rnd() + 7)

Console.WriteLine("Número generado: {0}", Aleatorio)

Next

Console.ReadLine()

Código fuente 183