tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 台形公式積分
投稿日: 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。