作业帮 > 综合 > 作业

如何用EXCEL将"1、2、3、4、5、6"这六个数的所有组合排列出来?

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/25 09:15:24
如何用EXCEL将"1、2、3、4、5、6"这六个数的所有组合排列出来?
按ALT+F11打开VBA编辑器,插入一个模块,把如下代码放入,把光标停在代码中间,按F5运行.
Public Sub lwy()
For a = 1 To 6
For b = 1 To 6
For c = 1 To 6
For d = 1 To 6
For e = 1 To 6
For f = 1 To 6
If a b And a c And a d And a e And a f _
And b c And b d And b e And b f _
And c d And c e And c f _
And d e And d f _
And e f Then
n = n + 1
Cells(n,1) = a:Cells(n,2) = b:Cells(n,3) = c:_
Cells(n,4) = d:Cells(n,5) = e:Cells(n,6) = f
End If
Next
Next
Next
Next
Next
Next
End Su