การบ้าน ด่วน ที่ สุด วันนี้ 24 มค. 53

Module Module1




Sub main()

Dim S As Integer

Console.Write("Enter Score (0-100): ")

S = Console.ReadLine

Console.WriteLine("You Grade = " & G(S))

End Sub



Function G(ByVal Sc As Integer) As Char

Dim Grade As Char

Select Case Sc

Case Is >= 80 : Grade = "A"

Case 70 To 79 : Grade = "B"

Case 60 To 69 : Grade = "C"

Case 50 To 59 : Grade = "D"

Case Else : Grade = "F"

End Select

G = Grade

End Function



End Module