Question

在VB中如何简化过多嵌套的if语句？

像下面这种嵌套了很多if语句，有办法简化吗
If B(e) <= 10 Then
s1 = s1 + 1
Else
If B(e) <= 20 Then
s2 = s2 + 1
Else
If B(e) <= 50 Then
s3 = s3 + 1
Else
If B(e) <= 100 Then
s4 = s4 + 1
Else
If B(e) <= 1000 Then
s5 = s5 + 1
Else
If B(e) <= 10000 Then
s6 = s6 + 1
Else
If B(e) <= 100000 Then
s7 = s7 + 1
End If
End If
End If
End If
End If
End If
End If

Answer 1

何必用VB,直接操作就可以，选定A5到B100，假设100行数据，然后-编辑-定位-定位条件的空值，然后在编辑栏内输入 = ，最后按CTRL+回车即可

Answer 2

方法一
If B(e) <= 10 Then
s1 = s1 + 1
ElseIf B(e) <= 20 Then
s2 = s2 + 1
ElseIf B(e) <= 50 Then
s3 = s3 + 1
ElseIf B(e) <= 100 Then
s4 = s4 + 1
ElseIf B(e) <= 1000 Then
s5 = s5 + 1
ElseIf B(e) <= 10000 Then
s6 = s6 + 1
ElseIf B(e) <= 100000 Then
s7 = s7 + 1
End If

方法二
select case B(e)
case <= 10 
    s1 = s1 + 1
case 10 to 20 
    s2 = s2 + 1
case 20 to 50 
    s3 = s3 + 1
case 50 to 100 
    s4 = s4 + 1
case 100 to 1000 
    s5 = s5 + 1
case 1000 to 10000 
    s6 = s6 + 1
case 10000 to 100000 
    s7 = s7 + 1
end select

Answer 3

If B(e) <= 10 Then
s1 = s1 + 1
ElseIf B(e) <= 20 Then
s2 = s2 + 1
ElseIf B(e) <= 50 Then
s3 = s3 + 1
ElseIf B(e) <= 100 Then
s4 = s4 + 1
ElseIf B(e) <= 1000 Then
s5 = s5 + 1
ElseIf B(e) <= 10000 Then
s6 = s6 + 1
ElseIf B(e) <= 100000 Then
s7 = s7 + 1
End If