第３講　For文の学習
第1１話　DataGridViewから値を取得し合計・平均を算出する
解答例
Public Class Form1

　　 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

　　　　　'変数の宣言
　　　　　Dim i As Integer, j As Integer, w As Integer

　　　　　'132行追加
　　　　　For i = 1 To 13
　　　　　　　DataGridView1.Rows.Add()
　　　　　Next

　　　　　'１行目に列表題を入れる。
　　　　　DataGridView1(11, 0).Value = "合計 "
　　　　　DataGridView1(12, 0).Value = "平均 "

　　　　　'５行目,６行目に行表題を入れる。
　　　　　DataGridView1(0, 11).Value = "合計 "
　　　　　DataGridView1(0, 12).Value = "平均 "

　　　　 '２次元データを入力
　　　　 For i = 1 To 11
　　　　　 　For j = 1 To 11
　　　　　　　　 DataGridView1(j, i).Value = 10 * ( i -1 ) + j
　　　　　 　Next
　　　　 Next

　　　　'行の合計と平均の計算と表示
　　　　For i = 1 To 11
　　　　　　w = 0
　　　　　　For j = 1 To 11
　　　　　　　　w = w + DataGridView1(j, i).Value
　　　　　　Next
　　　　　　DataGridView1(11, i).Value = w
　　　　　　DataGridView1(12, i).Value = w / 10
　　　　Next

　　　　'列の合計と平均の計算と表示
　　　　For i = 1 To 11
　　　　　　w = 0
　　　　　　For j = 1 To 11
　　　　　　　　w = w + DataGridView1(i, j).Value
　　　　　　Next
　　　　　　DataGridView1(i, 11).Value = w
　　　　　　DataGridView1(i, 12).Value = w / 10
　　　　Next

　　 End Sub

　　 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
　　　　　'各パーツは独立しいるので、ここでも変数の宣言をしなければならない。
　　　　　Dim a As Integer, j As Integer, w As Integer

　　　　　'各行の合計・平均の算出と表示
　　　　　For i = 15 To 17
　　　　　　　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

　　　　　'各列の合計・平均の算出と表示
　　　　　For i = 1 To 2
　　　　　　　w = 0
　　　　　　　For j = 15 To 17
　　　　　　　　　w = w + DataGridView1(i, j).Value
　　　　　　　Next
　　　　　　　DataGridView1(i, 18).Value = w
　　　　　　　DataGridView1(i, 19).Value = w / 3
　　　　　Next
　　 End Sub

End Class

実行例

必ずキーボードから値をセルに入れてから、実行２を押してください。
データが入っていないのに実行２を押すとエラーします。

第１０話へ　第４講第１話へ

vc++講義第１部へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座

数学研究室に戻る