Question

I need help regarding my Visual Basic code

ISC/ITE 285 Homework Due: Monday, January 28 by 11:55 pm Create a text file named "Grades.txt" which will contain a list of numeric grades. Save the file in the projects Bin/Debug folder. A sample of the file contents is shown below: 80 96 95 86 54 97 Create a string array that will be populated from the file "Grades.txt" when the array is created (Class-level array). Also create a numeric array that will hold the same values as the string array but as data type of Double. At load time, use the ReDim statement to size the numeric array and a For loop to give it values (using the information that was loaded into the string array) Note: Using the step above, once the form becomes available, both arrays will have been created and populated Code the three button click events shown on the form below: Text Files List All Grades Traverse (read through) the numeric array and list all values in the listbox Display Statistics Display the highest grade, lowest grade, and average of all grades in the listbox List All with Given Grade - Ask the user to enter a letter grade (A, B, C D, or F). Traverse the numeric array and list all numeric values that would receive the given grade. At the end of the list, give a total count of the number of students who would receive the given grade List All Grades Display Statistics List All with Given Grade Notes: With this lab, you may use functions and subprocedures as you see fit. No data validation is required.

Answer 1

Below is the solution:

Imports System.IO

Public Class frmMain
    Dim strFileLine As String
    Dim arrLines As New ArrayList() 'array list to store value
    Dim objReader As System.IO.StreamReader
    Dim iRowCount As Integer = 0 ' Variable to hold the total

    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub

    Private Sub btnListAllGrades_Click(sender As Object, e As EventArgs) Handles btnListAllGrades.Click
        lstOutput.Items.Clear() 'clear list items
        'check the file on button click load if exist
        'give the proper path of the file
        Dim fileReader As String = "MacHomeDocumentsVisual Studio 2017VBStudentGradeFileStudentGradeFileinDebugGrades.txt" 'For checking the file exist or not
        MessageBox.Show(If(File.Exists(fileReader), "File exists.", "File does not exist.")) 'Message give you file exist

        If System.IO.File.Exists(fileReader) = True Then
            ' read the file's lines into an ArrayList
            objReader = New System.IO.StreamReader(fileReader)
            Do While objReader.Peek() <> -1
                'add the file item to arraylist and listbox
                strFileLine = objReader.ReadLine()
                arrLines.Add(strFileLine)
                lstOutput.Items.Add(strFileLine)
            Loop
            objReader.Close() 'close reader
        Else
            MessageBox.Show(fileReader & " File does not exist") 'message file doesnot exist
        End If
    End Sub

    Private Sub btnDisplayStatistics_Click(sender As Object, e As EventArgs) Handles btnDisplayStatistics.Click
        lstOutput.Items.Clear() 'clear list items
        'check the file on button click load if exist
        Dim fileReader As String = "MacHomeDocumentsVisual Studio 2017VBStudentGradeFileStudentGradeFileinDebugGrades.txt" 'For checking the file exist or not
        MessageBox.Show(If(File.Exists(fileReader), "File exists.", "File does not exist.")) 'Message give you file exist

        If System.IO.File.Exists(fileReader) = True Then
            ' read the file's lines into an ArrayList
            objReader = New System.IO.StreamReader(fileReader)
            Do While objReader.Peek() <> -1
                'add the file item to arraylist and listbox
                strFileLine = objReader.ReadLine()
                arrLines.Add(strFileLine)

            Loop
            Dim sum As Integer = 0
            Dim min As Integer = Integer.MaxValue, max As Integer = Integer.MinValue, Value As Integer = 0
            sum = arrLines(0)
            For i As Integer = 1 To arrLines.Count - 1
                Value = arrLines(i)

                If Value < min Then
                    min = Value
                End If

                If Value > max Then
                    max = Value
                End If
                sum = sum + arrLines(i)

            Next
            objReader.Close() 'close reader
            lstOutput.Items.Add("Maximum is: " & max)
            lstOutput.Items.Add("Minimum is: " & min)
            lstOutput.Items.Add("Average is: " & sum / arrLines.Count)
        Else
            MessageBox.Show(fileReader & " File does not exist") 'message file doesnot exist
        End If
    End Sub

    Private Sub btnListAllwithGivenGrades_Click(sender As Object, e As EventArgs) Handles btnListAllwithGivenGrades.Click

    End Sub
End Class

output: