Получить все последовательности длины N из чисел 1,2,...,M

[Simbad]

Приветствую всем!
Помогите, пожалуйста, решать этого задача с помощью VBAExcel.

Получить все последовательности длины N из чисел 1,2,...,M.
Всего таких последовательностей будет M^N.
Например: M=2, N=3, M^N=8
111
112
121
122
211
212
221
222

[Dophin]

а М всегда 3?

насчет М понял, что в итоге надо не понял(

[Simbad]

Я просто пример привел. M и N могут быть любой цифр

[doober]

Вам надо получить все перестановки,а не комбинации?

[doober]

rez -результат

 Dim M As Integer
    Dim N As Integer
    Dim X() As Integer
      Dim rez As String
     Sub PERESTANOVKA()
    Dim i As Long
    Dim j As Long
           
    M = CInt(InputBox("Введите M"))
    N = CInt(InputBox("Введите N"))
    ReDim X(N)
     
   rez = ""
     
    For i = 1 To N
        X(i) = 1
    Next

    For i = 1 To M ^ N
             For j = 1 To N
   rez = rez & CStr(X(j))
             Next
         
          rez = rez & vbCrLf
             NextS
    Next
     
    f = Split(rez, vbCrLf, -1)
   For i = 0 To UBound(f)
   Cells(i + 2, 1) = f(i)
   Next
   
    End Sub
     
    Private Sub NextS()
    Dim i As Long
     
    i = N
    Do While (i > 0) And (X(i) = M)
    X(i) = 1
    i = i - 1
    Loop
    If i > 0 Then X(i) = X(i) + 1
    End Sub

[Simbad]

Большое вам спасибо! Это то, что мне нужно.
Слава богу что ест такие как вы. Ещё раз вам спасибо за помощь!!!!

[Dophin]

круто. (ушел разбирать как работает)