Rutinas de nº aleatorios

[kkenen]

Yo lo que usaria seria lo siguiente:

Por ejemplo para generar numeros aleatorios entre 0 - 100 en VB.

Randomize Timer

Int (Rnd * 100) + 1

El Randomize Timer es para que no te cree siempre los mismos numeros aleatorios cada vez que ejecutas el programa, ya que se crea una variable que lo asocia con el tiempo. El Int, para que el numero generado sea un numero entero, y entre parentesis el Rnd para obtener el numero aleatorio, lo multiplicas * 100 y le sumas 1, para que nos lo cree entre el rango que deseamos. Y ya tenemos un numero aleatorio entre 0 y 100.

Por ejemplo, con un CommandButton de la siguiente forma, cada vez que pulsaras sobre el, te imprimiria por pantalla un numero diferente entre 0 y 100:

Private Sub Command1_Click()
Dim A As Integer
Form1.Show
Randomize Timer
A = Int(Rnd * 100) + 1
Print A
End Sub

Suerte, y espero que esto te haya servido de algo. Seguro que hay gente por aquí que sabe mucho mas que yo y que te será de mucha mas ayuda. Pero como a mi me ayudan cuando la necesito, pues a mi tambien me gusta ayudar con lo poco que sé (De Momento...Jeje).

Adios Colegui.