[已解决]如何写VBA ，用以解答一个三元二次方程呢？

1testvba · 发表于 2012-7-25 21:34

本帖最后由 1testvba 于 2012-7-25 22:43 编辑

附件：：：

0725HELP.rar (27.73 KB, 下载次数: 35)

那么的帅 · 发表于 2012-7-25 22:06

请说明K1 K2 K3的取值范围，比如是否都是整数，是否都是正整数，是否可以是0

1testvba · 发表于 2012-7-25 22:30

谢谢那么帅老师回复

(K1,K2,K3的值要求是整数，>0 。)（因为不知道0 的行不行，还是要求值>0 吧）

那么的帅 · 发表于 2012-7-26 00:16

点击按钮，结果在SHEET2表里

0725help-1.rar (8.9 KB, 下载次数: 123)

1testvba · 发表于 2012-7-26 08:06

那么的帅发表于 2012-7-26 00:16
点击按钮，结果在SHEET2表里

那么帅老师早。

非常感谢。

测试中。。

fangcheng52013 · 发表于 2012-7-26 09:34

那么的帅发表于 2012-7-26 00:16
点击按钮，结果在SHEET2表里

那么的帅老师，请你帮我看一下，谢谢，http://www.excelpx.com/thread-253939-1-1.html

香川群子 · 发表于 2014-12-3 12:49

4楼代码是有问题的。无法得到所有解。

对于3个整数的平方和 = 217502634 来说，应该有 21636*8组解。

请看附件：

Sub test()
Dim ar&(1 To 65530, 1 To 3), a1&, a2&, a3&, s&, x1&, x2&, x3&, k&, l&, m&, cnt, tms#
tms = Timer
a1 = Range("a2"): a2 = Range("b2"): a3 = Range("c2"): s = Range("d2"): l = Range("e2")
' a1 = 9342: a2 = 9462: a3 = 7007: s = 217502634
m = Int(Sqr(s))
For x1 = 0 To Int(Sqr(s))
For x2 = 0 To Int(Sqr(s - x1 ^ 2))
cnt = cnt + 1: If cnt Mod 1000 = 0 Then Application.StatusBar = Format(Timer - tms, "0.000s ") & k & "/" & cnt & Format(x1 / m, " (0.0%) ")
x3 = Int(Sqr(s - x1 ^ 2 - x2 ^ 2))
If x1 ^ 2 + x2 ^ 2 + x3 ^ 2 = s Then
k = k + 1: ar(k, 1) = x1: ar(k, 2) = x2: ar(k, 3) = x3
If k = l Then GoTo Ext
End If
Next
Next
Ext:
MsgBox Format(Timer - tms, "0.000s ") & k & "/" & cnt
If k Then Range("a5").CurrentRegion.Offset(1) = "": Range("a6").Resize(k, 3) = ar
End Sub

复制代码

		自动登录	找回密码
密码			注册

[已解决]如何写VBA ，用以解答一个 三元二次方程呢？