怎么样在excel上把1-9这些数字排列成5位数的所有数字组合全部显示出来,任意排列成5位数就可以
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/11 21:06:17
怎么样在excel上把1-9这些数字排列成5位数的所有数字组合全部显示出来,任意排列成5位数就可以
条件1:不包含0
条件2:不得有重复数字
范围:12345~98765
符合的数字有 57205个,
右击工作表标签→查看代码,把下面的代码贴到VBE中,按F5运行,结果粘贴到A列
Sub chiefzjh()
Dim mStr$,i,k%,Tmp$,mDic
Set mDic = CreateObject("scripting.dictionary")
mStr = "123456789"
For i = 12345 To 98765
If InStr(i,"0") = 0 Then 'No "O" exit
For k = 1 To 4 'No duplicate finger
If 5 - Len(Replace(i,Mid(i,k,1),"")) >= 2 Then Exit For
Next k
mDic.Add i,"" 'Add to Dic
End If
Next i
i = mDic.Count
Range("a1").Resize(i,1) = WorksheetFunction.Transpose(mDic.keys)
End Su
条件2:不得有重复数字
范围:12345~98765
符合的数字有 57205个,
右击工作表标签→查看代码,把下面的代码贴到VBE中,按F5运行,结果粘贴到A列
Sub chiefzjh()
Dim mStr$,i,k%,Tmp$,mDic
Set mDic = CreateObject("scripting.dictionary")
mStr = "123456789"
For i = 12345 To 98765
If InStr(i,"0") = 0 Then 'No "O" exit
For k = 1 To 4 'No duplicate finger
If 5 - Len(Replace(i,Mid(i,k,1),"")) >= 2 Then Exit For
Next k
mDic.Add i,"" 'Add to Dic
End If
Next i
i = mDic.Count
Range("a1").Resize(i,1) = WorksheetFunction.Transpose(mDic.keys)
End Su
怎么样在excel上把1-9这些数字排列成5位数的所有数字组合全部显示出来,任意排列成5位数就可以
在0-9数字中,任取5位数,排列成5位数的组合,有多少种.
0,1,2,3任意排列成6位数,每个数字可以任意用很多次,可以排列出多少种,请列举出来
在0、2、5、8、9五个数中,随意选出四个数字,可组成四位数,在所有这些四位数中,把其中能被3整除的选出来从小到大排列,
在0、1、4、7、9五个数字中,随意选取四个数字,可组成四位数,在所有这些四位数中,把能被3整除的按从小到大排列,排存第
0-9十位数字排列成4位数的组合共有多少?
0-9十位数字排列成6位数的组合共有多少大神们帮帮忙
0--9全部的数字任意组合成3位数,能组多少个.分别是什么
0--9全部的数字任意组合成4位数,能组多少个.分别是什么.
从1,2,5,8四个数字中任取3个可以组成多少个没有重复的3位数?把这些三位数从小到大排列第15个数是多少?
数学题有趣的用1、2、3、4、5、6、7共7个数字排列成7位数的号码(在同一个电话号码内每个数字只能用一次)可以排列——
1和2,两个数字组合成六位数的组合,请帮忙把所有组合列上来