Select case true Case x< 1000 Case x > 1000 And x< 2000 y=0.95*x Case x >=2000 And x< 3000 0.9*x Case x >=3000 And x 5000 y=0.85*x Case else y=0.8米x End select MsgBox"优惠价为:"&y&"元 K/SCRIPT> </BODY> /HTML> 代码的热行情况Select Case True Case x < 1000 y = x Case x >= 1000 And x < 2000 y = 0.95 * x Case x >= 2000 And x < 3000 y = 0.9 * x Case x >= 3000 And x < 5000 y = 0.85 * x Case Else y = 0.8 * x End Select MsgBox "优惠价为：" & y & "元" </SCRIPT> </BODY> </HTML> 代码的执行情况