我以我们这时的出租车价格为例:
最低消费5元,超过5元按每公里2元计算.

input "s=",s
If s - Int(s) <> 0 Then: s = Int(s) + 1
a = 2 * s
If a <= 5 Then
Print "a="; 5
Else
Print "a="; a
End If
end

CLS
INPUT n, m
SELECT CASE n
 CASE IS = 1
  PRINT (6 + (m - 5) * 1.2)
 CASE IS = 2
  PRINT (7 + (m - 5) * 1.5)
 CASE ELSE
  PRINT "out of data"
END SELECT
 

我们这里出租车计价的标准：
0.1到2.4公里是6元。
超过2.4公里：
超过的部分整公里是每公里1.2元。
如果超过部分不是整数，则小数部分按以下方法计价：
（1）小数部分<=0.4，价格=（小数部分/0.1）+1
（2）小数部分在0.5到0.9之间，价格=（小数部分/0.1）+2
CLS
INPUT n
IF n<2.5 THEN
   k=6
ELSE
   s=n-2.4
   k=6+(INT(s)*1.2)
   s=s-INT(s)
   IF s>0 THEN 
      IF s<.5 THEN 
         k=k+(s/.1)+1
      ELSE
         k=k+(s/.1)+2
      END IF
   END IF
END IF
PRINT k
END