Капец как всё просто
Function calc_k (n%)
For i = 1 To n%
end_str$ = end_str$ + "1"
Next
While str_t$ <> end_str$
str_t$ = Bin$(a_dec)
If Len(str_t$) > n% Then
str_t$ = Right (str_t$, n%)
ElseIf Len(str_t$) < n%
While Len(str_t$) < n%
str_t$ = "0" + str_t$
Wend
EndIf
a_dec = a_dec + 1
; ----- действие
Wend
End Function
Подставляем порядковые номера элементов в массивах вместо единичек и готово
Количество вариантов в итоге равно не (кол-во элементов)^2, а 2^(кол-во элементов) ...может пригодится кому...