0_9看成1-9了
用这个程序
生成p(10,4)-P(9,3)=4536个
Sub f()
Dim a,b,c,d As Integer
Dim i As Integer
i = 1
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
If a = b Or b = c Or a = c Or a = d Or d = c Or d = b Then
Else
Cells(i,1) = a & b & c & d
i = i + 1
End If
Next
Next
Next
Next
End Sub
0 1 2 3 4 5 6 7 8 9 组成不同的四位数 如:1234、2345 .不可重复,要全部.
0 1 2 3 4 5 6 7 8 9 组成不同的四位数 如:1234、2345 .不可重复,要全部.
其他人气:711 ℃时间:2019-08-18 12:28:57
优质解答
我来回答
类似推荐
猜你喜欢
- 1不要试图为我代言,因为你不是我.这句话英语怎么说?(不要翻译器的翻译,太不准确了.
- 2已知如图,在△ABC中,AB=2AC,AD是∠BAC的角平分线,且AD=BD.求证:∠ADB=2∠ADC.
- 3有什么表示天气寒冷的词语?
- 4已知关于x.y的多项式mx^2+2xy-x与3x^2-2nxy+3y的差不含二次项,则n^m=
- 5我们今天早点吃完饭吧的英语怎么说
- 6英语翻译
- 7酒精升高一度的热量是多少焦耳
- 8物理公式P=UI什么意思?
- 9若(m-1)xy的n+1次方是关于x、y的系数为-2的三次单项式,则m=?,n=?
- 10汽车关闭发动机后做匀减速直线运动、当它滑行300m时速度减为初始速度的一半,接着滑行20s停下来,则汽车关闭发动机后滑行的总距离为_m.