閺€鎯版 (0) +1 鐠э拷 (0) +1 闊拷 (0) +1
閺€鎯版閹存劕濮�閺屻儳婀呴弨鎯版>>

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

2004-02-14 09:34 出处:CSDN 作者:northwolves 责任编辑:linjixiong


  Text1.Text = "方程 X1+X2+X3+X4+X5=10 共有 " & UBound(Split(answer, vbCrLf)) + 1 & " 个非零整数解:" & vbCrLf & answer 'show all answer in textbox

  End Sub

  Private Sub Command3_Click() '演示无解情况
  Text1.Text = ""
  Dim answer As String

  answer = GETRESULT(5, 3, False)
  Dim temp
  temp = Split(answer, vbCrLf)
  For i = 0 To UBound(temp)
  temp(i) = "解" & i + 1 & ":" & vbTab & temp(i)
  Next
  answer = Join(temp, vbCrLf)
  Text1.Text = "方程 X1+X2+X3+X4+X5=3 共有 " & UBound(Split(answer, vbCrLf)) + 1 & " 个非零整数解:" & vbCrLf & answer

  End Sub

  '求解函数
  Function GETRESULT(ByVal n As Integer, ByVal SUM As Integer, Optional allowzero As Boolean = True) As String
  Dim temp() As String, i As Long
  If n = 2 Then '二元方程
  If allowzero = True Then

察看评论详细内容 我要发表评论
作者笔名简短内容 发表时间
:
键盘也能翻页,试试“← →”键

相关文章

关注我们

最新资讯离线随时看 聊天吐槽赢奖品
閹靛婧€鐠佸潡妫�閸ョ偛鍩屾い鍫曞劥