求33选6的组合.请高手指点..谢谢!

33*32*31*30*29*28/(6*5*4*3*2*1)

补充:

1位 2位 3位 4位 5位 6位
01 02 03 04 05 06
01 02 03 04 05 07
. . . . . .
01 02 03 04 05 33 前五位不变..6位一直类推到33

01 02 03 04 06 07
01 02 03 04 06 08
. . . . . .
01 02 03 04 06 33
. . . . . .
01 29 30 31 32 33 到这数值1的组合完毕后以此类推
02 03 04 05 06 07 和01一样类推 直到
. . . . . .
02 29 30 31 32 33
. . . . . .
27 28 30 31 32 33 一直变成 组合的最后三组数据
27 29 30 31 32 33
28 29 30 31 32 33
就是想做成这样的组合..望高手指点..谢谢!~

a=1
b=2
c=3
d=4
e=5
f=6
do while a<29
do while b<30
do while c<31
do while d<32
do while e<33
do while f<34
? str(a)+str(b)+str(c)+str(d)+str(e)+str(f)
f=f+1
enddo
e=e+1
enddo
d=d+1
enddo
c=c+1
enddo
b=b+1
enddo
a=a+1
enddo

SET TALK OFF
T1=DATETIME()
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
?PADL(A,2,"0")+" "+PADL(B,2,"0")+" "+PADL(C,2,"0")+" "+PADL(D,2,"0")+" "+PADL(E,2,"0")+" "+PADL(F,2,"0")
ENDFOR
ENDFOR
ENDFOR
ENDFOR
ENDFOR
ENDFOR
?"耗时(秒)",DATETIME()-T1

谢谢大家了!!