vb多重选择语句

Question

vb6里有个"select case“的多重选择语句，用来表达选择一个条件成立比较简单，谁知道怎么用这个语句表达两个语句同时成立的方法（比如B小于A而且不大于C 这样的）？知道的帮忙，有加分

Answer 1

Private Sub Command1_Click()
Dim a, b, c As Integer
a = InputBox("请输入水井的深度")
b = InputBox("请输入青蛙白天上爬的距离")
c = InputBox("请输入青蛙晚上下滑的距离")
Select Case b
Case Is >= a
Print "这只青蛙只需要不到一天就可以爬出" & a & "米深的井！"
Case Is < a
If b <= c Then
Print "这只青蛙永远爬不出这口井！"
Else
Print "这只青蛙需要" & a / (b - c) & "天才可以爬出" & a & "米深的井！"
End If
End Select
End Sub

Answer 2

select case bcase is < a 'B小于A if b <= c then 'B不大于C '加起来就是B小于A而且不大于Cend select

Answer 3

比如t = B < A And b < = C 后面再 Select case tCase Is True

Answer 4

一定要用select case 吗? 用if...then 不行的 ?