Top > VBA のオブジェクト指向プログラミング > 入門編
第2回 第3回 第4回
第2回 第3回 第4回
Top > VBA のオブジェクト指向プログラミング > 入門編
第2回 第3回 第4回
前回のサンプルプログラムは、あるデータの集まりの合計と平均を求める
プログラムでした。
2つ以上のグループの、合計と平均を求める同時に求めるように
前回のプログラムを修正してみたいと思います。
学校のテストの結果を管理するときに、ある学年の教室ごとに
テストの合計と平均を求める処理を思い浮かべてもらうと
わかりやすいかも知れません。
単純にデータを1つ1つバラバラに定義すると以下のようなプログラムにな
ります。
プログラムでした。
2つ以上のグループの、合計と平均を求める同時に求めるように
前回のプログラムを修正してみたいと思います。
学校のテストの結果を管理するときに、ある学年の教室ごとに
テストの合計と平均を求める処理を思い浮かべてもらうと
わかりやすいかも知れません。
単純にデータを1つ1つバラバラに定義すると以下のようなプログラムにな
ります。
Option Explicit
'サンプルプログラム02
Sub calc2()
'---------------------------------------------
'データ
'---------------------------------------------
'合計値、データ個数、平均値のデータ(1)
Dim lngSum1 As Long
Dim lngNums1 As Long
Dim lngAvg1 As Long
<font color="green"> '合計値、データ個数、平均値のデータ(2)</font>
Dim lngSum2 As Long
Dim lngNums2 As Long
Dim lngAvg2 As Long
<font color="green"> '合計値、データ個数、平均値のデータ(3)</font>
Dim lngSum3 As Long
Dim lngNums3 As Long
Dim lngAvg3 As Long
'---------------------------------------------
'手続き
'---------------------------------------------
<font color="green"> '合計値とデータ個数の初期化(1)</font>
lngSum1 = 0
lngNums1 = 0
<font color="green"> 'データの追加とデータ個数の計算(1)</font>
lngSum1 = lngSum1 + 10
lngNums1 = lngNums1 + 1
<font color="green"> '合計値とデータ個数の初期化(2)</font>
lngSum2 = 0
lngNums2 = 0
<font color="green"> 'データの追加とデータ個数の計算(2)</font>
lngSum2 = lngSum2 + 100
lngNums2 = lngNums2 + 1
<font color="green"> '合計値とデータ個数の初期化(3)</font>
lngSum3 = 0
lngNums3 = 0
<font color="green"> 'データの追加とデータ個数の計算(3)</font>
lngSum3 = lngSum3 + 1000
lngNums3 = lngNums3 + 1
<font color="green"> 'データの追加とデータ個数の計算(1)</font>
lngSum1 = lngSum1 + 20
lngNums1 = lngNums1 + 1
<font color="green"> 'データの追加とデータ個数の計算(2)</font>
lngSum2 = lngSum2 + 200
lngNums2 = lngNums2 + 1
<font color="green"> 'データの追加とデータ個数の計算(3)</font>
lngSum3 = lngSum3 + 2000
lngNums3 = lngNums3 + 1
<font color="green"> 'データの追加とデータ個数の計算(1)</font>
lngSum1 = lngSum1 + 30
lngNums1 = lngNums1 + 1
<font color="green"> '平均値の計算(1)</font>
lngAvg1 = lngSum1 / lngNums1
<font color="green"> 'データの追加とデータ個数の計算(2)</font>
lngSum2 = lngSum2 + 300
lngNums2 = lngNums2 + 1
<font color="green"> '平均値の計算(2)</font>
lngAvg2 = lngSum2 / lngNums2
<font color="green"> 'データの追加とデータ個数の計算(3)</font>
lngSum3 = lngSum3 + 3000
lngNums3 = lngNums3 + 1
<font color="green"> '平均値の計算(3)</font>
lngAvg3 = lngSum3 / lngNums3
<font color="green"> '結果の出力</font>
Debug.Print "1:Sum=" & CStr(lngSum1) & _
":Avg=" & CStr(lngAvg1)
Debug.Print "2:Sum=" & CStr(lngSum2) & _
":Avg=" & CStr(lngAvg2)
Debug.Print "3:Sum=" & CStr(lngSum3) & _
":Avg=" & CStr(lngAvg3)
End Sub
第2回 第3回 第4回
Top > VBA のオブジェクト指向プログラミング > 入門編
このページへのコメント
xDrvB5 Im obliged for the blog post.Really thank you! Really Great.
f4MIve Very informative article.Really looking forward to read more. Cool.
umRfpe <a href="http://zppidvjebvsp.com/">zppidvjebvsp</a>, [url=http://qonxbnjyutpr.com/]qonxbnjyutpr[/url], [link=http://ebemriksqjai.com/]ebemriksqjai[/link], http://mwipkodxwjcd.com/
水腱茯違祉祉(^_^;) 若若若若 http://www.fetang.com/