哪位大神帮我编写一个程序，下图的题

这么简单的。。。if else 语句就可以搞定 或者selecet case 也行
dim yuanjia as float
dim zheko（3） as float
zhekou（0）=0.05 '百分之五
zhekou（1）=0.075 '百分之7.5
zhekou（2）=0.1 '百分之十
zhekou（3）=0.15、百分之十五
'引入两个textbox空间取名tx1，tx2分别是输入金额和输出折扣金额
if tx1.text.trim.tosring（）《=250
then
tx2.text=“金额不足打折”
else if tx1.text.trim.tosring（）》=1000 then
tx2.text=val（tx1.text）*val（zhekou（0））
'也就是大于等于1000就打折百分之五
end if
其他后面的大概就这样了
对了上面的代码可以放到button控件里 还可以在tx1的textchange属性里写