Mensajes

Aqui os mando una solucion muy sencilla para la generacion de numeros aleatorios q funciona perfectamente. La funcion randomize sirve para inicializar el generador sino os hara siempre la misma cadena de nºs aleatorios. Despues simplemete es la siguiente sintaxis:
           num_aleatorio=((lim_superior-lim_inferior)*rnd)
           
Ejemplo de num aleatorio del 1 al 10:

   

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim num As Integer
    Math.Randomize
    num = ((10 - 0) * Rnd)
    Text1.Text = num
End Sub

ASI DE SENCILLO NO OS KOMAIS MAS EL kOKO!!
bueno espero q os sirva de ayuda.