您现在的位置:首页 >> 其它区 >> 数值积分算法程序(VB)

数值积分算法程序(VB)

时间:2014/11/5 15:32:40 点击:

  核心提示:数值积分算法程序(附带源码)...
数值积分算法程序(VB)源码下载地址:
下载地址1:本地下载
下载地址2:百度云盘下载


软件界面如下:
数值积分算法程序(VB)

代码如下:
Private Sub Command1_Click()
 Dim a, b, i, temp, newtemp, sum, newsum As Double
 Dim t1, t2 As Double
 
 '初始化取回参数值
 sum = 0
 newsum = 0
 
 a = Val(Text1.Text)
 b = Val(Text2.Text)
 temp = Abs(a - b)

'大循环比较差值
Do
  '将区间分成10份或每次自动缩小至1/10
  temp = temp / 10
  sum = 0
  newsum = 0
 
  '计算sum
  t1 = a - temp
  For i = b To t1 Step temp
   sum = sum + f(i + 0) * temp
  Next i
 
  '计算newsum
  t2 = a - temp / 10
  For i = b To t2 Step temp / 10
   newsum = newsum + f(i + 0) * temp / 10
  Next i
Loop Until Abs(newsum - sum) < 0.00001 '精度

 '积分结果输出
 sum = Int(sum * 100000) / 100000
 Label4.Caption = sum

End Sub

'积分函数f(x)
Private Function f(i As Double)
 f = i
End Function

作者:Steven160422 来源:原创
  • CAppChem(www.cappchem.com) © 2018 版权所有 All Rights Reserved.
  • 本站有部分信息内容来自网络,如有侵权行为,请留言联系本站。
  • 鄂ICP备13005487号-1  公网安备鄂公网安备 42010602000540号
  • Powered by CAppChem V3.0sp1