Sub exaIfThen()
Dim intGrade As Integer
intGrade = Val(InputBox("Enter student's average test score: "))
If intGrade >= 90 Then
MsgBox "You get an A"
ElseIf intGrade >= 80 Then
MsgBox "You get a B"
ElseIf intGrade >= 70 Then
MsgBox "You get a C"
ElseIf intGrade >= 60 Then
MsgBox "You get a D"
Else
MsgBox "Too bad"
End If
End Sub
|