Const Категорий As Long =  16    ' количество категорий
Const Сложность As Long =  5     ' количество уровней сложности
Const Анкет As Long =  20        ' количество анкет
Const Анкета As Long =  10       ' вопросов в анкете
' исходный массив вопросов
Dim Вопросы( 1  To Категорий,  1  To Сложность) As String
' конечный массив анкет
Dim Анкеты( 1  To Анкет,  1  To Анкета) As String
' переменные
Dim А As Long, В As Long, К As Long, С As Long, Н As Long
Dim Шаг_категорий As Single
Dim Шаг_сложности As Single
Dim Сложности( 1  To Анкета) As Boolean

    ' заполняем исходный массив
    For К =  1  To Категорий
        For С =  1  To Сложность
            Вопросы(К, С) = "Категория " & CStr(К) & " / Сложность " & CStr(С)
        Next С
    Next К

    ' предварительные расчеты
    Шаг_категорий = (Категорий -  1 ) / Анкета
    Шаг_сложности = (Сложность -  1 ) / (Анкета -  1 )
    ' перебираем анкеты
    For А =  1  To Анкет
        ' сброс массива использований сложности
        Erase Сложности
        ' перебираем вопросы анкеты
        For В =  1  To Анкета
            ' случайная сложность
            Н =  1  + Round((Анкета -  1 ) * Rnd)
            Do While Сложности(Н) = True
                If Н < Анкета Then Н = Н +  1  Else Н =  1 
            Loop
            ' расчет сложности
            С =  1  + Round(Шаг_сложности * (Н -  1 ))
            ' метим использованную сложность
            Сложности(Н) = True
            ' расчет категории
            К =  1  + Round(Шаг_категорий * (В - Rnd))
            ' копируем вопрос в анкету
            Анкеты(А, В) = Вопросы(К, С)
        Next В
    Next А