急急急～～VB中实现排列组合的问题

来源：百度知道 编辑：UC知道 时间：2024/05/18 05:42:20
要求给出一个字符串能算出其中的任意N个字符的排列的可能性
还要求任意两种可能性不重复
并在Form中显示出来
比如：txt，2个字符一组
则结果为：tx,tt,xt,

要求有原代码的
老师要的急，大家来帮帮忙呀
分不是问题，看情况追加～

很巧～
我刚帮另一个网友研究过这个问题
他是要求每个组合里无重复字符的
把程序稍加修改就可以用到你这里了

程序中用到了text1（输入字符串）
text2（输入每字符的个数）
text3（输出显示）
text3要设置为多行显示，带滚动条的

Option Base 1
Dim SJNum As Double
Dim CF As Boolean
Dim ShuJu() As String
Dim OutStr As String
Dim I As Double
Dim ZhanStr() As String
Dim ZhanNum() As Double
Dim ZhanI() As Double
Dim ZhanOutStr() As String
Dim ZhiZhen As Double

Private Sub Command1_Click()
ReDim ShuJu(1)
ReDim ZhanStr(1)
ReDim ZhanNum(1)
ReDim ZhanI(1)
ReDim ZhanOutStr(1)
CF = False
SJNum = 0
ZhiZhen = 1
OutStr = ""
Text3.Text = ""

Dim ii As Double
Dim jj As Double
Dim NN As Double
Dim Str As String

If Len(Trim(Text1.Text)) <> 0 And IsNumeric(Text2.Text) And Len(Trim(Text1.Text)) >= Val(Text2.Text) Then

Str = ""