第４講　If文の学習
第８話　最大値・最小値
解答コード例
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

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

　　　　　'１行目に列見出しを入れる。
　　　　　DataGridView1(0, 0).Value = "番号 "
　　　　　DataGridView1(1, 0).Value = "国語 "
　　　　　DataGridView1(2, 0).Value = "社会 "
　　　　　DataGridView1(3, 0).Value = "数学 "
　　　　　DataGridView1(4, 0).Value = "理科 "
　　　　　DataGridView1(5, 0).Value = "英語 "
　　　　　DataGridView1(6, 0).Value = "合計 "
　　　　　DataGridView1(7, 0).Value = "平均 "
　　　　　DataGridView1(8, 0).Value = "最高点"
　　　　　DataGridView1(9, 0).Value = "最低点"
　　　　　DataGridView1(10, 0).Value = "合否 "
　　　　　DataGridView1(11, 0).Value = "講評 "

　　　　　'41行から44行　行見出し
　　　　　DataGridView1(0, 41).Value = "合計　"
　　　　　DataGridView1(0, 42).Value = "平均　"
　　　　　DataGridView1(0, 43).Value = "最高点"
　　　　　DataGridView1(0, 44).Value = "最低点"


　　　　　'出席番号とランダムデータの発生
　　　　　For i = 1 To 40
　　　　　　　DataGridView1(0, i).Value = i
　　　　　　　For j = 1 To 5
　　　　　　　　　DataGridView1(j, i).Value = Int(101 * Rnd())
　　　　　　　Next
　　　　　Next

　　　　 '各生徒の５教科合計・平均・合否・講評の算出と表示
　　　　　For i = 1 To 40
　　　　　　　'合計・平均の算出
　　　　　　　w = 0
　　　　　　　For j = 1 To 5
　　　　　　　　　w = w + DataGridView1(j, i).Value
　　　　　　　Next
　　　　　　　'合計・平均の表示
　　　　　　　DataGridView1(6, i).Value = w
　　　　　　　DataGridView1(7, i).Value = w / 5
　　　　　　　'合否の表示
　　　　　　　If w >= 250 Then
　　　　　　　　　DataGridView1(10, i).Value = "合格"
　　　　　　　Else
　　　　　　　　　DataGridView1(10, i).Value = "不合格"
　　　　　　　End If
　　　　　　　'講評の表示
　　　　　　　If w >= 350 Then
　　　　　　　　　DataGridView1(11, i).Value = "上位合格です。"
　　　　　　　Else
　　　　　　　　　If w >= 280 Then
　　　　　　　　　　　DataGridView1(11, i).Value = "余裕で合格です。"
　　　　　　　　　Else
　　　　　　　　　　　If w >= 250 Then
　　　　　　　　　　　　　DataGridView1(11, i).Value = "ぎりぎり合格です。"
　　　　　　　　　　　Else
　　　　　　　　　　　　　If w >= 230 Then
　　　　　　　　　　　　　　　　DataGridView1(11, i).Value = "合格まで後一歩。"
　　　　　　　　　　　　　Else
　　　　　　　　　　　　　　　　DataGridView1(11, i).Value = "よく勉強して再挑戦！"
　　　　　　　　　　　　　End If
　　　　　　　　　　　End If
　　　　　　　　　End If
　　　　　　　End If
　　　　　Next

　　　　　'教科合計・平均の算出と表示
　　　　　For i = 1 To 5
　　　　　　　'合計・平均の算出
　　　　　　　w = 0
　　　　　　　For j = 1 To 40
　　　　　　　　　w = w + DataGridView1(i, j).Value
　　　　　　　Next
　　　　　　　'合計・平均の表示
　　　　　　　DataGridView1(i, 41).Value = w
　　　　　　　DataGridView1(i, 42).Value = w / 40
　　　　　Next

　　　　　 '各生徒の最高点・最低点の算出と表示
　　　　　Dim max As Integer, min As Integer
　　　　　For i = 1 To 40
　　　　　　　max = 0
　　　　　　　min = 100
　　　　　　　For j = 1 To 5
　　　　　　　　　If DataGridView1(j, i).Value > max Then max = DataGridView1(j, i).Value
　　　　　　　　　If DataGridView1(j, i).Value < min Then min = DataGridView1(j, i).Value
　　　　　　　Next
　　　　　　　DataGridView1(8, i).Value = max
　　　　　　　DataGridView1(9, i).Value = min
　　　　　Next

　　　　　'各教科の最高点と最低点の算出と表示
　　　　　For i = 1 To 5
　　　　　　　max = 0
　　　　　　　min = 100
　　　　　　　For j = 1 To 40
　　　　　　　　　If DataGridView1(i, j).Value > max Then max = DataGridView1(i, j).Value
　　　　　　　　　If DataGridView1(i, j).Value < min Then min = DataGridView1(i, j).Value
　　　　　　　Next
　　　　　　　DataGridView1(i, 43).Value = max
　　　　　　　DataGridView1(i, 44).Value = min
　　　　　Next

　　 End Sub

End Class

実行結果例




では、皆さん最大値と最小値の求め方を参考に、
順位付けを考えてみましょう。
Form1に順位の列を付け加えます。

列を追加して、Lに順位、Mに講評が出るようにします。


力自慢の方は、次の第９話を見ないでご自分の頭で考えていただいてもいいですが、
これは中級者の方でもかなりの難問だと思います。
第９話で考え方(ヒント)を詳しく説明しますので、
初心者の方は第９話を参照されることをお勧めします。


第７話へ　第９話へ

VC++講義第１部へ
vb講義へ
ＶＢ講義基礎へ

数学研究室に戻る