EXCEL表格制作:把0,1,2,3,4,5,6,7,8,9 一共10数分别组成7位不重复的数,这个重复的意思是指:
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/11/08 19:48:52
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,2,3,4,5,6,7,8,9 一共10数分别组成7位不重复的数
将自然数1,2,3,4,5,6,7,8,9依次重复写下去组成一个百位数,这个数是3的倍数吗?
0、1、2、3、4、5、6、7、8、9十个数字,从中任取三个数组成不重复的三位数,问共可组成几个这样的三位数
将自然数1,2,3,4,5,6,7,8,9依次重复写下去组成一个百位数,这个数被11除的余数是多少?
由0,2,5,6,7,8组成无重复数字的数:(1)4位数有多少个?(2)4位奇数有多少个?
把自然数1、2、3、4、5、6、7、8、9依次重复写下去组成一个1993位数,试问:这个数能否被3整除?
将自然数1,2,3,4,5,6,7,8,9依次重复写下去.组成2013位整数,这个整数被36除的余数是( ).
从1,3,5,7,9中取两个数,从0,2,4,6,8中取两个数,组成无重复数字的4位数
用数字0,1,2,3,4,5,6,7,8,9组成可以重复数字的四位数的话号码,0也可以是首位数.
排列组合 0 1 2 3 4 5这几个数组成4位没有重复的偶数 有几种排列方式?
1,2,3,4,5,6组成没有重复数字的4位奇数数解题方法
0,1,2,3,4,5六个数组成多少个没有重复数字的六位奇数