The application should display a letter grade, which is based on the average of
ID: 3530074 • Letter: T
Question
The application should display a letter grade, which is based on the average of three test scores. If the average is at least a 90 the grade is A. If the average is at least an 80 but less then 90 the grade is B if the average is at least a 70 but less then 80 the grade is C . if the average is at least 60 but less then 70 the grade is D if the average is below 60 the grade is an F . Code the application using an independent Sub prcedure to both determine and display the letter grade.
my Code box look like this. but missing the code.
Public
Class frmMain
Private Function CalculateGrade _
(
ByVal testScore1 As Decimal, ByVal testScore2 As Decimal, _
ByVal
testScore3 As Decimal) As String
End Function
?
Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
Private Sub txtTest1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTest1.KeyPress
' allows the text box to accept only numbers, the period, and the Backspace key
If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> ControlChars.Back Then
e.Handled =
True
End If
End Sub
Private Sub txtTest2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTest2.KeyPress
' allows the text box to accept only numbers, the period, and the Backspace key
If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> ControlChars.Back Then
e.Handled =
True
End If
End Sub
Private Sub txtTest3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTest3.KeyPress
' allows the text box to accept only numbers, the period, and the Backspace key
If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> ControlChars.Back Then
e.Handled =
True
End If
End Sub
Private Sub txtTest1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTest1.TextChanged
lblGrade.Text =
String.Empty
End Sub
Private Sub txtTest2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTest2.TextChanged
lblGrade.Text =
String.Empty
End Sub
Private Sub txtTest3_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTest3.TextChanged
lblGrade.Text =
String.Empty
End Sub
Private Sub lblGrade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblGrade.Click
End Sub
Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click
End Sub
End
Class
Explanation / Answer
Please rate with 5 stars :) I have written the complete code for you :)
Related Questions
drjack9650@gmail.com
Navigate
Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.