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)

文章来源于领测软件测试网 https://www.ltesting.net/