主题：请教排列与组合

Dim a() As String = args(0)
Dim n As Integer = args(1)
Dim m As Integer = args(2)
Dim b() As String = args(3)
Dim Mm As Integer = args(4)

dim jh as new list(of string)

jh.clear

For i As Integer = n To m Step -1
    b(m-1) = i-1
    If m > 1 Then
        Functions.Execute("loop", a, i-1, m-1, b, Mm)
    Else
        Dim result As String = ""
        For j As Integer = Mm - 1 To 0 Step -1
            result &= a(b(j)) & "|"
        Next

    jh.add(result.Trim("|"))
        output.show(result.Trim("|"))
    End If
Next

return jh