vba将1到10重复排列30次-搜答案-大师作文网

Subtest()DimiAsInteger'声明i是整数变量Fori=1To10'循环1到10Cells(i,1)=i'赋值NextEndSu

FunctionProjectALL(r,c)'r是行号,c是列号m1=Cells(r-1,c).Value'上一行数据m2=Cells(r,c).Value'本行数据l1=Len(m1)'m1长度l

你先把行、列的概念搞清楚,再描述问题.行：第一行,有A1、B1、C1、D1.等格.第二行自然就是：A2、B2、C2.等格.列：第一列,有A1、A2、A3、A4.等格,第二列就是B1、B2、B3、B4.

百度数下排列组合公式,然后用计算器算一下,就OK啊!

1开头有A4/4=24个第25个数=20135

太多了,全排列出来可能性几乎没有,告诉你排列数还差不多!9*9*8*7*6*5=19440

1345,1354,1435,1453,1534,1543,3145,3154,3415,3451,3541,3514,4135,4153,4315,4351,4513,4531,.9134,9143

10*10*10=1000再问：麻烦算一下，不算重复共有多少种啊再答：10*9*8=720

请问有没有学到排列组合?如果有直接用公式即可.排列A(6,3)=6X5X4=120.去掉重复的组,即组合C（6,3）=6X5X4/(3X2X1)=20.排列A(7,3)=7X6X5=210.去掉重复的

啥叫“排列成不重复的六位数字,会有几个?”,（1）每位数字都不一样,六位数有几个?答案就简单了,共有9×8×7×6×5×4+3×8×7×6×5＝65520个；（2）1～33数字排序的结果使得这个六位数

这个是组合数学中的圆周排列,应该是8!/8=7!=5040

10*10*10*10=10000

27889个,12789再问：那过程是什么？再问：那过程是什么？

你也没有省略号,是只用这9个数重复排列吗?还是用后续的数接着排呢?1）如果是只用这9个数的重复排列,则排到最后是1234.7891,这些数的总和是(1+2+..+9)*222+1=9991不能被9整除

属于P：9*8……（9-7+1）=9*8*7*6*5*4*3=181440（不可重复）9^7=4782929（可重复）

能够产生一组随机数会了.五组如果不会用循环,就单独用5次就行了.如下:PublicSubsjs()'以下第一组DimaAsRange,a1AsRangeSeta=Range("a1:a10")a.Cl

这个是排列组合.没法把式子打出来.只有跟你说一下式子应该是20!/10!注：20!为20的阶乘.阶乘的意思就是20*19*18*……*3*2*1

你是说排成138139135.068069.067这样的所有的吗?代码如下Subtest()Dimarr,brr(),x&,y&,j&,i&,str1$DimdAsObjectSetd=CreateO

ound(a1/10,0)*10

首位有1~9,共9种可能,后四位每一位都有0~9共10种可能,所以可重复排列的全排列组合能组成90000组5位数（从10000到99999）.