Foro de elhacker.net

buenas mi amigos del foro.. necesito saber como creo numero aleatorios de un rango dado pero que esos numero se creen en paquetes de seis. ejempo del
1-10 todas la combinaciones asi

ejemplo 5-8-9-0-4-2-----1-2-5-8-9-7 y asi sucesivamente

si alguien me puede ayudar se lo agradeceria

números aleatorios usa esto:

 
Public Function NumeroAleatorio(MinNum As Long, MaxNum As Long) As Long
Dim Tmp                                 As Long
    If MaxNum < MinNum Then: Tmp = MaxNum: MaxNum = MinNum: MinNum = Tmp
    Randomize: NumeroAleatorio = (MinNum - MaxNum + 1) * Rnd + MaxNum
End Function
 
 

Para los paquetes de seis, sencillamente has un For next quese repita 6 veces

Infierno Lunar!¡.