呃 比较笨 不好意思 不过改成这样好像可以用了 就是不知道结果对不对
Dim arr As String() = e.Form.Controls("TextBox1").Text.split(",")
'求排列
Dim lst_Permutation As List(Of String()) = PermutationAndCombination(Of String).GetPermutation(arr, 5)
'求组合
Dim lst_Combination As List(Of String()) = PermutationAndCombination(Of String).GetCombination(arr, 5)
Dim s1 As String = ""
For Each ary As String() In lst_Permutation
s1 &= ary(0) & ary(1) & ary(2) & ary(3) & ary(4) & vbcrlf
Next
e.Form.Controls("TextBox2").Text = s1
Dim s2 As String = ""
For Each ary As String() In lst_Combination
s2 &= ary(0) & ary(1) & ary(2) & ary(3) & ary(4) & vbcrlf
Next
e.Form.Controls("TextBox3").Text = s2
加好友 
发短信
Post By：2016/3/26 14:14:00 [显示全部帖子]
此主题相关图片如下：1234.png