文件名称：基于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