for next 數字的組合 (或是其他程式)

Question

1:輸入 6551123
2:先排列成 12356
3:用3個號碼為一組的所有排列組合
ex:
123
125
.
.
235
.
.
356
這是舉例.所以勿直接使用12356作答.
題目原意:將輸入的數字每組3個字作排列組合

Answer 1

a = inputbox("要取三~組合的數字")
ans = ""
For i = 1 To Len(a)
If InStr(ans, Mid(a, i, 1)) = 0 Then
ans = ans & Mid(a, i, 1)
End If
Next i

For i = 1 To Len(ans) - 1
For j = i + 1 To Len(ans)
If Mid(ans, i, 1) > Mid(ans, j, 1) Then
t = Mid(ans, i, 1)
Mid(ans, i, 1) = Mid(ans, j, 1)
Mid(ans, j, 1) = t
End If
Next j
Next i

For i = 1 To Len(ans) - 2
For j = i + 1 To Len(ans) - 1
For k = j + 1 To Len(ans)
Print Mid(ans, i, 1) & Mid(ans, j, 1) & Mid(ans, k, 1)
Next k
Next j
Next i