Перестановка элементов массива - VB

Формулировка задачи:

дано N-буквенные слова, состоящие из первых M букв русского алфавита. Например, при N =3 и М=4 программа должна вывести 64 слова: ААА, ААБ, ААВ, …, ГГВ, ГГГ и тд .как я понимаю здесь надо переставлять элементы массива,и переставлять так,чтобы они не повторялись.подскажите как

Решение задачи: «Перестановка элементов массива»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Dim N&, M&, i&, j&, k&, p&
 
Private Sub Form_Load()
Me.AutoRedraw = True
N = 3: M = 4
For i = 0 To M ^ N - 1
  k = j
  For p = 1 To N
    Print k Mod M;
    k = k \ M
  Next
  Print
  j = j + 1
Next
End Sub
                        

Оцени полезность:

8 голосов , оценка 4 из 5

Похожие ответы