1、点击菜单栏上面的【开发工具】，【Visual Basic】。
3、在VBA代码框里面输入以下程序：Sub Zuhe()Dim i, j, k, l, m As LongDim a, b, c, d As Stringm = 0 媪青怍牙'将m的初始值设为0Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")For i = 1 To 12 '每个数值都有12次的选择机会 For j = 1 To 12 For k = 1 To 12 For l = 1 To 12 a = mysheet1.Cells(i, 1) '将第i个单元格里面的数值赋给a If j <> i Then '如果已经选择第i个单元格里面的数值，则其他的不能再选择了 b = mysheet1.Cells(j, 1) If k <> i And k <> j Then '如果已经选择第i、j个单元格里面的数值，则其他的不能再选择了 c = mysheet1.Cells(k, 1) If l <> i And l <> j And l <> k Then '如果已经选择第i、j、k个单元格里面的数值，则其他的不能再选择了 d = mysheet1.Cells(l, 1) m = m + 1 mysheet1.Cells(m, 2) = a & b & c & d '将选择出来的数值进行组合放到第2列 End If End If End If Next Next NextNextEnd Sub
6、程序运行完成之后，在Excel表格上面的第2列里面就能看到运算结果。组合的11880行与计算的组合数（C=12*11*10*9=11880）相符。
