求以Excel或TXT文档格式的双色球1-33所有红球的排列组合。请发一份给我，[email protected]。

Question

如题所述

Answer 1

给个代码给你吧,复制以下代码带VBA的模块中运行即可

sub ssq()
x=1
y=1
for i=1 to 28
for j=i+1 to 29
for k=j+1 to 30
for l=k+1 to 31
for m=l+1 to 32
for n=m+1 to 33
cells(x,y)= format(i,"00") & " " & format(j,"00") & " " & format(k,"00") & " " & format(l,"00") & " " & format(m,"00") & " " format(n,"00") & " "
if y=100 then
x=x+1
y=1
end if
y=y+1
next n
next m
next l
next k
next j
next j

end sub