随机数能保证所有集合?

晕,问问题都没问清楚.
你可以将产生的随机数存在一个文本里,然后历遍.当1到33都有时就停止呗.

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


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

if 語句是多餘的
For b = a+1 to 33
a < b 會成立嗎, 其餘同