Dim k As Integer
For i = 0 To UBound(Structure, 1)
If Structure(i, 0) = 1 Then
sp(k) = i
k = k + 1
For j = 0 To UBound(Structure, 1)
If Structure(j, 0) = 2 And Structure(i, 1) = Structure(j, 2) Then
sp(k) = j
k = k + 1
For n = 0 To UBound(Structure, 1)
If Structure(n, 0) = 3 And Structure(j, 1) = Structure(n, 2) Then
sp(k) = n
k = k + 1
For m = 0 To UBound(Structure, 1)
If Structure(m, 0) = 4 And Structure(n, 1) = Structure(m, 2) Then
sp(k) = m
k = k + 1
For b = 0 To UBound(Structure, 1)
If Structure(b, 0) = 5 And Structure(m, 1) = Structure(b, 2) Then
sp(k) = b
k = k + 1
For v = 0 To UBound(Structure, 1)
If Structure(v, 0) = 6 And Structure(b, 1) = Structure(v, 2) Then
sp(k) = v
k = k + 1
For c = 0 To UBound(Structure, 1)
If Structure(c, 0) = 7 And Structure(v, 1) = Structure(c, 2) Then
sp(k) = c
k = k + 1
For x = 0 To UBound(Structure, 1)
If Structure(x, 0) = 8 And Structure(c, 1) = Structure(x, 2) Then
sp(k) = x
k = k + 1
For Z = 0 To UBound(Structure, 1)
If Structure(Z, 0) = 9 And Structure(x, 1) = Structure(Z, 2) Then
sp(k) = Z
k = k + 1
For p = 0 To UBound(Structure, 1)
If Structure(p, 0) = 10 And Structure(Z, 1) = Structure(p, 2) Then
sp(k) = p
k = k + 1
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
For i = 0 To UBound(Structure, 1)
If Structure(i, 0) = 1 Then
sp(k) = i
k = k + 1
For j = 0 To UBound(Structure, 1)
If Structure(j, 0) = 2 And Structure(i, 1) = Structure(j, 2) Then
sp(k) = j
k = k + 1
For n = 0 To UBound(Structure, 1)
If Structure(n, 0) = 3 And Structure(j, 1) = Structure(n, 2) Then
sp(k) = n
k = k + 1
For m = 0 To UBound(Structure, 1)
If Structure(m, 0) = 4 And Structure(n, 1) = Structure(m, 2) Then
sp(k) = m
k = k + 1
For b = 0 To UBound(Structure, 1)
If Structure(b, 0) = 5 And Structure(m, 1) = Structure(b, 2) Then
sp(k) = b
k = k + 1
For v = 0 To UBound(Structure, 1)
If Structure(v, 0) = 6 And Structure(b, 1) = Structure(v, 2) Then
sp(k) = v
k = k + 1
For c = 0 To UBound(Structure, 1)
If Structure(c, 0) = 7 And Structure(v, 1) = Structure(c, 2) Then
sp(k) = c
k = k + 1
For x = 0 To UBound(Structure, 1)
If Structure(x, 0) = 8 And Structure(c, 1) = Structure(x, 2) Then
sp(k) = x
k = k + 1
For Z = 0 To UBound(Structure, 1)
If Structure(Z, 0) = 9 And Structure(x, 1) = Structure(Z, 2) Then
sp(k) = Z
k = k + 1
For p = 0 To UBound(Structure, 1)
If Structure(p, 0) = 10 And Structure(Z, 1) = Structure(p, 2) Then
sp(k) = p
k = k + 1
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货