条件判断区间的代码

lrlxxqxa

条件判断区间的代码：

1. 
   
2. Sub if多条件判断()
   
3.     If [a2] < 1000 Then
   
4.         [b2] = 50
   
5.     ElseIf [a2] < 3000 Then
   
6.         [b2] = 100
   
7.     ElseIf [a2] < 5000 Then
   
8.         [b2] = 300
   
9.     ElseIf [a2] < 8000 Then
   
10.         [b2] = 400
    
11.     Else
    
12.         [b2] = 500
    
13.     End If
    
14. End Sub

复制代码

1. Sub select多条件判断()
   
2. Select Case [a2]
   
3. Case 0 To 999
   
4. [b2] = 50
   
5. Case 1000 To 2999
   
6. [b2] = 100
   
7. Case 3000 To 4999
   
8. [b2] = 300
   
9. Case 5000 To 7999
   
10. [b2] = 400
    
11. Case Is >= 8000
    
12. [b2] = 500
    
13. End Select
    
14. End Sub

复制代码

1. Sub select多条件判断2()
   
2. Select Case [a2]
   
3. Case Is < 1000
   
4. [b2] = 50
   
5. Case Is < 3000
   
6. [b2] = 100
   
7. Case Is < 5000
   
8. [b2] = 300
   
9. Case Is < 8000
   
10. [b2] = 400
    
11. Case Is >= 8000
    
12. [b2] = 500
    
13. End Select
    
14. End Sub

复制代码

要注意方法2和方法3的不同，临界点的处理。