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
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