excel:在1-30中,任选6个彼此不同的数进行组合,如何列出所有的组合如1,2,4,11,15,26,27,这样,由6个不大于30的数字组成,并且内部没有重复的数字组合应该有几十万个组合来着.怎么弄出这些数组?
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 07:37:11
![excel:在1-30中,任选6个彼此不同的数进行组合,如何列出所有的组合如1,2,4,11,15,26,27,这样,由6个不大于30的数字组成,并且内部没有重复的数字组合应该有几十万个组合来着.怎么弄出这些数组?](/uploads/image/z/14777096-32-6.jpg?t=excel%EF%BC%9A%E5%9C%A81-30%E4%B8%AD%2C%E4%BB%BB%E9%80%896%E4%B8%AA%E5%BD%BC%E6%AD%A4%E4%B8%8D%E5%90%8C%E7%9A%84%E6%95%B0%E8%BF%9B%E8%A1%8C%E7%BB%84%E5%90%88%2C%E5%A6%82%E4%BD%95%E5%88%97%E5%87%BA%E6%89%80%E6%9C%89%E7%9A%84%E7%BB%84%E5%90%88%E5%A6%821%2C2%2C4%2C11%2C15%2C26%2C27%2C%E8%BF%99%E6%A0%B7%2C%E7%94%B16%E4%B8%AA%E4%B8%8D%E5%A4%A7%E4%BA%8E30%E7%9A%84%E6%95%B0%E5%AD%97%E7%BB%84%E6%88%90%2C%E5%B9%B6%E4%B8%94%E5%86%85%E9%83%A8%E6%B2%A1%E6%9C%89%E9%87%8D%E5%A4%8D%E7%9A%84%E6%95%B0%E5%AD%97%E7%BB%84%E5%90%88%E5%BA%94%E8%AF%A5%E6%9C%89%E5%87%A0%E5%8D%81%E4%B8%87%E4%B8%AA%E7%BB%84%E5%90%88%E6%9D%A5%E7%9D%80.%E6%80%8E%E4%B9%88%E5%BC%84%E5%87%BA%E8%BF%99%E4%BA%9B%E6%95%B0%E7%BB%84%3F)
excel:在1-30中,任选6个彼此不同的数进行组合,如何列出所有的组合如1,2,4,11,15,26,27,这样,由6个不大于30的数字组成,并且内部没有重复的数字组合应该有几十万个组合来着.怎么弄出这些数组?
excel:在1-30中,任选6个彼此不同的数进行组合,如何列出所有的组合
如1,2,4,11,15,26,27,这样,由6个不大于30的数字组成,并且内部没有重复的数字组合
应该有几十万个组合来着.怎么弄出这些数组?
excel:在1-30中,任选6个彼此不同的数进行组合,如何列出所有的组合如1,2,4,11,15,26,27,这样,由6个不大于30的数字组成,并且内部没有重复的数字组合应该有几十万个组合来着.怎么弄出这些数组?
Sub 列出全任意30选6组合()
Application.ScreenUpdating = False
ww = 2
For m1 = 1 To 25
For m2 = m1 + 1 To 26
For m3 = m2 + 1 To 27
For m4 = m3 + 1 To 28
For m5 = m4 + 1 To 29
For m6 = m5 + 1 To 30
Cells(ww, 1).Value = m1
Cells(ww, 2).Value = m2
Cells(ww, 3).Value = m3
Cells(ww, 4).Value = m4
Cells(ww, 5).Value = m5
Cells(ww, 6).Value = m6
ww = ww + 1
Next
Next
Next
Next
Next
Next
Application.ScreenUpdating = True
End Sub
别忘了给分啊!