VB有趣的问题

第一个是输入所购买商品的价值:

A=inputbox("输入购买商品的价值")

a=val(a)

计算方法如下:

第一种:

如果a & gt=1000，则b=0.95

如果a & gt=2000，则b=0.9

如果a & gt=3000，则b=0.85

如果a & gt=5000，则b=0.8

a=a*b

第二种:

如果a & gt=1000且& lt那就2000年

a=a*0.95

elseif a & gt=2000且a & lt那就3000吧

a=a*0.9

elseif a & gt=3000且a & lt那就5000

a=a*0.85

elseif a & gt那么=5000

a=a*0.8

如果…就会结束

最后的A是贴现的钱。