早教吧作业答案频道 -->其他-->
EXCEL表格制作:把0,1,2,3,4,5,6,7,8,9一共10数分别组成7位不重复的数,这个重复的意思是指:例子:1234567和1234576和7654123都属于重复。这7位不管他得数字在那个位置,只要一样就是重复
题目详情
EXCEL表格制作:把0,1,2,3,4,5,6,7,8,9 一共10数分别组成7位不重复的数,这个重复的意思是指:
例子:1234567和1234576和7654123都属于重复。这7位不管他得数字在那个位置,只要一样就是重复
例子:1234567和1234576和7654123都属于重复。这7位不管他得数字在那个位置,只要一样就是重复
▼优质解答
答案和解析
用VBA可以解决,比如数据储存与A列到G列:
Sub dadsa ()
Dim a As Byte:Dim b As Byte
Dim c As Byte:Dim d As Byte
Dim e As Byte: Dim f As Byte
Dim g As Byte:Dim n as Integer
For a=0 to 3
For b=a+1 to 4
For c=b+1 to 5
For d=c+1 to 6
For e=d+1 to 7
For f=e+1 to 8
For g=f+1 to 9
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
Cells(n,7)=g
Next
Next
Next
Next
Next
Next
Next
End Sub
这个程序得出的结果是:
0 1 2 3 4 5 6
0 1 2 3 4 5 7
0 1 2 3 4 5 8
0 1 2 3 4 5 9
1 2 3 4 5 6 7
1 2 3 4 5 6 8
1 2 3 4 5 6 9
2 3 4 5 6 7 8
2 3 4 5 6 7 9
3 4 5 6 7 8 9
这是按升序排列的,如果你要混乱顺序的话,原理一样,将a-g7个数编入一个数组,随机填入即可。
Sub dadsa ()
Dim a As Byte:Dim b As Byte
Dim c As Byte:Dim d As Byte
Dim e As Byte: Dim f As Byte
Dim g As Byte:Dim n as Integer
For a=0 to 3
For b=a+1 to 4
For c=b+1 to 5
For d=c+1 to 6
For e=d+1 to 7
For f=e+1 to 8
For g=f+1 to 9
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
Cells(n,7)=g
Next
Next
Next
Next
Next
Next
Next
End Sub
这个程序得出的结果是:
0 1 2 3 4 5 6
0 1 2 3 4 5 7
0 1 2 3 4 5 8
0 1 2 3 4 5 9
1 2 3 4 5 6 7
1 2 3 4 5 6 8
1 2 3 4 5 6 9
2 3 4 5 6 7 8
2 3 4 5 6 7 9
3 4 5 6 7 8 9
这是按升序排列的,如果你要混乱顺序的话,原理一样,将a-g7个数编入一个数组,随机填入即可。
看了EXCEL表格制作:把0,1,...的网友还看了以下:
1,一件工作,甲5小时完成了4分之1,乙6小时完成了剩下的一半,余下的部由甲,乙合作.还需要多少时 2020-05-05 …
设计不同装置制取二氧化碳气体(填编号)设计3中发案.1.注射器2破试管3.锥形瓶4.平底烧瓶5.烧 2020-05-14 …
excel 区域内数字统计如何统计下面这组数据:A B C D E F G H I1 6 9 12 2020-05-16 …
在下面算是中填上括号使算式成立!1+2x3-4/5=11x2+3-4/5/6=11+2x3/4+5 2020-05-21 …
A.{1,2,3,4,5,6,7}B.{1,2,3,4,4,5,6,7,7,7}C.{1,2,3,4 2020-05-26 …
一个水池装有编号为1,2,3,4,5的5个进水管,放满一池水.如果同时开放1,2,3号水管,7.5 2020-06-23 …
某文化用品商店8月份的营业额是4.5万元,9月份的营业额是7.8万元.9月份的营业额比8月份增长了 2020-07-14 …
有听说做试管7万元90%成功率吗?近来听人说东莞石龙人民医院新开了项目可以做试管婴儿,要7万元有9 2020-07-14 …
2+3=52+3+4=92+3+4+5=142+3+4+5+6=202+3+4+5+6+7=272 2020-07-18 …
求沟槽挖深:DN700外径850自然地面标高7.705管中心标高4.11管底标高3.698砂垫层0 2020-07-31 …