主题：[求助]积分转换

Dim Mark As Integer = 65
Dim Result As String
Select Case Mark
    Case 0 To 40
        Result = "E"
    Case 41 To 60
        Result = "D"
    Case 61 To 70
        Result = "C"
    Case 71 To 90
        Result = "B"
    Case 91 To 100
        Result = "A"
End Select

类似这样的，但是在我这里怎么写？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:积分礼品.table