vb.net 排列组合算法想用vb.net写一个字典生成器，遇...

精选知识

以前写过一个类似的,实现 0～N 全排列算发的vb.net代码,用递归实现的,你可以参考一下：

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim result As String = ""

N = 6

ExePerm()

For i As Integer = 0 To UBound(TotalArray)

result += TotalArray(i).ToString & vbCrLf

Next

TextBox1.Text = result

End Sub

Private List() As Integer

Private N As Integer '城市数

Private Sub ExePerm()

ReDim List(N - 1)

For i As Integer = 0 To N - 1

List(i) = i

Next

Perm(List, 0, N - 1)

End Sub

Private TotalArray() As String '输出全排列结果

Private I_t As String = -1

Private Sub Perm(ByRef ListTar() As Integer, ByVal k As Integer, ByVal m As Integer)

Dim i As Integer

If k > m Then

I_t += 1

ReDim Preserve TotalArray(I_t)

For i = 0 To m

TotalArray(I_t) += (ListTar(i)).ToString

Next i

Else

For i = k To m

Swap(ListTar(k), ListTar(i))

Perm(ListTar, k + 1, m)

Swap(ListTar(k), ListTar(i))

Next i

End If

End Sub

Private Sub Swap(ByRef Num1 As String, ByRef Num2 As String)

Dim tmp As Integer

tmp = Num1 : Num1 = Num2 : Num2 = tmp

End Sub

End Class