关于比较大小问题

wang7655 2012-07-17 01:42:16

if cdbl(allgls)< cdbl(5) and cdbl(alllx)>cdbl(3) then
jg1=50+1.5*allgls*lfm
end if
if cdbl(allgls)< cdbl(5) and cdbl(alllx)<cdbl(3) then
jg1=50+1.5*allgls*allzl
end if
if cdbl(5)<cdbl(allgls)<= cdbl(10) and cdbl(alllx)>cdbl(3) then
response.write "hao"
jg2=30+1.5*allgls*lfm
end if
if cdbl(5)<cdbl(allgls)<=cdbl(10) and cdbl(alllx)<cdbl(3) then
jg2=30+1.5*allgls*allzl
end if
if cdbl(allgls)>= cdbl(10) and cdbl(alllx)>cdbl(3) then
jg3=10+1*allgls*lfm
end if
if cdbl(allgls)>= cdbl(10) and cdbl(alllx)<cdbl(3) then
jg3=10+1*allgls*allzl
end if

我按照上面的写法,当allgls 大于10的时候,但是运行的时候,在大于5小于等于10的那里也运行,奇怪了?
请问应该如何弄?
...全文
186 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
人生无悔 2012-07-17
  • 打赏
  • 举报
回复

'cdbl(5)<cdbl(allgls)<= cdbl(10)要分開
If CDbl(allgls) < CDbl(5) And CDbl(alllx) > CDbl(3) Then
jg1 = 50 + 1.5 * allgls * lfm
End If
If CDbl(allgls) < CDbl(5) And CDbl(alllx) < CDbl(3) Then
jg1 = 50 + 1.5 * allgls * allzl
End If
If CDbl(5) < CDbl(allgls) And CDbl(allgls) <= CDbl(10) And CDbl(alllx) > CDbl(3) Then
Response.Write("hao")
jg2 = 30 + 1.5 * allgls * lfm
End If
If CDbl(5) < CDbl(allgls) And CDbl(allgls) <= CDbl(10) And CDbl(alllx) < CDbl(3) Then
jg2 = 30 + 1.5 * allgls * allzl
End If
If CDbl(allgls) >= CDbl(10) And CDbl(alllx) > CDbl(3) Then
jg3 = 10 + 1 * allgls * lfm
End If
If CDbl(allgls) >= CDbl(10) And CDbl(alllx) < CDbl(3) Then
jg3 = 10 + 1 * allgls * allzl
End If

4,008

社区成员

发帖
与我相关
我的任务
社区描述
它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。
社区管理员
  • vbScript社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧