投稿日	： 2003/08/04(Mon) 11:37
投稿者	： Moto
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^2: 変数について教えて下さい。

こんにちは。
花ちゃん様、回答有り難う御座います。

> データの個数がIntegerの範囲なら、非表示のリストボックスにデータを格納するのが
> 簡単かと思います。
> データの個数も特に管理せずとも取得でき、平均値を出すには便利かと思います。

教えて頂きましたように、リストボックスを使った物を、私なりに作ってみました。
近くにVBの知っている人がいない為、この様なコードで良いのか解かりません。
コードを下記致しますので、ご指摘お願いいたします。

Private Sub Form_Load()

List1.Visible = False

End Sub

Private Sub Text1_Change()

Dim a, b, c, d, e, f, g As Long

a = Val(Text1.Text)　　　　   ' データ値入力

List1.AddItem (a)            ' リストボックスに書き込み
b = List1.ListCount
c = Val(Text2.Text)          ' リストボックスの表示数入力
d = b - 1

If c > d Then                ' 条件　TextBox2の値以下の時
For e = 0 To d
f = Val(List1.List(e))
g = g + f
Text3.Text = Round(g / b, 2)   ' TextBox3にList1の表示数の平均を表示
Next e
Else
For e = 1 To d                 '　条件　TextBox2の値以上の時
f = Val(List1.List(e))
g = g + f
Text3.Text = Round(g / d, 2)   ' TextBox3にList1の表示数の平均を表示
Next e
End If

If b > c Then
List1.RemoveItem (0)           ' TextBox2の値以上の時Item１を削除
End If

End Sub

リストボックスに表示されている値の平均値を出す時に、関数（Avg)
か何かで平均を出すことは、出来ないでしょうか。

又、Text1_Changeを使うには何か問題が有るのでしょうか。

宜しくお願いいたします。
　　　　　　　　　　　　　　　　　　　　　　　　　　Moto

★ - 変数について教えて下さい。 - Moto 08/01-13:31No.5172
• Re: 変数について教えて下さい。 - 花ちゃん 08/01-14:27 No.5173
  • Re^2: 変数について教えて下さい。 - Moto 08/04-11:37 No.5206
    • Re^3: 変数について教えて下さい。 - 花ちゃん 08/04-14:44 No.5209
      • Re^4: 変数について教えて下さい。 - Moto 08/05-13:09 No.5235