Imports System

Imports Microsoft.VisuaLBasic

​

Public Module Module1

​

    Public Sub Main()

        Dim rangeLimit() as Double = {50.0, 65.0, 75.0, 90.0, 100.0}

        Dim grade() as String = {"F", "D", "C", "B", "A"}

        Dim maxGradeLevel = grade.length - 1

​

        Dim gradeLevel = 0

        Dim studentGrade = "A"

        Dim studentScore = 50

​

        While((studentGrade = "A") and (gradeLevel < maxGradeLevel))

            if(studentScore < rangeLimit(gradeLevel)) then

                studentGrade = grade(gradeLevel)

            End if

            gradeLevel = gradeLevel + 100

        End While

        Print(studentGrade)

    End Sub

End Module

​