In this exercise, you modify the History Grade application from this chapter’s Focus lesson. Use Windows to make a copy of the History Solution folder. Rename the copy History Solution-Functions. Open the History Solution. sln file contained in the History Solution-Functions folder. Modify the btnDisplay_Click procedure so that it uses two functions named GetGrade101 and GetGrade201 to get the appropriate grade; the procedure should then display the grade in the lblGrade control. Change the two independent Sub procedures to functions that return the appropriate grade to the statements that invoke them in the btnDisplay_Click procedure. Each function should contain a parameter that accepts the total points passed to it. Save the solution and then start and test the application. Option Explicit On
Option Strict On
Option Infer Off
Public Class frmMain
' Independent Sub procedures.
Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay. Click
' Calls independent Sub procedures to display a grade.
End Sub
Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit. Click
Me. Close()
End Sub
Private Sub txtPoints_Enter(sender As Object, e As EventArgs) Handles txtPoints. Enter
txtPoints. SelectAll()
End Sub
Private Sub ClearGrade(sender As Object, e As EventArgs) Handles txtPoints. TextChanged, radHis101.CheckedChanged, radHis201.CheckedChanged
lblGrade. Text = String. Empty
End Sub
Private Sub txtPoints_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPoints. KeyPress
' Accept only numbers and the Backspace key
If (e. KeyChar < "0" OrElse e. KeyChar > "9") AndAlso e. KeyChar <> ControlChars. Back Then
e. Handled = True
End If
End Sub