[已解决]助求14X+21Y+26Z=488正整数解？

香川群子

liuguansky 发表于 2013-10-22 09:06

这可真有意思。

居然让正则帮你做数学题。

telexon

CheryBTL 发表于 2013-10-22 21:50
原来定义的参数类型为整数，你输入的是小数，当然会出错
改下变更的类型即可：

再次感谢CheryBTL帮忙,这对我是帮大忙了！

telexon

香川群子 发表于 2013-10-22 22:22
这可真有意思。

居然让正则帮你做数学题。

香川群子，不是做数学题，这是我日常工作由手工改为自动化，提高效率。谢谢

香川群子

telexon 发表于 2013-10-22 21:10
DEAR，为何验算又对呢，请帮助看一附件

代码应该这么写：

1. 
   
2. Sub js()
   
3.     Dim jg(65535, 2), i&, j&, k&, x, y, z, s, t&
   
4.     x = [d2]: y = [e2]: z = [f2]: s = [g2]
   
5.     For i = 0 To s \ x
   
6.         For j = 0 To (s - x * i) \ y
   
7.             k = (s - x * i - y * j) \ z
   
8.             If s = x * i + y * j + z * k Then
   
9.                 jg(t, 0) = i
   
10.                 jg(t, 1) = j
    
11.                 jg(t, 2) = k
    
12.                 t = t + 1
    
13.             End If
    
14.         Next
    
15.     Next
    
16.     [a:c] = ""
    
17.     [a1].Resize(t, 3) = jg
    
18.     MsgBox t
    
19. End Sub
    

复制代码

第3个参数不用循环，可以直接计算得到。

以上代码允许参数值=0

如果3个参数都不允许=0则代码如下：

1. 
   
2. Sub js2()
   
3.     Dim jg(65535, 2), i&, j&, k&, x, y, z, s, t&
   
4.     x = [d2]: y = [e2]: z = [f2]: s = [g2]
   
5.     For i = 1 To s \ x
   
6.         For j = 1 To (s - x * i) \ y
   
7.             k = (s - x * i - y * j) \ z
   
8.             If k Then
   
9.                 If s = x * i + y * j + z * k Then
   
10.                     jg(t, 0) = i
    
11.                     jg(t, 1) = j
    
12.                     jg(t, 2) = k
    
13.                     t = t + 1
    
14.                 End If
    
15.             End If
    
16.         Next
    
17.     Next
    
18.     [a:c] = ""
    
19.     [a1].Resize(t, 3) = jg
    
20.     MsgBox t
    
21. End Sub

复制代码