在select case 語句中可以使用關系運算符大于>小于<等于=等關系運算符，需要用關鍵字IS和TO。
用個例子來說明：
Private Sub Command1_Click()
Dim age As Integer
age = Text1.Text
Select Case age
Case Is < 14（如果age小于14時）
Label1.Caption = "小朋友，你好！"
Case 14 To 23（如果age在14到23時）
Label1.Caption = "學生朋友，認真讀書吧。"
Case 24 （如果age是24時）
Label1.Caption = "你和我是同齡人"
Case Is > 100 （如果age大于100時）
Label1.Caption = "你真是個老不死！"
Case Else （如果age不滿足以上所有值的范圍時）
Label1.Caption = "按道理我要尊重你。"
End Select End Sub

轉載于:https://www.cnblogs.com/gyc19920704/p/5421105.html

總結

以上是生活随笔為你收集整理的select case语句 is和to用法的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。