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 下一页

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有