Imports System

Imports System.Linq

​

Public Module Module1

    Public Sub Main()

        Dim studentScore As Double = 50.0

        Console.WriteLine(GetGrade(studentScore))

    End Sub

    Public Function GetGrade(score As Double) As String

        Dim gradeTable = { 

            (50.0, "F"), 

            (65.0, "D"), 

            (75.0, "C"), 

            (90.0, "B"), 

            (100.0, "A") 

        }

        Return gradeTable.First(Function(g) g.Item1 >= Score).Item2

    End function

End Module