7,763
社区成员
发帖
与我相关
我的任务
分享请教高手 排列组合问题
想通过VB6.0变成实现下面的算法：
描述如下：
有R、P、C三个字母和三个运算符-、//、*、需要实现
（1）先把 3个字母进行排列，得到几组不同的排列顺序
（2）再从三种运算符中任选两种插入到三个字母的中间（可以重复）。如
R-P//C；p-R-C；等等形式
请高手赐教！谢谢！
描述如下：
有R、P、C三个字母和三个运算符-、//、*、需要实现
（1）先把 3个字母进行排列，得到几组不同的排列顺序
（2）再从三种运算符中任选两种插入到三个字母的中间（可以重复）。如
R-P//C；p-R-C；等等形式
请高手赐教！谢谢！
...全文
请发表友善的回复…
发表回复
junki 2006-06-18
- 打赏
- 举报
如果要做到很灵活，还是真是比较复杂，
决定回家好好考虑。
决定回家好好考虑。
northwolves 2006-06-18
- 打赏
- 举报
Private Sub Command1_Click()
Dim X() As String, I As Integer, J As Integer, K As Integer, TEMP As String, TEMP1 As String, S() As String, N As Integer
X() = Split("R1P2C,R1C2P,P1C2R,P1R2C,C1R2P,C1P2R", ",")
For I = 0 To 5
TEMP = X(I)
For J = 1 To 3
TEMP1 = Replace(TEMP, "1", Array("-", "//", "*")(J - 1))
For K = 1 To 3
N = N + 1
ReDim Preserve S(1 To N)
S(N) = Replace(TEMP1, "2", Array("-", "//", "*")(K - 1))
Next
Next
Next
Debug.Print Join(S, vbCrLf)
Debug.Print "共 " & N & " 个！"
End Sub
Dim X() As String, I As Integer, J As Integer, K As Integer, TEMP As String, TEMP1 As String, S() As String, N As Integer
X() = Split("R1P2C,R1C2P,P1C2R,P1R2C,C1R2P,C1P2R", ",")
For I = 0 To 5
TEMP = X(I)
For J = 1 To 3
TEMP1 = Replace(TEMP, "1", Array("-", "//", "*")(J - 1))
For K = 1 To 3
N = N + 1
ReDim Preserve S(1 To N)
S(N) = Replace(TEMP1, "2", Array("-", "//", "*")(K - 1))
Next
Next
Next
Debug.Print Join(S, vbCrLf)
Debug.Print "共 " & N & " 个！"
End Sub
