随机数能保证所有集合?

下面思路可能与你差不多,但是速度太慢,有快速的吗?


Dim a as integer, b as integer, c as integer
Dim d as integer, e as integer, f as integer
For a = 1 To 33
For b = a+1 To 33
For c = b+1 To 33
For d = c+1 To 33
For e = d+1 To 33
For f = e+1 To 33
If a < b And b < c And c < d And d < e And e < f Then Debug.Print a & vbTab & b & vbTab & c & vbTab & d & vbTab & e & vbTab & f
endif
Next f
Next e
Next d
Next c
Next b
Next a