vb的Select ...... end Select 问题 简单吧?

来源：百度知道 编辑：UC知道 时间：2024/05/31 02:28:56
现在有一个long型变量

要求用select 语句判断这个变量在那个范围以内
比如说 在0-158 之间 或者在159-800之间 还是在801-812之间

怎么写呢?各位高手帮忙一下

Private Sub Form_Click()
Dim lint As Long
lint = 958
Select Case lint
Case 1 To 158
Print "a"
Case 159 To 800
Print "b"
Case 801 To 812
Print "c"
Case Else
Print "wrong"
End Select
End Sub
'其中的语句自己改，这里只是为了测试