第3講 For文の学習
第11話 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

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

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

     '2次元データを入力
     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

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

第10話へ 第4講第1話へ

006


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

数学研究室に戻る