データの平均値の計算について (ID:88496)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんなのの方がいいかな。 先ず Const bNo = 20 '平均する個数 Static Rbuff(0 To bNo) As Double 'Ring Buff Rbuff(0)は一番初めに使うのみ の２行をコメントアウトして、 Dim Ave As Double の後に Static bNo As Long Static Rbuff() As Double If bNo <> Val(Text1.Text) Then '個数が変えられた If Val(Text1.Text) <= 1 Then Exit Sub '個数少なすぎ bNo = Val(Text1.Text) '個数再定義 ReDim Rbuff(1 To bNo) '配列再定義 Pos = 0: Sum = 0 'イニシャライズ End If を入れてみて下さい。 と書きながら、始めにコードで気になっていた、配列の添字の下限を０から１に 何気なく変更したりしてる。。。(^^;