0-9选出5个数排7成7位数 7位数里面可以有5个数字里面的重复数字但是每7位数必须包含选出的5个数

0-9选出5个数排7成7位数 7位数里面可以有5个数字里面的重复数字但是每7位数必须包含选出的5个数

共 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 9for i2 = 0 to 9for i3 = 0 to 9for i4 = 0 to 9for i5 = 0 to 9for i6 = 0 to 9for 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 ifnextnextnextnextnextnextnexthw.CloseMsgBox 完成Wscript.Quit'代码结束

你的回答很对

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息