if then endif如何用Select case表述
数据源
if ii > 50 and ii < 100 then
x = 50
end if

目标需求，如何按这个条件用Select case 表达


Select Case ii
Case 10 To 50
x = 50
Case 50, 100
x = 100
End Select
原来记得用to来表示区间，不知哪有点问题，没通过．

[解决办法]
不存在楼主说的问题：

VB code

Private Sub Command1_Click()    For ii = 10 To 300        Select Case ii          Case 10 To 50               x = 50          Case 65 To 125               x = 150          Case 150 To 300               x = 300        End Select        Print x;        If ii Mod 30 = 0 Then Print    NextEnd Sub
[解决办法]
你是怀疑语法问题？怎么会啊？

VB code
Private Sub Command1_Click()    Dim i As Integer, j As Integer    i = 75    Select Case i        Case 50 To 100            j = 50        Case Else            '    End Select        MsgBox jEnd Sub