crear numero aleatorios

[bikelly]

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

[BlackZeroX]

números aleatorios usa esto:

Código (vb) [Seleccionar] Expandir



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!¡.