| タイトル | ： 台形公式積分 |
| 記事No | ： 11076 |
| 投稿日 | ： 2013/05/23(Thu) 14:01 |
| 投稿者 | ： ねこせんせい |
台形公式積分コード書いてみたのですが、我が家のVB2005で動きません。
どなたかご指導ください。
OSはwindows7です
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' n:区間[a,b]の分割数
' a:積分範囲の下限値
' b:積分範囲の上限値
' h:小区間の長さ
' x1:小区間の左端のx座標
' x2:小区間の右端のx座標
' ans:定積分
Dim n As Integer: n=99
Dim a As Double: a = 2
Dim b As Double: b=10
Dim h As Double
Dim x1 as Double
Dim x2 as Double
Dim ans as Double
Dim i as Integer
ans=0.0;
h=(b-a)/(n+1);
For i=0 To n Step 1
x1=a+i*h;
x2=x1+h;
ans=ans+h/2.0*(testFunc(x1)+testFunc(x2));
Next i
MsgBox ans
End Sub
Function testFunc(ByVal x As Double) As Double
testFunc = 3 * x '←被積分関数
End Function
|