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

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/16 14:34:42

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
'代码结束

在0,1,2,3,4,5,6,7,8,9这十个数字里面选出九个数字分别组成2位数3位数,然后这三位数加起来必须等于201 在2、3、5、7、9这五个数字中,选出四个数字,组成被3除余2的四位数.这样的四位数,有几个? 在2、3、5、7、9五个数字中,选出四个数字,组成能被3除余2的四位数,这样的四位数有几个在2,3,5,7,9这五个数字中,选出四个数字,组成能被3除余2的四位数,这样的四位数有多少个? 在0~9这10个数字中,选出四个数组成四位数,使他能被3,5,7,11整除,这个四位数最大是多少? 在0、2、5、7、9五个数字中，选出四个不重复的数字组成一个能被3整除的四位数，其中最大的与最小的四位数的差是_____ 从1，3，5，7中任取2个数字，从2，4，6，8中任取2个数字组成没有重复数字的四位数，其中能被5整除的四位数的个数有（从0，1，2，3，4，5，6，7，8，9十个数字中，选出一个偶数和三个奇数，组成一个没有重复数字的四位数，这样的四位数共在1、4、5、6、7这五个数字中,选出四个数字组成被3除余1的四位数,这样的四位数有几个? 由数字1,2,3,4,5,6,7,8可以组成多少个没有重复数字的七位数,并且每个七位数都是6的倍数? 一道数学题:用数字0,5,8,9可以组成多少个没有重复数字的四位数?若数字可以重复呢?只含有重复数字的四位数有多少个? 有12345这5个数字中,选出四个数字组成被3整除余1的四位数,这样的四位数有多少个?