关于Switch ... EndSwitch语句(锁贴)

old_snoopy

如下例1和例2应该功能一样,当例2输入0-59之间的数报错.求大侠指点(<=)

例1.
Dim $s
$s=InputBox("","请输入学生成绩：",'')  
Switch $s
  Case 89<$s And $s<=100
    MsgBox(0,"学生成绩","优秀！")
  Case 79<$s And $s<=89
    MsgBox(0,"学生成绩","良好！")
  Case 59<$s And $s<=79
    MsgBox(0,"学生成绩","及格！")
Case 0<$s And $s<=59       
    MsgBox(0,"学生成绩","不及格！")
Case $s=0       
    MsgBox(0,"学生成绩","不及格！")       
  Case Else
    MsgBox(0+16,"学生成绩","学生成绩输入错误！")
EndSwitch
例2.
Dim $s
$s=InputBox("","请输入学生成绩：",'')  
Switch $s
  Case 89<$s And $s<=100
    MsgBox(0,"学生成绩","优秀！")
  Case 79<$s And $s<=89
    MsgBox(0,"学生成绩","良好！")
  Case 59<$s And $s<=79
    MsgBox(0,"学生成绩","及格！")
  Case 0=<$s And $s<=59
    MsgBox(0,"学生成绩","不及格！")
  Case Else
    MsgBox(0+16,"学生成绩","学生成绩输入错误！")
EndSwitch

user3000

回复 1# old_snoopy


    Switch ....不是这样用的. 应该这样:

Dim $s
$s=InputBox("","请输入学生成绩：",'')  
Switch $s
  Case 90 To 100
    MsgBox(0,"学生成绩","优秀！")
  Case 80 To 89
    MsgBox(0,"学生成绩","良好！")
  Case 60 To 79
    MsgBox(0,"学生成绩","及格！")
  Case 0 To 59
    MsgBox(0,"学生成绩","不及格！")
  Case Else
    MsgBox(0+16,"学生成绩","学生成绩输入错误！")
EndSwitch

old_snoopy

回复 2# user3000
我把原程序修改了一下,运行没问题!这程序所用语法与帮助文档不一致.是帮助文档简化了?

Dim $s
$s=InputBox("","请输入学生成绩：",'',' m')  
If @error=1 Then
   MsgBox(0+16+262144,"学生成绩","学生成绩输入错误！")
   Exit
EndIf
Switch $s
  Case $s>89 and $s<=100
    MsgBox(262144,"学生成绩","优秀！")
  Case $s>79 and $s<=89
    MsgBox(262144,"学生成绩","良好！")
  Case $s>59 and $s<=79
    MsgBox(262144,"学生成绩","及格！")
  Case $s>=0 and $s<=59
    MsgBox(262144,"学生成绩","不及格！")
  Case Else
    MsgBox(0+16+262144,"学生成绩","学生成绩输入错误！")
EndSwitch

邪恶海盗

回复 3# old_snoopy


    If @error=1 Then
   MsgBox(0+16+262144,"学生成绩","学生成绩输入错误！")
   Exit
EndIf

这段应该可以删掉,毕竟下面已经有判断了...

没发现与2楼有什么不同的,>89且<=100意思跟90-100之间有什么区别?

另外楼主的0=<$S这样的写法不对吧,这样写的意思就是判断0,而非判断$S了...


新手表示:我啥也不知道啊啥也没说过...

user3000

回复 3# old_snoopy

你这样用当然也是对的,我2楼说的不是这样用, 潜在意思是你的代码过于繁琐了.
编程的代码应该尽可能简洁明了地实现功能才是.

还有编辑的标题,有个错别字, 应该是 '已解决', 要用已经的那个 "已"

old_snoopy

回复 5# user3000

搞错了