Module

Module Module1


Dim i, j, score(5, 4), TotalScore As Integer

Dim Id(10) As String

Dim Grade As Char

Sub Main()

Console.WriteLine("Please Enter Score of 10 Student")

Console.WriteLine("----------------------------------------------")

For i = 0 To 4

Console.Write("Student# " & i + 1 & " id: 52010913")

Id(i) = Console.ReadLine

For j = 0 To 3

Console.Write("Score#" & j + 1 & " <0-25> : ")

score(i, j) = Console.ReadLine

Next

Next



Console.WriteLine("Report Score of S Student")

Console.WriteLine("----------------------------------------------")

Console.WriteLine("Item ID Total Score Grade")

Console.WriteLine("----------------------------------------------")

For i = 0 To 4

Console.Write(i + 1 & ". " & Id(i))

TotalScore = 0

For j = 0 To 3

TotalScore += score(i, j)

Next

Console.Write(" " & TotalScore)

Grade = calGrade(TotalScore)

Console.WriteLine(" " & Grade)

Next



End Sub

Function calGrade(ByVal Sc As Integer) As Char

Dim fnGrade As Char

Select Case Sc

Case Is >= 80

fnGrade = "A"

Case 70 To 79

fnGrade = "B"

Case 60 To 69

fnGrade = "C"

Case 50 To 59

fnGrade = "D"

Case Else

fnGrade = "F"

End Select

calGrade = fnGrade

End Function



End Module