求12个数选5个数所有组合 要求全部列出来。用word或excel!!答:Sub my12选5() Dim arr, brr() Dim i&, j&, k&, l&, m&, x& a = CLng(12 * 11 * 10 * 9) * 8 / (5 * 4 * 3 * 2 * 1) ReDim brr(1 To a, 1 To 5) InNum = InputBox("请输入12个数(以,隔开)", "输入", "1,2,3,4,5,6,7,8,9,10,11,12") If InNum =...