tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトル台形公式積分
記事No11076
投稿日: 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

[ツリー表示へ]
タイトルRe: 台形公式積分
記事No11077
投稿日: 2013/05/23(Thu) 16:17
投稿者shu
動かないというのはエラーが出ているという事でしょうか?

全ての';'は不要です。

[ツリー表示へ]
タイトルRe^2: 台形公式積分
記事No11078
投稿日: 2013/05/23(Thu) 17:33
投稿者ねこせんせい
> 動かないというのはエラーが出ているという事でしょうか?
>
> 全ての';'は不要です。

ありがとうございました。ステートメントにつけた
セミコロンを外したらエラーがなくいきました。

[ツリー表示へ]