Código: Seleccionar todo

class randomv2{
    
    static int u=0;
    static int longitud = 0;
    static String contenedor = "";
    
    private static String[] Primero(){
        int[] numerosAleatorios = new int[5];
        int j=0, k=2;
        String aux="0";
        for(int i=0;i<5;i++){
            numerosAleatorios[i] = (int)(Math.random()*k)+j;
            j++;j++;
        }
        aux=String.valueOf(numerosAleatorios[0]+""+numerosAleatorios[1]+""+numerosAleatorios[2]+""+numerosAleatorios[3]+""+numerosAleatorios[4]);
        Segundo("",aux);
        
        String[] items = contenedor.split(" ");
        longitud = items.length-1;
        return items;
    }
    private static void Segundo(String cad_I, String cad_D){
        if (cad_D.length() == 1)
        {
            contenedor+=(cad_I + cad_D + " ");
            return;
        }
        for (int i=0; i < cad_D.length(); i++)
        Segundo(cad_I + cad_D.substring(i,i+1), cad_D.replace(cad_D.substring(i, i+1),""));
        return;
    } 
    static void imprimir(){
        String[] randomDiferentes= Primero();
        int var = (int)(Math.random()*longitud)+1;
        
        System.out.println(randomDiferentes[var]);
    }
}

Código: Seleccionar todo

Public Function RandomNumber() As Long
    Dim sHelp As String
    Dim sNumber As String
    Dim sRandomNumber As String
    Dim iPos As Integer
    Dim i As Integer
    
    sHelp = "123456789"
    
    Randomize Timer
    
    iPos = Rnd * (Len(sHelp) - 1) + 1
    
    sRandomNumber = Mid$(sHelp, iPos, 1)
    
    Mid$(sHelp, iPos, 1) = Chr$(48)
    
    For i = 2 To 5
        
        iPos = Rnd * (Len(sHelp) - 1) + 1
        
        sNumber = Mid$(sHelp, iPos, 1)
        
        sHelp = Replace$(sHelp, sNumber, vbNullString)
        
        sRandomNumber = sRandomNumber & sNumber
    Next
    
    RandomNumber = CLng(sRandomNumber)
    
End Function