Question

vb 排列组合

从0至9共10个数。选6个数。要求5个不重复，第6个数为前5个数之1。共有1260组。即选出的6个数里，有一个数字是重复。分别是那些组合?
从0至9共10个数。选6个数。要求4个不重复，第5、6个数为前4个数之1。共有1260组。即选出的6个数里，有二个数字是重复。分别是那些组合?
谢谢。
无顺序
=C(5,10)*C(1,5)=((10*9*8*7*6)/(5*4*3*2*1))*5=1260
123455与554321是一样。算一组。
如何用VB写程序。

Answer 1

Dim a, b, c, d, e, f As Integer
Dim s As String
Private Sub Command1_Click()

For a = 0 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
For e = 0 To 9
For f = 0 To 9
s = Str(a) & Str(b) & Str(c) & Str(d) & Str(e) & Str(f)
DoEvents
Debug.Print
Next
Next
Next
Next
Next
Next
End Sub

穷举吧