配列要素数と同じ数のランダムな数値が代入された配列を作成する

Public Shared Function MakeRandomizedArray(ByVal length As Integer) As Integer()

    Dim i As Integer
    Dim j As Integer
    Dim rnd As New System.Random()
    Dim blnIsUsed As Boolean
    Dim intRandom As Integer
    Dim arr(length - 1) As Integer

    For i = 0 To length - 1

        Do

            intRandom = rnd.Next(0, length)

            blnIsUsed = False

            For j = 0 To i - 1

                If intRandom = arr(j) Then

                    blnIsUsed = True

                    Exit For

                End If

            Next j

        Loop While blnIsUsed

        arr(i) = intRandom

    Next i

    Return arr

End Function

public static int[] MakeRandomizedArray( int length )
{
    int iRandom;
    int[] arr = new int[length];
    bool bIsUsed;
    System.Random rnd = new System.Random();

    for ( int i = 0; i < length; i++ )
    {
        do
        {
            iRandom = rnd.Next( 0, length );

            bIsUsed = false;

            for ( int j = 0; j < i; j++ )
            {
                if ( iRandom == arr[j] )
                {
                    bIsUsed = true;
                    break;
                }
            }
        } while ( bIsUsed );

        arr[i] = iRandom;
    }

    return arr;
}