プログラム解説
行合計・行平均について解説しますので、縦合計・縦平均についてはご自分でトレースして下さい。
'行の合計と平均の計算と表示
For i = 1 To 3
w = 0
For j = 1 To 2
w = w + DataGridView1(j, i).Value
Next
DataGridView1(3, i).Value = w
DataGridView1(4, i).Value = w / 2
Nextｉは、行数（といっても0からはじめっているのでi=1は2行目を意味しています。）で、
ｊは列数（こちらも同じでj=1なら、2列目です。）に対応します。
注意しなければならないのは、
'行の合計と平均の計算と表示
w = 0
For i = 1 To 3
For j = 1 To 2
w = w + DataGridView1(j, i).Value
Next
DataGridView1(3, i).Value = w
DataGridView1(4, i).Value = w / 2
Next
ではだめだということです。プログラミング歴20年の私でも時々このミスをしてしまいます。
1行計算する度に、もう一度wを0に戻さないとすべて積算されてしまいます。
逆にすべての表の中の数字を足したいときは、このようにします。
トレースしてみましょう。
Ⅰ ｉ＝１の場合（２行目の行合計の計算）
w=0からwは０となります。
ⅰ j=1のとき、
w=w+DataGridView1(1,1).Value
によって、w←0+4でw=4となりました。
ⅱ j=2のとき、
w=w+DataGridView1(2,1).Value
によって、w←4+5でw=9となりました。
そして、
DataGridView1(3,1).Value=w
DataGridView1(4,1).Value=w/2
より、合計と平均に値が入ります。
これで、iの方の1回目のループが終了します。
Ⅱ ｉ＝2の場合（３行目の行合計の計算）
w=0からwは０となります。
ⅰ j=1のとき、
w=w+DataGridView1(1,2).Value
によって、w←0+6でw=6となりました。
ⅱ j=2のとき、
w=w+DataGridView1(2,2).Value
によって、w←6+7でw=13となりました。
そして、
DataGridView1(3,2).Value=w
DataGridView1(4,2).Value=w/2
より、合計と平均に値が入ります。
これで、iの方の２回目のループが終了します。
（再掲）Ⅲ ｉ＝3の場合（３行目の行合計の計算）
w=0からwは０となります。
ⅰ j=1のとき、
w=w+DataGridView1(1,3).Value
によって、w←0+8でw=8となりました。
ⅱ j=2のとき、
w=w+DataGridView1(2,3).Value
によって、w←8+9でw=16となりました。
そして、
DataGridView1(3,3).Value=w
DataGridView1(4,3).Value=w/2
より、合計と平均に値が入ります。
これで、iの方の３回目のループが終了します、すべての行が合計されｆｏｒ文が終了となります。
それでは、皆さん課題を出してこの話を閉じます。
Ｆｏｒｍ１(デザイン)とコードを変更して、
ビルドして実行ボタンを押すと、
になるようにしてください。
