FieldCaculater分类

Dim clas As Integer
Dim s As  Integer
s= CInt([最大水深] )
if s < =0.5  Then
  clas = 0
elseif ( s >0.5  and s <=1) Then
  clas=1
elseif ( s >1  and s <=1.5) Then
  clas=2
elseif ( s >1.5  and s <=2.5) Then
  clas=3
elseif ( s >2.5  and s <=5) Then
  clas=4
elseif ( s >5 ) Then
  clas=5
End if