第2个回答 2012-06-15
A1=1
B1=1
for i1=1 to 9
for i2=1 to 9
for i3=1 to 9
for i4=1 to 9
for i5=1 to 9
for i6=1 to 9
IF B1=11 THEN
A1=A1+1
B1=1
CELLS(A1,B1)=i1+3 & "," & i2+3 & "," & i3+3 & "," & i4+3 & "," & i5+3 & "," & i6+3
else
CELLS(A1,B1)=i1+3 & "," & i2+3 & "," & i3+3 & "," & i4+3 & "," & i5+3 & "," & i6+3
B1=B1+1
endif
next
next
next
next
next
next
在第一行第15格输入 =counta(a:j) 得出数量