排列组合问题。

<%

'算法程序题：
'该公司笔试题就1个，要求在10分钟内作完。
'题目如下：用1、2、2、3、4、5这六个数字，用java写一个main函数，打印出所有不同的排列，
'如：512234、412345等，要求："4"不能在第三位，"3"与"5"不能相连

Dim i, i1, i2, i3, i4, i5, i6 '循环变量
Dim t1, t2, t3, t4, t5 '临时变量
Dim pre, cur '上一位，当前位
Dim num '生成的数字串
Dim appear(5) '判断某个数字是否出现过的数组 例：appear(1)的值为0表示1没有出现过,值为1表示1出现过

pre = 0 '初始化为一个不相关的数字
For i = 1 To 5
appear(i) = 0
Next

For i1 = 1 To 5
cur = i1
If Not(pre = 3 And cur = 5) And Not(pre = 5 And cur = 3) Then
pre = cur

For i2 = 1 To 5
t1 = pre '保护pre的值，防止在下面的操作中值被改变
cur = i2
If Not(pre = 3 And cur = 5) And Not(pre = 5 And cur = 3) Then
pre = cur

For i3 = 1 To 5
t2 = pre
cur = i3
If Not(pre = 3 And cur = 5) And Not(pre = 5 And cur = 3) Then
If cur <> 4 Then
pre = cur

For i4 = 1 To 5
t3 = pre
cur = i4
If Not(pre = 3 And cur = 5) And Not(pre = 5 And cur = 3) Then
pre = cur

For i5 = 1 To 5
t4 = pre
cur = i5
If Not(pre = 3 And cur = 5) And Not(pre = 5 And cur = 3) Then
pre = cur

For i6 = 1 To 5
t5 = pre
cur = i6
If Not(pre = 3 And cur = 5) And Not(pre = 5 And cur = 3) Then

appear(i1) = 1 '给出现过的数字打上标识
appear(i2) = 1
appear(i3) = 1
appear(i4) = 1
appear(i5) = 1
appear(i6) = 1

If appear(1) = 1 And appear(2) = 1 And appear(3) = 1 And appear(4) = 1 And appear(5) = 1 Then '组合成的结果中所有数字必须都出现过
num = i1 & i2 & i3 & i4 & i5 & i6
response.write num & "<br />"
num = ""
End If
For i = 1 To 5
appear(i) = 0
Next

End If
pre = t5
Next

End If
pre = t4
Next

End If
pre = t3
Next

End If
End If
pre = t2
Next

End If
pre = t1 '还原pre的值
Next

End If

pre = 0 '还原pre的值
Next

%>