In this exercise, you create an application that allows the user to enter two items of information for any number of students: whether the student is a freshman or sophomore and the student's GPA. The application should calculate the average GPA for all students, the average GPA for freshmen, and the average GPA for sophomores. Create a Windows Forms application. Use the following names for the project and solution, respectively: GPA Project and GPA Solution. Save the application in the VB$9$e$\backslash$Chap$05$ folder. The application's interface is shown in Figure $5-50.$ The list box should list GPAs from $1\mathrm{.}0$ through $4\mathrm{.}0$ in increments of $0\mathrm{.}1($e$.$g$.,1\mathrm{.}0,1\mathrm{.}1,1\mathrm{.}2,1\mathrm{.}3).$ Code the application. Save the solution and then start and test the application. $($F$5\mathrm{.}1,$ F$5\mathrm{.}2,$ F$5\mathrm{.}5$F$5\mathrm{.}7,$ A$5\mathrm{.}1$A$5\mathrm{.}3).$ I$\text{'}$m attaching what I have coded so far, but calculations aren't being done corrctly. Please help!

Public Class frmMain

Dim allStudentsGpa As Double $=0$

Dim allStudentsCount As Integer $=0$

Dim FreshmanGpa As Double $=0$

Dim SophomoreGpa As Double $=0$

Private Sub btnExit$\_$Click$($sender As Object, e As EventArgs$)$ Handles btnExit.Click

Me$.$Close$()$

End Sub

Private Sub btnCalculate$\_$Click$($sender As Object, e As EventArgs$)$ Handles btnCalculate.Click

Dim gpa As Double

If Double.TryParse$($lstGpa$.$Text, gpa$)$ AndAlso gpa $>=0$ AndAlso gpa Then

Dim isFreshman As Boolean $=$ rbFreshman.Checked

$\text{'}$ Update total GPA and count

allStudentsGpa $+=$ gpa

allStudentsCount $+=1$

$\text{'}$ Update either freshman or sophomore GPA

If isFreshman Then

FreshmanGpa $+=$ gpa

Else

SophomoreGpa $+=$ gpa

End If

$\text{'}$ Display GPA in Listbox

lstGpa.Items.Add$($gpa$)$

$\text{'}$ Clear textboxes

lstGpa.Text $=""$

rbFreshman.Checked $=$ False

rbSophomore.Checked $=$ False

Else

MessageBox.Show$("$Invalid GPA. Please enter a valid GPA between $0$ and $4.")$

End If

$\text{'}$ Calculate averages

If allStudentsCount $>0$ Then

Dim averageAllStudents As Double $=$ allStudentsGpa $/$ allStudentsCount

Dim averageFreshmen As Double $=$ IIf$($allStudentsCount $=0,0,$ FreshmanGpa $/$ allStudentsCount$)$

Dim averageSophomores As Double $=$ IIf$($allStudentsCount $=0,0,$ SophomoreGpa $/$ allStudentsCount$)$

$\text{'}$ Update labels or textboxes to display the averages

lblAllStudents.Text $=$ averageAllStudents.ToString$("$F$2")$

lblFreshmen.Text $=$ averageFreshmen.ToString$("$F$2")$

lblSophomores.Text $=$ averageSophomores.ToString$("$F$2")$

End If

End Sub

End Class