Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Силblч
на массивчеге, но выводит результат в строку

Public Sub xvar(num&, k&, l&, Optional c = Null) Dim i&, a&, s$ Static j& If num = 0 Then     a = 0: For i = 0 To l: a = a + Nz(c(i), 0): Next i     c(j) = IIf(l - a > 0, l - a, c(j))     s = ""     For i = 0 To l: s = s & " " & c(i): Next i     Debug.Print s     j = 0: ReDim c(0 To l) Else     If j = 0 Then ReDim c(0 To l)     For i = 1 To k         a = num - i         If a >= 0 Then             c(j) = i: j = j + 1             xvar a, i, l, c         End If     Next i End If End Sub