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

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

        For i = 0 To 3
            '見出しを入れる
            If i = 0 Then DataGridView1(0, 47 * i).Value = "１学期"
            If i = 1 Then DataGridView1(0, 47 * i).Value = "２学期"
            If i = 2 Then DataGridView1(0, 47 * i).Value = "３学期"
            If i = 3 Then DataGridView1(0, 47 * i).Value = "１年間"

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

            '行見出し
            DataGridView1(0, 42 + 47 * i).Value = "合計　"
            DataGridView1(0, 43 + 47 * i).Value = "平均　"
            DataGridView1(0, 44 + 47 * i).Value = "最高点"
            DataGridView1(0, 45 + 47 * i).Value = "最低点"
        Next


        '出席番号とランダムデータの発生
        Dim a(3, 39, 6) As Integer, k As Integer
        For i = 0 To 3
            For j = 1 To 40
                a(i, j - 1, 0) = j
            Next
        Next
        For i = 0 To 2
            For j = 1 To 40
                For k = 1 To 5
                    a(i, j - 1, k) = Int(101 * Rnd())
                Next
            Next
        Next

        '出席番号とランダムデータをDataGridViewに表示させる
        For i = 0 To 3
            For j = 1 To 40
                DataGridView1(0, i * 47 + j + 1).Value = a(i, j - 1, 0)
            Next
        Next
        For i = 0 To 2
            For j = 1 To 40
                For k = 1 To 5
                    DataGridView1(k, i * 47 + j + 1).Value = a(i, j - 1, k)
                Next
            Next
        Next

        '各学期合計値・平均値の算出・表示
        For i = 0 To 2
            For j = 1 To 40
                a(i, j - 1, 6) = 0
                For k = 1 To 5
                    a(i, j - 1, 6) = a(i, j - 1, 6) + a(i, j - 1, k)
                Next
                DataGridView1(6, i * 47 + j + 1).Value = a(i, j - 1, 6)
                DataGridView1(7, i * 47 + j + 1).Value = a(i, j - 1, 6) / 5
            Next
        Next

        '各学期合計値・平均値の算出・表示
        Dim max As Integer, min As Integer
        For i = 0 To 2
            For j = 1 To 40
                max = 0
                min = 100
                For k = 1 To 5
                    If a(i, j - 1, k) > max Then max = a(i, j - 1, k)
                    If a(i, j - 1, k) < min Then min = a(i, j - 1, k)
                Next
                DataGridView1(8, i * 47 + j + 1).Value = max
                DataGridView1(9, i * 47 + j + 1).Value = min
            Next
        Next

        '各学期合否・講評の算出・表示
        For i = 0 To 2
            For j = 1 To 40
                If a(i, j - 1, 6) >= 250 Then DataGridView1(11, i * 47 + j + 1).Value = "合格"
                If a(i, j - 1, 6) < 250 Then DataGridView1(11, i * 47 + j + 1).Value = "不合格"
            Next
            For j = 1 To 40
                If a(i, j - 1, 6) >= 350 Then DataGridView1(12, i * 47 + j + 1).Value = "上位合格です。"
                If a(i, j - 1, 6) < 350 And a(i, j - 1, 6) >= 280 Then DataGridView1(12, i * 47 + j + 1).Value = "余裕で合格です。"
                If a(i, j - 1, 6) < 280 And a(i, j - 1, 6) >= 250 Then DataGridView1(12, i * 47 + j + 1).Value = "ぎりぎり合格です。"
                If a(i, j - 1, 6) < 250 And a(i, j - 1, 6) >= 230 Then DataGridView1(12, i * 47 + j + 1).Value = "合格まで後一歩です。"
                If a(i, j - 1, 6) < 230 Then DataGridView1(12, i * 47 + j + 1).Value = "よく勉強して再挑戦！"
            Next
        Next

        '各学期各教科の合計・平均の算出・表示
        For i = 0 To 2
            For j = 1 To 6
                w = 0
                For k = 1 To 40
                    w = w + a(i, k - 1, j)
                Next
                DataGridView1(j, i * 47 + 42).Value = w
                DataGridView1(j, i * 47 + 43).Value = w / 40
            Next
            DataGridView1(7, i * 47 + 42).Value = DataGridView1(6, i * 47 + 42).Value / 5
            DataGridView1(7, i * 47 + 43).Value = DataGridView1(7, i * 47 + 42).Value / 40
        Next

        '各学期各教科の最高点・算出の算出・表示
        For i = 0 To 2
            For j = 1 To 6
                max = 0
                min = 500
                For k = 1 To 40
                    If a(i, k - 1, j) > max Then max = a(i, k - 1, j)
                    If a(i, k - 1, j) < min Then min = a(i, k - 1, j)
                Next
                DataGridView1(j, i * 47 + 44).Value = max
                DataGridView1(j, i * 47 + 45).Value = min
            Next
        Next

        '各学期の並び替え
        Dim bn As Integer, w1 As String
        For i = 0 To 2
            For j = 40 To 2 Step -1
                min = 500
                For k = 1 To j
                    If a(i, k - 1, 6) < min Then
                        min = a(i, k - 1, 6)
                        bn = k
                    End If
                Next
                For k = 0 To 6
                    w = a(i, bn - 1, k)
                    a(i, bn - 1, k) = a(i, j - 1, k)
                    a(i, j - 1, k) = w
                Next
                For k = 0 To 12
                    w1 = DataGridView1(k, i * 47 + bn + 1).Value
                    DataGridView1(k, i * 47 + bn + 1).Value = DataGridView1(k, i * 47 + j + 1).Value
                    DataGridView1(k, i * 47 + j + 1).Value = w1
                Next
            Next
        Next

        '各学期順位付け
        For i = 0 To 2
            For j = 1 To 40
                DataGridView1(10, i * 47 + j + 1).Value = j
            Next
            For j = 2 To 40
                If a(i, j - 1, 6) = a(i, j - 2, 6) Then DataGridView1(10, i * 47 + j + 1).Value = DataGridView1(10, i * 47 + j).Value
            Next
        Next

        '各学期出席番号順並び替え
        For i = 0 To 2
            For j = 40 To 2 Step -1
                max = 0
                For k = 1 To j
                    If a(i, k - 1, 0) > max Then
                        max = a(i, k - 1, 0)
                        bn = k
                    End If
                Next
                For k = 0 To 6
                    w = a(i, bn - 1, k)
                    a(i, bn - 1, k) = a(i, j - 1, k)
                    a(i, j - 1, k) = w
                Next
                For k = 0 To 12
                    w1 = DataGridView1(k, i * 47 + bn + 1).Value
                    DataGridView1(k, i * 47 + bn + 1).Value = DataGridView1(k, i * 47 + j + 1).Value
                    DataGridView1(k, i * 47 + j + 1).Value = w1
                Next
            Next
        Next


    End Sub

End Class