VB数学实例:巧用递归法解不定方程

1 2 3 下一页

多元一次方程往往采用循环求解。笔者在与网友们讨论一个问题（http://expert.csdn.net/Expert/topic/2607/2607772.XML?temp=.7494928）过程中，琢磨出一种算法，采 用递归进行多元一次方程的求解。并将解分为整数解和 非负整数解两种情况，请大家指教。

Private Sub Command1_Click() '演示求X1 X2 X3 X4 X5=10整数解
Text1.Text = ""
Dim answer As String
answer = GETRESULT(5, 10, True) '赋值
Dim temp
temp = Split(answer, VBCrLf)
For i = 0 To UBound(temp)
temp(i) = "解" & i 1 & "：" & vbTab & temp(i) ' add index
Next
answer = Join(temp, vbCrLf)
Text1.Text = "方程 X1 X2 X3 X4 X5=10 共有 " & UBound(temp) 1 & " 个整数解：" & vbCrLf & answer 'show all answer in textbox

End Sub
Private Sub Command2_Click() '演示求X1 X2 X3 X4 X5=10非负整数解
Text1.Text = ""
Dim answer As String

answer = GETRESULT(5, 10, False) '赋值
Dim temp
temp = Split(answer, vbCrLf)
For i = 0 To UBound(temp)
temp(i) = "解" & i 1 & "：" & vbTab & temp(i) 'add index
Next
answer = Join(temp, vbCrLf)

1 2 3 下一页

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!