Question

Visual Basic 2017: Create a program to do the following:

Fill a string array with the grades from a file with the statement: (note the grades.txt is on moodle and must be placed in the project’s bin/Debug folder for proper execution) Dim GradeStr() As String = IO.File.ReadAllLines(“grades.txt”)

Then do the following steps:

• Dim another array called Grades() of type double to the same size as the string array

• Convert and copy each element from the string array GradeStr() to the array Grades() of type double

• Display the average grade in the Grades() array, formatted for 1 number after the decimal

• Display how many grades are 90 and above in the Grades() array

Answer 1

Application Name :VB_Grades_Application

Type of Application :Console Application

Language Used :VB

Module1.vb :

Module Module1

Sub Main()
Dim GradeStr() As String = IO.File.ReadAllLines("grades.txt")
Dim Grades(GradeStr.Length) As Double
'using for loop
For i = 0 To GradeStr.Length - 1
'convert each element from GradeStr to double
'and store it in the Grades array
Grades(i) = Double.Parse(GradeStr(i))
Next
'display average of grades array
Console.WriteLine("Average of Scores : " & Grades.Average().ToString("0.0"))
Dim count As Integer 'variable used to store count
'checking how many grades are 90 and above
'using for loop
For i = 0 To GradeStr.Length - 1
If Grades(i) >= 90 Then
'increment count
count = count + 1
End If
Next
'print number of scores grades are 90 and above
Console.WriteLine("Number of Grades greater than or equal to 90 : " & count)
End Sub

End Module
===============================================

Output :

Screen 1:grades.txt

Screen 2: