EXCEL 数字的排列组合

Sub a() Dim arr(1 To 3), brr(1 To 24) arr(1) = 1: arr(2) = 5: arr(3) = 9 n = 1 For i = 1 To 3 For j = 1 To 3 For k = 1 To 3 If Not (arr(i) = arr(j) And arr(i) = arr(k)) Then brr(n) = arr(i) & arr(j) & arr(k) n = n + 1 End If Next Next Next MsgBox Join(brr, " ")End Sub