作业帮0-9选出5个数排7成7位数 7位数里面可以有5个数字里面的重复数字但是每7位数必须包含选出的5个数字我要他们的排列.给出个程序样子啊,排列结果.或者用excel公式那种也行啊.
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/03 00:50:40
0-9选出5个数排7成7位数 7位数里面可以有5个数字里面的重复数字但是每7位数必须包含选出的5个数字我要他们的排列.给出个程序样子啊,排列结果.或者用excel公式那种也行啊.
0-9选出5个数排7成7位数 7位数里面可以有5个数字里面的重复数字但是每7位数必须包含选出的5个数字
我要他们的排列.给出个程序样子啊,排列结果.或者用excel公式那种也行啊.
0-9选出5个数排7成7位数 7位数里面可以有5个数字里面的重复数字但是每7位数必须包含选出的5个数字我要他们的排列.给出个程序样子啊,排列结果.或者用excel公式那种也行啊.
共 4233600 个这样的数.
10选5, = 10*9*8*7*6/5*4*3*2*1 = 252
然后5选1、排列去重复
或5选2、排列去重复
给个脚本.
'WINDOWS下,将以下代码复制到记事本,保存后修改后缀名为“.VBS”.
'双击运行10分钟直至弹出“完成”.将生成所有排列共70多M.
'结果文件保存在D盘下result.txt,文件很大,须用写字板打开.
set fso = CreateObject ("SCripting.FileSystemObject")
set hw = fso.CreateTextFile ("D:\result.txt",true,-2)
set wshshell = CreateObject("WScript.Shell")
dim shuzu (8)
for i1 = 0 to 9
for i2 = 0 to 9
for i3 = 0 to 9
for i4 = 0 to 9
for i5 = 0 to 9
for i6 = 0 to 9
for i7 = 0 to 9
nnum = i1 & i2 & i3 & i4 & i5 & i6 & i7
shuzu(1) = i1
shuzu(2) = i2
shuzu(3) = i3
shuzu(4) = i4
shuzu(5) = i5
shuzu(6) = i6
shuzu(7) = i7
for m = 1 to 6
for n = m +1 to 7
if shuzu(m) > shuzu (n) then
t = shuzu(m)
shuzu(m) = shuzu(n)
shuzu(n) = t
end if
next
next
numgs = 0
for m = 2 to 7
if shuzu(m) = shuzu(m-1) then
numgs = numgs + 1
end if
next
if numgs = 2 then
hw.WriteLine nnum
end if
next
next
next
next
next
next
next
hw.Close
MsgBox "完成"
Wscript.Quit
'代码结束