Imports System.Windows.forms

Module Module1

    Sub Main()
        Dim grades As String()
        grades = New String(11) {60, 78, 36, 84, 83, 26, 85, 90, 95, 83, 82, 72}
        Dim i As Int16
        Dim output As String

        For i = 0 To 11 Step 1
            grades(i) += 7
            output += grades(i).ToString & vbNewLine
        Next
        MessageBox.Show(output, "計算結果")
    End Sub

End Module