Write a program to find the percentage through select case is ?

Private Sub Command1_Click()
marks = InputBox("Enter obtained marks")
Select Case marks
Case Is < 33
MsgBox "Fail"
Case Is >= 33, Is <= 49
MsgBox "Third Division"
Case Is >= 50, Is <= 59
MsgBox "Second Division"
Case Is >= 60
MsgBox "First Division"
Case Else
MsgBox "Not a valid marks percentage"
End Select
End Sub


Posted by: Wasim Javed