01/02/2005, 13:08
|
| | | Fecha de Ingreso: septiembre-2000 Ubicación: Frente a la compu
Mensajes: 660
Antigüedad: 23 años, 8 meses Puntos: 2 | |
hola
no entiendo bien lo que quieres hacer si lo que quieres es un codigo cualquiera sin ningún orden pues pudes generarlo de manera aleatoria:
por ejemplo para un codigo de 6 NUMEROS
Dim Codigo
For i = 1 to 6
CODIGO = CODIGO&CStr( Int((9 - 1 + 1) * Rnd + 1) )
Next
Text6.Text= CODIGO
Esto te genera un codigo aleatorio de 6 caracteres donde cada caracter puedes estar comprendido del 1 al 9
si no es eso lo que quieres puedes hacer un consecutivo |