主题：分数区间代码求助？

有“理论”、“实操”、“评定”三列，

要求：1 “理论”、“实操”都>=90，则“评定”＝4；两个中有任何一个低于90，则按低的那个所在区间算“评定”，比如“理论”= 85 ，“实操”=90，则“评定”=3

        2 “理论”、“实操”都 90 >且>=80，则“评定”＝3；两个中有任何一个低于80，则按低的那个所在区间算“评定”，比如“理论”= 79 ，“实操”=82，则“评定”=2

        3 “理论”、“实操”都 80 >且>=60，则“评定”＝2；两个中有任何一个低于60，则按低的那个所在区间算“评定”，比如“理论”= 55 ，“实操”=90，则“评定”=1

以下代码该怎么修改：

Select Case e.DataCol.Name
    Case "理论成绩","实操成绩","评定成绩"
        If 70 > e.DataRow("理论成绩") >= 60 And 70 >e.DataRow("实操成绩") >= 60 Then
            e.DataRow("评定成绩") = "2"
        Else If 90 > e.DataRow("理论成绩") >=80 And 90 > e.DataRow("实操成绩") >= 80 Then
            e.DataRow("评定成绩") = "3"
        Else If e.DataRow("理论成绩") >= 90 And e.DataRow("实操成绩") >= 90 Then
            e.DataRow("评定成绩") = "4"
        End If
End Select