验证是否存在整数的问题

zhn

求助

那位大神懂的，还请指导一下，谢谢了。

huang1314wei

给的条件太少了

huang1314wei

1. Sub text()
   
2.     Rem 以下代码求得2000以内的三个未知数求解
   
3.     Dim x&, y&, z&, j%, flag As Boolean, arr() As String
   
4.     flag = False
   
5.     For x = 1 To 2000
   
6.         For y = 1 To 2000
   
7.             For z = 1 To 2000
   
8.                 If 3.3 * x + 12 * y + 5.1 * z = 15636.3 Then
   
9.                     flag = True
   
10.                     j = j + 1
    
11.                     ReDim Preserve arr(j - 1)
    
12.                     arr(j - 1) = "x=" & x & " y=" & y & " z=" & z
    
13.                     If j = 10 Then GoTo L
    
14.                 End If
    
15.             Next
    
16.         Next
    
17.     Next
    
18. L:  If flag = False Then
    
19.        MsgBox "无解！"
    
20.     Else
    
21.        Range("A1").Resize(j, 1) = Application.Transpose(arr)
    
22.        Columns("A:B").AutoFit
    
23.        [B1] = "3.3 * x + 12 * y + 5.1 * z=15636.3"
    
24.        MsgBox "3.3 * x + 12 * y + 5.1 * z=15636.3 的10个解存放在A列，请查验！"
    
25.     End If
    
26. End Sub

复制代码

由于存在几万或者更多的解，所以代码只列出10个解，实际上代码很简单，如果想列出所有的解，仅2000以内的，就要循环80亿次，容易卡死

zhn

huang1314wei 发表于 2015-11-27 10:51
由于存在几万或者更多的解，所以代码只列出10个解，实际上代码很简单，如果想列出所有的解，仅2000以内 ...

谢谢。是个解已经满足需求了。