'２次元データを入力
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
End Class
さて、この講最後の課題です。
まず、コードの最後にピンクを Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
・
・
・
'列の合計と平均の計算と表示
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
'６行追加
For i = 1 To 6
DataGridView1.Rows.Add()
Next
'15行目に列表題を入れる。
DataGridView1(3, 14).Value = "合計 "
DataGridView1(4, 14).Value = "平均 "
追加して、Form1のもう一つボタンを加え、二つのボタン名を
実行1と実行２にしてください。 これでビルドして実行１押すと、 と空のセルができます。
赤い囲いのところにキーボードから値を入力して、
実行２を押すと、その部分の合計や平均が出るようにプログラミングしてください。
プログラミングするには、Form1[デザイン]の実行２をダブルクリックすると、下図のようになりますから
Buton1(つまり実行１）のときのようにコードを入力してください。
尚、Button1でDim i As Integer, j As Integer, w As Integerと宣言していますが、
Button2でi,j,wを使いたいときは、赤い囲いの中でも Dim i As Integer, j As Integer, w As Integer
と宣言し直すことが必要です。これが何度も出てきた構造化プログラミングのおける各パーツの独立性です。
つまり、AというパーツとBというパーツで同じ変数名が使われていたとしても、
Aの変数がBの中で書き換えられてしまう心配がないので、
Aを担当しているプログラマは、Aのみの開発に専念できるのです。
昔のBASICは、各パーツの独立性がなく、同じ変数名が使われているとき、
他のパーツで書き換えられてしまう心配があり、
プログラミングは結局全体を常に見ていないとできなかったのです。
各パーツが有機的に関連しあっていて、
しかも、GO TO文でいろいろなパーツを行ったり来たりしていたので、
全体がスパゲティのように絡み合い混線して、
大変見通しの悪いプログラミングになっていました。
７０
これでビルドして実行１押すと、
と空のセルができます。
