Foro de elhacker.net

randomize
T = Int((10 * Rnd) + 1)
 

Dim n As Integer
Dim a(9) As Integer
Dim m As Integer
Dim z As Integer
 
 
For z = 1 To 10 ' generar 10 numero aleatoreos
    Randomize
    n = Int((10 * Rnd) + 1) ' genero el numero aleatoreo = n
 
    For m = 0 To 9
        If a(m) <> n Then a(z - 1) = n
    Next
Next

Option Explicit
 
Public Sub Form_Load()
 
Dim n As Integer
Dim a(9) As Integer
Dim m As Integer
Dim i As Integer
 
 
For i = 0 To 9
 
Do
Randomize
 
m = Int((Rnd * 10) + 1)
 
Loop While (Existe(m, a()))
 
a(i) = m
 
Next i
 
For i = 0 To 9
 
MsgBox a(i)
 
Next
 
End Sub
 
 
 
Function Existe(m As Integer, a() As Integer) As Boolean
Dim num
 
For Each num In a()
If (m = num) Then Existe = True
Next
 
End Function
 
 

NumerosAleatorios (Numero Inicio, Numero Final, Array de valores a no considerar) {
MatrixRangos() = Realizar una búsqueda de valores para verificar si alguno de los numeros del array estan entre el valor de Inicio o el valor del Final: (un For Next bastara) , y generamos cortes de array's por ejemplo (  Inicio=0 final=10 array={5,8}  este paso genera 3 array que son:  {0,4},{6,7},{9,10} )
iIndice = Generamos un numero aleatorio desde Lbound(MatrixRangos()) hasta Ubound(MatrixRangos())
Retornamos el numero que se genera un numero aleatorio según los rangos que indique MatrixRangos( iIndice )(0) y MatrixRangos( iIndice )(1)
}

 
Function Existe(m As Integer, a() As Integer) As Boolean
Dim num 
For Each num In a()
If (m = num) Then Existe = True: exit for ' // no tiene caso seguir en el for Each si ya se encontro.
Next
End Function
 
 

Dim A(9) As Long
Dim X As Long
Dim Y As Long
    Randomize
    For X = 0 To 9
        A(X) = Int(Rnd() * 10) + 1
        For Y = 0 To 9
            If A(X) = A(Y) And Y <> X Then X = X - 1: Exit For
        Next
    Next