2019-12-26

Sub text()
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim arr()
arr() = Range(“a1:a48”)
For i = 1 To 48
For j = 1 To 48
For k = 1 To 48
For l = 1 To 48
If arr(i, 1) + arr(j, 1) + arr(k, 1) + arr(l, 1) = 664.04 Then
Range(“d3”) = arr(i, 1)
Range(“e3”) = arr(j, 1)
Range(“f3”) = arr(k, 1)
Range(“g3”) = arr(l, 1)
End If
Next
Next
Next
Next
End Sub

想暴力穷举四个数的和，为什么有时候可以求出来有时候又不可以求出来？小白求教，谢谢各位大神