某照像馆促销…一次洗70张8折，50张8.5、30张9折没张一元，计算折后金额 用vb 编程 急啊！！

number=val(text1.text)
money=val(text1.text)*1
if number>=70 then
money=money*0.8
elseif number>=50
money=money*0.85
elseif number>=30
money=money*0.9
endif
text2.text=money
瞎写写的.只能算伪代码.可能部分语句不符合规范的.但是思想就是这样..
自己把变量声明,定义和界面整理一下就是了

select case 做

这么简单的东西！！