Public Class mainForm
    'module-level array
    Private gradeValues(0) As String
    Private Sub exitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitButton.Click
        Me.Close()
    End Sub

    Private Sub enterButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enterButton.Click
        'allows users to enter grades
        ' stores the grades in the module-level
        ' gradeValues array
        
        Dim gradeValues(0) As String
        gradeValues(0) = InputBox("Enter number of grades to be entered. Click Cancel to end.", "Number of Grades", "0")



        For subscript As Integer = 0 To gradeValues.Length - 1
            gradeValues(subscript) = InputBox("Grade Value:", "Grade Values")

        Next subscript
    End Sub

    Private Sub calculateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calculateButton.Click
        'displays grades and calculated average grade
        Dim gradeValues() As Integer = {}
        Dim gradeAccumulator As Integer
        Dim averageGrade As Double
        ' accumulates total grades
        For Each grade As Integer In gradeValues
            gradeAccumulator = gradeAccumulator + grade
        Next grade
        '  displays grades and calculates  average grade
        For Each grade As String In gradeValues
            gradeLabel.Text = gradeLabel.Text & grade & ControlChars.NewLine
        Next grade
        averageGrade = gradeAccumulator / gradeValues.Length
        avggradeLabel.Text = Convert.ToString(averageGrade)



    End Sub
End Class

Public Class Form1

    ' class level array declaration
    Private gradeValues() As String

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'declare an Integer variable to hold user response to the InputBox
        Dim numGrades As Integer

        'store the user response
        numGrades = InputBox("Enter number of grades to be entered. Click Cancel to end.", "Number of Grades", "0")

        'ReDim the array using the total grades - 1
        'Need to subtract one, because you are declaring the highest index number
        'of the array, not the total elements as in most other languages
        ReDim gradeValues(numGrades - 1)

    End Sub
End Class

        'ReDim the array using the total grades - 1
        'Need to subtract one, because you are declaring the highest index number
        'of the array, not the total elements as in most other languages
        ReDim Preserve gradeValues(numGrades - 1)

Option Strict On
Imports System.IO


Public Class Form1

    Dim Horas(31, 7) As Integer
    Dim Totals(7) As Integer


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Loads info from txt file to array
        Dim diasinteger As Integer
        Dim MinisterioStreamReader As New StreamReader("Ministerio.txt")

        Do While MinisterioStreamReader.Peek <> -1
            Dim row As String = MinisterioStreamReader.ReadLine

            Horas(diasinteger, 7) = CInt(Horas(diasinteger, 1) & _
            Horas(diasinteger, 2) & _
            Horas(diasinteger, 3) & _
            Horas(diasinteger, 4) & _
            Horas(diasinteger, 5) & _
            Horas(diasinteger, 6))
        Loop

        MinisterioStreamReader.Close()


    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        'Saves input into array
        Dim diasinteger As Integer

        If diasinteger <> -1 Then
            diasinteger = Integer.Parse(cboDias.Text)
            Horas(diasinteger, 1) = Integer.Parse(txtLibros.Text)
            Horas(diasinteger, 2) = Integer.Parse(txtFolletos.Text)
            Horas(diasinteger, 3) = Integer.Parse(txtH.Text)
            Horas(diasinteger, 4) = Integer.Parse(txtM.Text)
            Horas(diasinteger, 5) = Integer.Parse(txtRev.Text)
            Horas(diasinteger, 6) = Integer.Parse(txtRvsitas.Text)

            'Clears text boxes for new entry
            txtLibros.Text = ""
            txtFolletos.Text = ""
            txtH.Text = ""
            txtM.Text = ""
            txtRev.Text = ""
            txtRvsitas.Text = ""

            'Saves Array info to text file

            Dim MinisterioStreamWriter As New StreamWriter("Ministerio.txt")
          
            For diasinteger = 1 To 31
                MinisterioStreamWriter.WriteLine(Horas(diasinteger, 1) & _
                Horas(diasinteger, 2) & _
                Horas(diasinteger, 3) & _
                Horas(diasinteger, 4) & _
                Horas(diasinteger, 5) & _
                Horas(diasinteger, 6))
            Next

            MinisterioStreamWriter.Close()
        Else
            MessageBox.Show("Favor de seleccionar Dia", "Dia no esta seleccionado", MessageBoxButtons.OKCancel, _
            MessageBoxIcon.Exclamation)
        End If
    End Sub