WAP to find grade

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
a = InputBox("Enter first value", "first value")
b = InputBox("Enter second value", "second value")
c = InputBox("Enter third value", "third value")
d = InputBox("Enter fourth value", "fourth value")
e = InputBox("Enter fifth value", "fifth value")
If a < 70 Then
MsgBox ("Fail")
ElseIf a < 80 Then
MsgBox ("Grade=c")
ElseIf a < 90 Then
MsgBox ("Grade=b")
Else
MsgBox ("Grade=a")
End If
End Sub


Posted by: Wasim Javed