2024年6月2日发(作者：)

在中，你可以使用递归算法生成排列的组合。下面是一个简单的示例代

码，用于输入n个数，输出m个数的所有组合：

Module Module1

Sub Main()

' 输入随机n个数

Dim inputArray() As Integer = {1, 2, 3, 4}

' 输入m，表示要生成m个数的组合

Dim m As Integer = 3

' 用于存储生成的组合

Dim resultArray(m - 1) As Integer

' 调用递归函数生成组合

GenerateCombinations(inputArray, m, resultArray, 0, 0)

End Sub

Sub GenerateCombinations(inputArray() As Integer, m As Integer, resultArray() As Integer, currentI

ndex As Integer, startIndex As Integer)

' 如果已经选择了m个数，输出组合并返回

If currentIndex = m Then

PrintCombination(resultArray)

Return

End If

' 从startIndex开始选择数字

For i As Integer = startIndex To - 1

' 选择当前数字

resultArray(currentIndex) = inputArray(i)

' 递归调用，选择下一个数字

GenerateCombinations(inputArray, m, resultArray, currentIndex + 1, i + 1)

Next

End Sub

Sub PrintCombination(resultArray() As Integer)

' 输出组合

For Each num As Integer In resultArray

(num & " ")

Next

ine()

End Sub

End Module

这个例子中，

GenerateCombinations

是递归函数，它通过选择数字的方式生成所有可

能的组合。

PrintCombination

用于输出生成的每个组合。

请注意，这个示例是为了演示递归排列组合算法而设计的，并且输入数组是硬编码

的。在实际应用中，你可能需要根据你的需求动态输入n个数以及m的值。