請教處理16個正整數的不定方程問題

1^# 跳轉到 »

發表於 2013-1-30 15:36 | 顯示全部帖子

回復 1# kain
你把dim從迴圈中提出來看看

2^#

發表於 2013-1-30 16:36 | 顯示全部帖子

我把變數重新宣告而已
是能跑出來的 (耗時38秒)
跑出252種組合

Sub hexagonhive()
Dim ue As Integer, str As String
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer, g As Integer
Dim t As Long
t = 0
Debug.Print Time
For a = 1 To 16
For b = 1 To 16
For c = 1 To 16
For d = 1 To 16
For e = 1 To 16
For f = 1 To 16
g = 49 - a - b - c - d - e - f
ue = Unequal(a, b, c, d, e, f, g)
If ue = 1 And g > 0 And g < 17 And 2 * b + c + 2 * d + e + 2 * f + g = 87 Then
t = t + 1
Cells(t, 1) = a: Cells(t, 2) = b: Cells(t, 3) = c: Cells(t, 4) = d: Cells(t, 5) = e: Cells(t, 6) = f: Cells(t, 7) = g:
End If
Next f, e, d, c, b, a
Debug.Print Time
End Sub

複製代碼

靜思自在 : 能善用時間的人，必能掌握自己努力的方向。