fork download
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim marks As Integer
  6. Dim grade As String
  7.  
  8. marks = 88
  9.  
  10. If marks > 89 Then
  11. grade = "A+"
  12. ElseIf marks > 84
  13. grade = "A"
  14. ElseIf marks > 79
  15. grade = "A-"
  16. ElseIf marks > 76
  17. grade = "B+"
  18. ElseIf marks > 72
  19. grade = "B"
  20. ElseIf marks > 69
  21. grade = "B-"
  22. ElseIf marks > 66
  23. grade = "C+"
  24. ElseIf marks > 62
  25. grade = "C"
  26. ElseIf marks > 59
  27. grade = "C-"
  28. ElseIf marks > 49
  29. grade = "D"
  30. Else
  31. grade = "F"
  32. End If
  33.  
  34. Console.WriteLine(marks)
  35. Console.WriteLine(grade)
  36. End Sub
  37. End Class
Success #stdin #stdout 0.07s 13456KB
stdin
Standard input is empty
stdout
88
A