主题：如何根据数值来进行等级划分

做个按钮，代码为：

Dim vals() As Double = {0.1,0.35,0.75,0.95}
Dim cnt As Integer = DataTables("表A").DataRows.count
Dim drs As List (of DataRow) = DataTables("表A").Select("","分数 Desc")
For i As Integer = 0 To drs.count - 1
    Dim v As Integer = i /cnt
    If v > vals(3) Then
        drs(i)("等级") = "E"
    ElseIf v > vals(2) Then
        drs(i)("等级") = "D"
    ElseIf v > vals(1) Then
        drs(i)("等级") = "C"
    ElseIf v > vals(0) Then
        drs(i)("等级") = "B"
    Else
        drs(i)("等级") = "A"
    End If
Next