Dim X() As Integer
Dim Counter() As Integer
Dim K As Integer
Dim N As Integer
Public Sub Soch()
Dim i As Integer
    
    N = CInt(InputBox("Введите N"))
    K = CInt(InputBox("Введите K"))
    
    K = K +  1 
    
    ReDim X(N)
    
    For i =  1  To N
        X(i) = i
    Next
    txtOut.Text = ""
    
    ReDim Counter(K)
    Counter( 0 ) =  1 
    
    SochGenerate  1 
End Sub


Private Sub SochGenerate(ByVal c As Integer)
Dim i As Integer
Dim j As Integer
Dim n1 As Integer
Dim Out() As Integer
Dim X1() As Integer
    
    If c = K Then
        ReDim Out(K)
        
        X1 = X
        
        For i =  1  To K -  1 
            n1 =  0 
            For j =  1  To N
                If X1(j) <>  0  Then n1 = n1 +  1 
                If n1 = Counter(i) Then
                    Out(i) = X1(j)
                    X1(j) =  0 
                    Exit For
                End If
            Next
            txtOut.Text = txtOut.Text & CStr(Out(i))
        Next
        txtOut.Text = txtOut.Text & vbCrLf
    Else
        For Counter(c) = Counter(c -  1 ) To N - c +  1 
            SochGenerate c +  1 
        Next
    End If
End Sub

Private Sub Form_Load()
    Soch
End Sub