用VBA宏語言在Excel表格中對報名參加比賽的十組進行排列組合。

Dim a, b, c, d, e, f, i

i = 1

For a = 1 To 10

For b = a + 1 To 10

For c = b + 1 To 10

For d = c + 1 To 10

Cells(i, 1) = a

Cells(i, 2) = b

Cells(i, 3) = c

Cells(i, 4) = d

i = i + 1

Next d

Next c

Next b

Next a

End Sub