新手求select case。。。end select 问题 和 functionw问题

两个问题：<script language="vbscript">
 dim cj
 cj=inputbox("请输入你的成绩：")
 select case cj
  case cj<="50"
     alert("等级评定为：差")
  case cj>"50" and cj<="70"
     alert("等级评定为：中")
  case cj>"70" and cj<="80"
     alert("等级评定为：良")
  case cj>"80" and cj<="100"
     alert("等级评价为：优")
  case else
     alert("你输入的成绩有问题！")
 end select
 </script>
输入任何成绩总是显示  ”你输入的成绩有问题“？

求正方形的面积 运行成功 ！  可是如果求长方形的面积该怎么求？  先谢了~~~