【文件属性】:
文件名称:基于VB的数值积分算法
文件大小:343B
文件格式:TXT
更新时间:2012-11-10 05:49:44
积分 VB
基于VB的数值积分算法
'这里的第一个Public为积分函数mathzcm段
Public Function mathzcm(ByVal a!,ByVal b!,ByVal n%)As Single
Dim sum!,h!,x!
h=(b-a)/n
sum=(f(a)+f(b))/2
For i=1 To n-1
x=a+i*h
sum=sum+f(x)
Next i
mathzcm=sum*h
End Function
'另行定义自己需要的a,b,n的值……
Public Function y(ByVal x!)
y=sin(x) '在这里定义你需要的函数
End Funtion