以ä¸ä¸ºä»£ç åå
³é®æ³¨éï¼è¯·æ
ç¨ï¼æ°æ®é巨大ï¼çµèä¸ç´ä¼å¨åå°è®¡ç®ï¼å¦ææ°æ®è¶
è¿65565*250ï¼åä¼åºéï¼
Sub main()
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: For i7 = 1 To 9: For i8 = 1 To 9: For i9 = 1 To 9
If i1 + i2 + i3 + i4 + i5 + i6 + i7 + i8 + i9 < 37 Then'å¤ææ¡ä»¶ï¼9个æ°ä¹åå°äºçäº36
k = k + 1
Cells(Int((k - 1) / 250) + 1, (k - 1) Mod 250 + 1) = i1 & i2 & i3 & i4 & i5 & i6 & i7 & i8 & i9'å®ç°æ¯è¡åæ¾250个æ°æ®
End If
Next: Next: Next: Next: Next: Next: Next: Next: Next
End Sub
温馨提示:答案为网友推荐,仅供参考