在select case 语句中可以使用关系运算符大于>小于<等于=等关系运算符,需要用关键字is和to,select case的用法示例:

Dim money As Integer
money = Text1.Text
Select Case money
Case Is < 1000(如果钱小于1000时)
Label1.Caption ="屌丝一个"
Case 1000 To 2000(如果钱在1000-2000时)
Label1.Caption = "有点样子。"
Case Is > 2000 (如果钱大于2000时)
Label1.Caption = "土豪一个!"
Case Else (以上都不满足)
Label1.Caption = "错误"
End Select
End Sub

相关文章:

  • 2021-05-07
  • 2022-12-23
  • 2022-01-14
  • 2021-10-27
  • 2021-10-22
  • 2021-10-20
  • 2021-06-14
猜你喜欢
  • 2022-12-23
  • 2022-12-23
  • 2021-06-30
  • 2022-01-10
  • 2022-12-23
  • 2021-11-18
  • 2022-12-23
相关资源
相似解决方案