像这样逻辑简单的程序中，Case语句在易读性上还是优于If语句的

代码改写如下：

If a > 0 And b > 0 Then

    Select Case True

        Case c >= 13.0                  D = 0.97

        Case c >= 12.0 And c < 13.0     D = 0.92

        Case c >= 11.0 And c < 12.0     D = 0.87

        Case c >= 10.0 And c < 11.0     D = 0.83

        Case c >= 9.0 And c < 10.0      D = 0.78

        Case c >= 8.0 And c < 9.0       D = 0.73

        Case c >= 7.0 And c < 8.0       D = 0.67

        Case c >= 6.0 And c < 7.0       D = 0.63

        Case c >= 5.0 And c < 6.0       D = 0.58

        Case c >= 4.0 And c < 5.0       D = 0.53

        Case c >= 3.0 And c < 4.0       D = 0.47

        Case c >= 2.0 And c < 3.0       D = 0.43

        Case c >= 1.0 And c < 2.0       D = 0.38

        Case Else                       D = e

    End Select

End If

运行结果是一样的

你给的条件是  整数＜c<整数，严格来说整数值都不应该包含，DeepSeek给出的答案中做了调整，使得整数值包含进去，更符合常规逻辑