请各位修改下啊·····

liuyangtop 发布于 2012-01-30 23:49， 2049 次点击

string r1,r2,r3
r1=sle_1.text
r2="5"
r3="10"
if r1<=r2 then
messagebox("提示","节约了成本")
else if
r1> r2 and r1<=r3 then
messagebox("提示","在预算控制中")
else if
r1>r3 then
messagebox("提示","超出了预算")
end if

哪里错了谁帮我改正下啊··谢谢了····

1 回复

ahabc5202012-02-04 09:46

integer r1,r2,r3
r1=integer(sle_1.text)
r2=5
r3=10
if r1<=r2 then
messagebox("提示","节约了成本")
return
end if
if (r1>r2 and r1<=r3) then
messagebox("提示","在预算控制中")
return
end if
if r1>r3 then
messagebox("提示","超出了预算")
return
end if