<%
dim kg,km
select case kg
case kg<=1
select case km
case km<=30 response.write(0.5*km*kg)
case km>30 and km<=50 response.write(1*km*kg)
case km>50 and km<=300 response.write(1.5*km*kg)
case else response.write(0.3*km*kg)
end select
case kg<=15 and kg>1
select case km
case km<=30 response.write(1*km*kg)
case km>30 and km<=50 response.write(2*km*kg)
case km>50 and km<=300 response.write(3*km*kg)
case else response.write(1.5*km*kg)
end select
case kg<=100 and kg>15
select case km
case km<=30 response.write(1.5*km*kg)
case km>30 and km<=50 response.write(2*km*kg)
case km>50 and km<=300 response.write(4*km*kg)
case else response.write(1*km*kg)
end select
case else
select case km
case km<=30 response.write(2*km*kg)
case km>30 and km<=50 response.write(4*km*kg)
case km>50 and km<=300 response.write(6*km*kg)
case else response.write(2*km*kg)
end select
end select

%>
就是这个程序我已经用if else语句做出来了，但是用select case语句做出来怎么也通过不了~哪位人才能帮我检查出这段程序到底哪里错了啊！栽下感激不尽
原题目是这样的：
按照下面的设定写一个程序，计算将所给定重量的物品运送到指定路程长度的地方所需要的运费金额。

1公斤以下 30公里以内 0.5元/公斤/公里 30到50公里内 1元/公斤/公里 50到300公里内 1.5元/公斤/公里 300公里以上 0.3元/公斤/公里

1公斤至15公斤 30公里以内 1元/公斤/公里 30到50公里内 2元/公斤/公里 50到300公里内 3元/公斤/公里 300公里以上 1.5元/公斤/公里

15公斤至100公斤 30公里以内 1.5元/公斤/公里 30到50公里内 2元/公斤/公里 50到300公里内 4元/公斤/公里 300公里以上 1元/公斤/公里

100公斤以上 30公里以内 2元/公斤/公里 30到50公里内 4元/公斤/公里 50到300公里内 6元/公斤/公里 300公里以上 2元/公斤/公里

建议楼主多看看VBS的控制流程方面的知识

多项选择

格式：
IF 条件1 then
程序代码一
Elesif 条件2 then
程序代码二
Elseif 条件3 then
程序代码三
...(可根据需要添加任意多个Else if语句)
Else
程序代码N
End if
解释：当条件1满足时，将执行 程序代码一;当条件2满足时，将执行 程序代码二；...当以上条件都不满足时，
将执行程序代码N。注意点：“elseif”之间没有空格

select...case
根据一个变量的值而不同的执行方向
语法格式：
select case 变量
case 值一
程序代码一
case 值二
程序代码二
case 值三
程序代码三
...
case else
程序代N+1
end select

解释：条件变量可能有N个取值，当取 值一时，执行 程序代码一;当变量取值为 值二时，执行 程序代码二;...
如果变量值不在值一到值N内，则执行calse Else语句后的 程序代码N+1


也就是说 case后边要写值而不是bool条件
如果写条件的话我想应该就变成这样了
select case kg
case kg<=1 ' 这里应该就等于 case (true 或 false) 了 我没试过 但应该是这样 楼主可以自己试试
......

我刚开始也不知道case后面可不可以加条件 所以还写了一小段代码作了测试 是通过的 所以才大胆的这么写（我也知道用if语句好些）但是竟然没有通过 试了几次都跳不出错误！