关于循环

Question

Public Sub AddDatau(ByVal sNumber As String)
    Dim t() As String
    Dim i As Integer, j As Integer, k As Integer    
    t = Split(sNumber, ",")
d = t(0) & t(1) & t(2)    For i = 1 To Len(d)
        For j = 1 To Len(d)
            For k = 1 To Len(d)
                 If Mid(t(0), i, 1) = Mid(t(0), j, 1) And Mid(t(1), i, 1) = Mid(t(2), k, 1) Then                Else
                    lstIn.AddItem Mid(d, i, 1) & Mid(d, j, 1) & Mid(d, k, 1)
                End If
            Next
        Next
    Next
End Sub现在这段代码输出的数据有 
t(0)里的数 & t(2)里的数 & t(2)里的数 
t(0)里的数 & t(0)里的数 & t(1)里的数
t(0)里的数 & t(1)里的数 & t(2)里的数
t(1)里的数 & t(2)里的数 & t(0)里的数
等等
现在不想要t(0)或t(1)或t(2)不能出现重复出现，要求结果只能出现
t(1)里的数 & t(2)里的数 & t(0)里的数这样的，或t(1)里的数 & t(0)里的数 & t(2)
如t(0)现在是1，t(1)现在是2，t(2)现在是3，那么现在的调运过程可能导致最后出现112，请问如何把这样的删除
不过如t(0)现在是1，t(1)现在是1，t(2)现在是3，那么就另当别论了，说白了就是
For i = 1 To Len(d)
        For j = 1 To Len(d)
            For k = 1 To Len(d)
这里的d现在是由t(0) & t(1) & t(2)组成的如果For i = 1 To Len(d)现在调用的是t(0)，那么for j 那行和for k这两行就不能有t(0)，并且j和k也不能重复
这个该如何改呢

Answer 1

For i = 1 To Len(d)
        For j = 1 To Len(d)
            For k = 1 To Len(d)
不能出现
For i = 1 To Len(t(0))
        For j = 1 To Len(t(0))
            For k = 1 To Len(t(1))
或
For i = 1 To Len(t(1))
        For j = 1 To Len(t(1))
            For k = 1 To Len(t(2))
或For i = 1 To Len(t(1))
        For j = 1 To Len(t(1))
            For k = 1 To Len(t(0))
等
只能出现
For i = 1 To Len(t(0))
        For j = 1 To Len(t(1))
            For k = 1 To Len(t(2))
或
For i = 1 To Len(t(0))
        For j = 1 To Len(t(2))
            For k = 1 To Len(t(1))
或
For i = 1 To Len(t(1))
        For j = 1 To Len(t(0))
            For k = 1 To Len(t(2))
或
For i = 1 To Len(t(1))
        For j = 1 To Len(t(2))
            For k = 1 To Len(t(0))
或For i = 1 To Len(t(2))
        For j = 1 To Len(t(1))
            For k = 1 To Len(t(0))
或
For i = 1 To Len(t(2))
        For j = 1 To Len(t(0))
            For k = 1 To Len(t(1))