数值判断的问题？

XWQ2000

检验批量





抽取样本量

















1～10





Ｎ











11～50





10











51～99





13











100～500





50











501～3200





80





根据上表  当我在窗体中输入相应的检验批量时同时得出抽取样本量，请问这段代码任何写？


谢谢

andymark

select case 检验批量


case 1 to 10


抽取样本=N


case 11 to 50


抽取样本=10


case 51 to 99


抽取样本=13


case 100 to 500


抽取样本=50


case 501 to 3200


抽取样本=80


end select

XWQ2000

谢谢

我是用

If Me.批量 < 51 And Me.批量 > 11 Or Me.批量 = 11 Then
Me.样本量 = 10
End If

If Me.批量 < 100 And Me.批量 > 51 Or Me.批量 = 51 Then
Me.样本量 = 13
End If

If Me.批量 < 501 And Me.批量 > 99 Then
Me.样本量 = 50
End If
End Sub