Question

VBA求代码,在 9 十个不同数字中取3个不同数的升序组合

Answer 1

Private Sub CommandButton1_Click()

L = Len(Cells(1,1))

X = 1

B = 2

For IX = X To L - 2

Y = IX + 1

For IY = Y To L - 1

Z = IY + 1

For IZ = Z To L

Cells(1,B) = Mid(Cells(1,1),IX,1) & Mid(Cells(1,1),IY,1) & Mid(Cells(1,1),IZ,1)

B = B + 1

Next IZ

Next IY

Next IX

End Su