vb编写购物优惠程序,每位顾客一次购物(1)在200元(含200元)以上者按九...

发布网友发布时间：2024-01-01 04:06

共3个回答

热心网友时间：2024-08-19 17:44

简单的说可以这样实现：
在命令按钮中写如下代码：
do case
case thisform.text1.value>=200.00 and thisform.text1.value<400
thisform.text2.value=round(thisform.text1.value*0.95,1)
case thisform.text1.value>=400.00 and thisform.text1.value<800
thisform.text2.value=round(thisform.text1.value*0.9,1)
case thisform.text1.value>=800.00
thisform.text2.value=round(thisform.text1.value*0.8,1)
otherwise
thisform.text2.value=round(thisform.text1.value,1)
endcase
thisform.refresh
此外，要注意设置文本框的取值范围，文本框要设置成数字输入格式。

热心网友时间：2024-08-19 17:47

直接手机应用商店搜索：简单省。

热心网友时间：2024-08-19 17:44

其实软件商城找到“简单省”用它就完事了。