一个数组中有若干元素,用VB如何编程实现全排列?

Question

简单点，假如数组元素有3个，是1、2、3，用VB编程实现全排列输出为：
123、132、213、231、312、321，

Answer 1

Option Explicit

Private Sub Form_Load()

Dim i As Integer, j As Integer, k As Integer, strTemp$

For i = 1 To 3

For j = 1 To 3

For k = 1 To 3

If (i <> j And i <> k And j <> k) Then Debug.Print i & j & k

Next k

Next j

Next i

End Sub追问

很好。再则，这个能不能移植到Excel 的VBA中？比如说，已知的数组在A1：C1单元格中的数据，那么能否在其它单元格区域得到运行结果？

追答

不用追问了朋友。不好意思，我知道的就这么多。期待高手来回答你吧！！