vb编写购物优惠程序，每位顾客一次购物（1）在200元（含200元）以上者按九五折优惠

简单的说可以这样实现：

创新互联公司长期为上1000家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为咸宁企业提供专业的网站建设、做网站，咸宁网站改版等技术服务。拥有10年丰富建站经验和众多成功案例,为您定制开发。

在命令按钮中写如下代码：

do case

case thisform.text1.value=200.00 and thisform.text1.value400

thisform.text2.value=round(thisform.text1.value*0.95,1)

case thisform.text1.value=400.00 and thisform.text1.value800

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

此外，要注意设置文本框的取值范围，文本框要设置成数字输入格式。

求解vb列表框购物的程序代码

种类是固定的么？那价格可以用select case语句显示到价格框里

计算金额直接相乘就可以了。。

至于连续处理多项，那历史交易记录可以再用一个list放起来。。计算总和的时候只需要从新list里循环读出来就可以了。。

vb.net access 电子购物

这个我推荐你 在SQL中找吧 那个比VB强

他也是数据库 可以用他来编写软件

但是我不会

用VB.NET程序编写代码

Delphi代码如下：

procedure TForm1.Button1Click(Sender: TObject);

var

购物总价:Integer;

折扣:Extended;

begin

购物总价:=StrToInt(Edit1.Text);

if 购物总价250 then

begin

折扣:=0;

end

else if 购物总价500 then

begin

折扣:=0.05;

end

else if 购物总价1000 then

begin

折扣:=0.075;

end

else if 购物总价2000 then

begin

折扣:=0.1;

end

{

此段的折扣是多少？

else if 购物总价3000 then

begin

折扣:=0.05;

end

}

else if 购物总价=3000 then

begin

折扣:=0.15;

end;

ShowMessage('您享受的折扣是：'+FloatToStr(折扣)

+' 原价：'+IntToStr(购物总价)

+' 折后总价：'+FloatToStr(购物总价*(1-折扣)));

end;

VB.net 我买了一个超市用的热敏打印机，现在想打印一些小票。我想知道如何把textbox的内容打印出来。

1、热敏打印机（超市打印小票的那种）其实和办公用的打印机没有根本区别，只是用途不同罢了。

2、热敏打印机与计算机连接的接口基本上有3种（并口、串口和USB口），不管哪种，都要把那个连接线与计算机背后的插槽连好（接口是对应好了的，搞错了是接不上的），然后安装正确打印机驱动程序。

3、在大家熟悉使用的WORD文字编辑程序程序中，讲页面宽度自定义调整为热敏纸的规格，页面长度一般210毫米就够用了。记得要把这个保存为模板，方便以后调用此格式。

4、好了，就用上面的那个模板随便编辑内容，发送打印任务到热敏机就行啦。试试吧，字符再长在WORD里都会自动换行滴。

当前名称：包含vb.net超市购物界面的词条
文章URL：http://pwwzsj.com/article/doscpeo.html