vbs if……else语句改成select case语句

peterwu999

教程裡的例題:輸入0-100的分數並根據0-20、20-40、40-60、60-80、80-100顯示a、b、c、d、e的等級，我用if 可以寫得出來，

教程又說明用select case會更加簡潔，可惜沒有範例解答，我是初學還寫不出來，希望有人能指導一下，幫我建立正確的觀念，謝謝!

1. 
   
2. option explicit       
   
3. dim a
   
4. a = inputbox ("輸入分數0-100:")
   
5. if a>=0 and a<=20 then
   
6.    msgbox "e等"
   
7. elseif a>=21 and a<=40 then
   
8.    msgbox "d等"
   
9. elseif a>=41 and a<=60 then
   
10.    msgbox "c等"
    
11. elseif a>=61 and a<=80 then
    
12.    msgbox "b等"
    
13. elseif a>=81 and a<=100 then
    
14.    msgbox "a等"
    
15. else
    
16.    msgbox "輸入錯誤"
    
17. end if
    

复制代码

broly

1. Dim var
   
2. Do
   
3.   var=InputBox("输入分数0-100：")
   
4. Loop Until IsNumeric(var) '判断是否为数字
   
5. Select Case True
   
6.   Case var>=0 And var<=20 : MsgBox "e等"
   
7.   Case var>20 And var<=40 : MsgBox "d等"
   
8.   Case var>40 And var<=60 : MsgBox "c等"
   
9.   Case var>60 And var<=80 : MsgBox "b等"
   
10.   Case var>80 And var<=100 : MsgBox "a等"
    
11.   Case Else  MsgBox "输入有误！"
    
12. End Select

复制代码

peterwu999

原帖由 broly 于 2011-1-22 20:46 发表
Dim var
Do
  var=InputBox("输入分数0-100：")
Loop Until IsNumeric(var) '判断是否为数字
Select Case True
  Case var>=0 And var20 And var40 And var60 And var80 And var

感謝!