please use function for the following visual basic program : Public Class frmLG

Question

please use function for the following visual basic program :

Public Class frmLG
Dim Sum As Double
Dim total As Integer
Dim midterm, final As Double

Private Sub btnRecord_Click(sender As Object, e As EventArgs) Handles btnRecord.Click
Dim name As String
Dim course As String
Dim Grade As Double
Grade = CDbl(txtMid.Text)
name = (txtName.Text)
course = (txtCourse.Text)
lstDisplay.Items.Add("Name : " & name)
lstDisplay.Items.Add("course Name is : " & course)
lstDisplay.Items.Add("your Final Grade is : " & Grade)
sum += Grade
total += 1
lstDisplay.Items.Add(Sum / total)

End Sub

Private Sub btnQuit_Click(sender As Object, e As EventArgs) Handles btnQuit.Click
Me.Close()
End Sub

Private Sub btnAve_Click(sender As Object, e As EventArgs) Handles btnAve.Click
Dim ave As Double
Dim midterm As Double
Dim final As Double
midterm = CDbl(txtMid.Text)
final = CDbl(txtFinal.Text)
Sum = midterm + final
ave = Sum / 2
txtAverage.Text = CStr(Math.Round(ave, 0))
If (ave >= 90) Then
txtAverage.Text = "A"
lstDisplay.Items.Add(" your GP is 4. ")
ElseIf (ave >= 80) Then
txtAverage.Text = "B"
lstDisplay.Items.Add(" your GP is 3.")
ElseIf (ave >= 70) Then
txtAverage.Text = "C"
lstDisplay.Items.Add(" your GP is 2.5.")
ElseIf (ave >= 60) Then
txtAverage.Text = "D"
lstDisplay.Items.Add("you GP is 1.")
Else
txtAverage.Text = "F"
lstDisplay.Items.Add(" your GP is 0.")
End If
End Sub

Private Sub btnGradepoint_Click(sender As Object, e As EventArgs) Handles btnGradepoint.Click
Dim letterGrade As String
letterGrade = (txtAverage.Text)
Select Case letterGrade
Case "A"
txtGradePoint.Text = "4"
Case "B"
txtGradePoint.Text = "3"
Case "C"
txtGradePoint.Text = "2.5"
Case "D"
txtGradePoint.Text = "1"
Case Else
txtGradePoint.Text = "0"
End Select
End Sub
End Class

Explanation / Answer

Public Class frmLG
     Dim Sum As Double
     Dim total As Integer
     Dim midterm, final As Double

    Private Sub btnRecord_Click(sender As Object, e As EventArgs) Handles btnRecord.Click
         Dim name As String
         Dim course As String
         Dim Grade As Double
         Grade = CDbl(txtMid.Text)
         name = (txtName.Text)
         course = (txtCourse.Text)
         lstDisplay.Items.Add("Name : " & name)
         lstDisplay.Items.Add("course Name is : " & course)
         lstDisplay.Items.Add("your Final Grade is : " & Grade)
         sum += Grade
         total += 1
         lstDisplay.Items.Add(Sum / total)

    End Sub

    Private Sub btnQuit_Click(sender As Object, e As EventArgs) Handles btnQuit.Click
         Me.Close()
     End Sub

    Private Sub btnAve_Click(sender As Object, e As EventArgs) Handles btnAve.Click
         Dim ave As Double
         Dim midterm As Double
         Dim final As Double
         midterm = CDbl(txtMid.Text)
         final = CDbl(txtFinal.Text)
         Sum = midterm + final
         ave = Sum / 2
         txtAverage.Text = CStr(Math.Round(ave, 0))        
         txtAverage.Text = getGp(ave)
     End Sub

    Private Sub btnGradepoint_Click(sender As Object, e As EventArgs) Handles btnGradepoint.Click
         Dim letterGrade As String
         letterGrade = (txtAverage.Text)
         Select Case letterGrade
             Case "A"
                 txtGradePoint.Text = "4"
             Case "B"
                 txtGradePoint.Text = "3"
             Case "C"
                 txtGradePoint.Text = "2.5"
             Case "D"
                 txtGradePoint.Text = "1"
             Case Else
                 txtGradePoint.Text = "0"
         End Select
     End Sub

Private Sub getGp(Dim ave As Double )
If (ave >= 90) Then
             temp = "A"
             lstDisplay.Items.Add(" your GP is 4. ")
         ElseIf (ave >= 80) Then
             temp = "B"
             lstDisplay.Items.Add(" your GP is 3.")
         ElseIf (ave >= 70) Then
             temp = "C"
             lstDisplay.Items.Add(" your GP is 2.5.")
         ElseIf (ave >= 60) Then
             temp = "D"
             lstDisplay.Items.Add("you GP is 1.")
         Else
             temp = "F"
             lstDisplay.Items.Add(" your GP is 0.")
         End If
         
         return temp
End Sub
End Class

Related Questions

Navigate

• Browse (All)
• Browse P
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.