You are to write a program to process student grades. Each student takes four courses: Math, CS$,$ English, Business. The data are stored in a file $($exam$.$txt$),$ where the first line contains the subject of four courses, followed by each line consisting of the name of student $($First Name, Last Name$),$ student ID$,$ which is $9$ digit string, and the scores of four courses that each student is taking.

The input file contains the following data:

Math, CS$,$ English, Business

Jon, Benson, $123456789,90,80,70,80$

Brian, Gause, $100000001,88,77,66,99$

Ron, Heath, $204568762,77,66,88,93$

June, King,$332549873,80,91,77,75$

Luke, Savon, $100045423,68,87,81,91$

Tom, McClure, $286453218,77,88,60,90$

Matt, Liskov,$438763298,43,68,70,63$

Matthew, Moses,$550550005,69,59,88,81$

Justin, York,$432876489,93,86,73,55$

Use the OpenFileDialog control to open the file and read the data into your program. Then, show the whole data in a tabular format like this in a list box. You don't need to show the lines. Just be sure to format the output properly.

$\backslash$table$[[$First$,$Last,ID$,$Math,CS$,$English,Business$],[$Jon$,$Benson,$123456789,90,80,70,80],[$Brian$,$Gause,$100000001,88,77,66,99],[$Ron$,$Heath,$204568762,77,66,88,93],[$June$,$King,$332549873,80,91,77,75],[$Luke$,$Savon,$100045423,68,87,81,91],[$Tom$,$McClure,$286453218,77,88,60,90],[$Matt$,$Liskov,$438763298,43,68,70,63],[$Matthew$,$Moses,$550550005,69,59,88,81],[$Justin$,$York,$432876489,93,86,73,55]]$

Show the course average for each course. There should be one decimal digit.

$\backslash$table$[[$Course average,$],[$Math:$,76\mathrm{.}1],[$CS:$,78\mathrm{.}0],[$English:$,74\mathrm{.}8],[$Business:$,80\mathrm{.}8]]$

You can use the GUI that looks like the following.

Use the following data types and code templates.Dim studs$(100)$ As Student$0$Private Sub Form$1\_$Load$($sender As Object, e As EventArgs$)$ Handles MyBase.Load

OpenFileDialog$1.$ShowDialog$()$

Dim filename $=$ OpenFileDialog$1.$FileName

Dim srVar As IO$.$StreamReader $=$ TO$.$File.OnenText$($filename$)$

$($D$)$

$\backslash$table$[[00],[000]]$

$0=$

$0=$

$3$