0-9十个数字取五个组成五位数的全排列结果，共有十万组.求此十万组号码
求VB写出11个数字取五个数组成的全排列，不重复 假定为1到11即可 运行时间很长的，请耐心等待：Private Function Ps(Za As Integer，Zb As Integer，Zc As Integer，Zd As Integer，Ze As Integer)Dim I1 As Integer，I2 As Integer，I3 As Integer，I4 As Integer，I5 As IntegerDim Zf(1 To 5)As String，Xzf(1 To 5)As StringZf(1)=ZaZf(2)=ZbZf(3)=ZcZf(4)=ZdZf(5)=ZeFor I1=1 To 5Xzf(1)=Zf(I1)For I2=1 To 5Xzf(2)=Zf(I2)If Xzf(1)=Xzf(2)Then GoTo L2For I3=1 To 5Xzf(3)=Zf(I3)If Xzf(3)=Xzf(1)Or Xzf(3)=Xzf(2)Then GoTo L3For I4=1 To 5Xzf(4)=Zf(I4)If Zf(I4)=Xzf(1)Or Zf(I4)=Xzf(2)Or Zf(I4)=Xzf(3)Then GoTo L4For I5=1 To 5Xzf(5)=Zf(I5)If Xzf(5)<；>；Zf(I4)And Xzf(5)<；>；Xzf(3)And Xzf(5)<；>；Xzf(2)And Xzf(5)<；>；Xzf(1)ThenOpen App.Path&\"\\排列.txt\"For Append As#1Print#1，Xzf(1)&Xzf(2)&Xzf(3)&Zf(I4)&Xzf(5)，Close#1End IfNext I5'PrintL4：Next I4L3：Next I3L2：Next I2Next I1End FunctionPrivate Sub Command1_Click()Dim I1 As Integer，I2 As Integer，I3 As Integer，I4 As Integer，I5 As IntegerDim Sz(1 To 11)Open App.Path&\"\\排列.txt\"For Output As#1Close#1For I1=1 To 7For I2=I1+1。
在数字1、2、3与符号＋、－五个元素的所有全排列中，任意两个数字都不相邻的全排列个数是__________.
在数字1，2，3与符号“+”，“-”五个元素的所有全排列中，任意两个数字都不相邻的全排列个数有多少 根据题意，先排3个数字，有A33=6种排法，排除两端后有2个空位，放入符号“+”、“-”，有A22=2种排法，则共有6×2=12种排法，即有12个全排列；故任意两个数字都不相邻的全排列有12个．
用0123456组成无重复数字的四位数且能被5整除 有多少个。？？？ 解：能被5整除，个位只能0或者5（1）个位为0，前三位从余下6个数中排列3，P(6，3)=6*5*4=120种（2）个位为5，首位不能为0，只能5个中选1个，中间两位从余下的5个中排列2个，。
甲乙丙丁四位同学和王老师站一排照相，共有多少种不同的站法？一共五个人，每个人的位置不同，照出来的效果都不一样，这属于高中排列组合中的排列问题 五个人的全排列是：P。
用数字1，2，3，4，5组成没有重复数字的数： （1）能够组成多少个万位不排数字。 用数字1，2，3，4，5组成没有重复数字的数：（1）能够组成多少个万位不排数字.用数字1，2，3，4，5组成没有重复数字的数：（1）能够组成多少个万位不排数字3的五位奇数？。
