28,391
社区成员
发帖
与我相关
我的任务
分享很简单的问题
有一个VBScript程序的功能是实现根据用户输入的成绩，显示相应的等级。
代码如下：
<html>
<head>
<title>Select Case语句用法示例</title>
</head>
<body>
<Script Language=VBScript>
<!--
Dim cj,dj
cj=InputBox("请输入成绩")
Select Case cj
Case Is >= 90
dj = "优"
Case Is >= 80
dj = "良"
Case Is >= 70
dj = "中"
Case Is >= 60
dj = "及格"
Case Else
dj = "不及格"
End Select
Document.Write dj
-->
</Script>
</body>
</html>
本来认为这个问题很简单，但我将上述网页在浏览器中浏览时，却发现语法错误。我知道是由于Case Is >= 语句引起的，但如何修改才能正确呢？
请大家指点！谢谢！
代码如下：
<html>
<head>
<title>Select Case语句用法示例</title>
</head>
<body>
<Script Language=VBScript>
<!--
Dim cj,dj
cj=InputBox("请输入成绩")
Select Case cj
Case Is >= 90
dj = "优"
Case Is >= 80
dj = "良"
Case Is >= 70
dj = "中"
Case Is >= 60
dj = "及格"
Case Else
dj = "不及格"
End Select
Document.Write dj
-->
</Script>
</body>
</html>
本来认为这个问题很简单，但我将上述网页在浏览器中浏览时，却发现语法错误。我知道是由于Case Is >= 语句引起的，但如何修改才能正确呢？
请大家指点！谢谢！
...全文
请发表友善的回复…
发表回复
叮咚叮咚叮叮咚 2004-06-25
- 打赏
- 举报
select case 这个只是针对一个结果而言阿～并不能针对一个范围比如>=90这样～
nchen123 2004-06-25
- 打赏
- 举报
用 if else 就轻松解决了， 你这么钻牛角尖是浪费自己的时间
nchen123 2004-06-25
- 打赏
- 举报
cj 不等于 cj >= 90 的逻辑比较结果,
cj 不等于 cj >= 80 ...
...
所以跳到了 else 分支
vbs 中的 select 没有你这种写法的
cj 不等于 cj >= 80 ...
...
所以跳到了 else 分支
vbs 中的 select 没有你这种写法的
szjhxu 2004-06-25
- 打赏
- 举报
针对这一段代码：
Dim cj,dj
cj=InputBox("请输入成绩")
Select Case cj
Case Is >= 90
dj = "优"
Case Is >= 80
dj = "良"
Case Is >= 70
dj = "中"
Case Is >= 60
dj = "及格"
Case Else
dj = "不及格"
End Select
在VB中实现是一点问题都没有，但到了VBSCRIPT中为什么就不能实现呢？
另外如果改成如下代码：
Dim cj,dj
cj=InputBox("请输入成绩")
Select Case cj
Case cj >= 90
dj = "优"
Case cj >= 80
dj = "良"
Case cj >= 70
dj = "中"
Case cj >= 60
dj = "及格"
Case Else
dj = "不及格"
End Select
Document.Write dj
不管用户输入什么成绩，输出总是不及格，这又是为什么？
Dim cj,dj
cj=InputBox("请输入成绩")
Select Case cj
Case Is >= 90
dj = "优"
Case Is >= 80
dj = "良"
Case Is >= 70
dj = "中"
Case Is >= 60
dj = "及格"
Case Else
dj = "不及格"
End Select
在VB中实现是一点问题都没有，但到了VBSCRIPT中为什么就不能实现呢？
另外如果改成如下代码：
Dim cj,dj
cj=InputBox("请输入成绩")
Select Case cj
Case cj >= 90
dj = "优"
Case cj >= 80
dj = "良"
Case cj >= 70
dj = "中"
Case cj >= 60
dj = "及格"
Case Else
dj = "不及格"
End Select
Document.Write dj
不管用户输入什么成绩，输出总是不及格，这又是为什么？
nchen123 2004-06-25
- 打赏
- 举报
是谁变态到用什么语句都限制你？
nchen123 2004-06-25
- 打赏
- 举报
语法错误， 你上面提出的要求是无理要求。
szjhxu 2004-06-25
- 打赏
- 举报
现在的要求是用Select Case语句实现。
QQgenie 2004-06-25
- 打赏
- 举报
把case改为IF ... then ...格式就可以了
<html>
<head>
<title>Select Case语句用法示例</title>
</head>
<body>
<Script Language=VBScript>
<!--
Dim cj,dj
cj=InputBox("请输入成绩")
IF cj >= 90 then
dj = "优"
elseif cj>= 80 then
dj = "良"
elseif cj >= 70 then
dj = "中"
elseif cj >= 60 then
dj = "及格"
else
dj = "不及格"
End IF
Document.Write dj
-->
</Script>
</body>
</html>
<html>
<head>
<title>Select Case语句用法示例</title>
</head>
<body>
<Script Language=VBScript>
<!--
Dim cj,dj
cj=InputBox("请输入成绩")
IF cj >= 90 then
dj = "优"
elseif cj>= 80 then
dj = "良"
elseif cj >= 70 then
dj = "中"
elseif cj >= 60 then
dj = "及格"
else
dj = "不及格"
End IF
Document.Write dj
-->
</Script>
</body>
</html>
