[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] vbs if……else语句改成select case语句

本帖最后由 pcl_test 于 2016-9-3 13:32 编辑

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

教程又說明用select case會更加簡潔,可惜沒有範例解答,我是初學還寫不出來,希望有人能指導一下,幫我建立正確的觀念,謝謝!
  1. option explicit
  2. dim a
  3. a = inputbox ("輸入分數0-100:")
  4. if a>=0 and a<=20 then
  5.    msgbox "e等"
  6. elseif a>=21 and a<=40 then
  7.    msgbox "d等"
  8. elseif a>=41 and a<=60 then
  9.    msgbox "c等"
  10. elseif a>=61 and a<=80 then
  11.    msgbox "b等"
  12. elseif a>=81 and a<=100 then
  13.    msgbox "a等"
  14. else
  15.    msgbox "輸入錯誤"
  16. end if
复制代码

原帖由 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



感謝!

TOP

  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
复制代码
1

评分人数

TOP

返回列表