第5课打折商品计价器

1、某商场汁划用打折的方式进行促俏，不同的商品价格折扣率不同。为了便于顾客付款并 提髙收款的工作效率，商场需要增加一个自动计算商品打折的操作台，该操作台在顾客输入 物品的原价和折扣并按“计算”键后，能立即显示岀商品打折后的价格（图5-1）。请你用 VB设讣一个打折商品计算器程序。实现此功能。图5-1 “打折商品计价器”界而一. 分析问题根据上述问题，可以设商品的原价为x元，折扣为y折，打折后商品的价格为z元，则 有z=x*y/10o设计解决该问题的基本步骤为：输入商品的原价一x输入折扣数一y计算打折后的价格一z输入打折后的价格z按照以上过程完成任务，首先需要将原价X、折扣数y输入计算机，让计算机按

2、照公式 z=x*y/10进行计算，最后得到结果并输岀。这些数据的存储和运算，我们可用变量来实现。 下面通过编写程序的过程，体验如何用变量来实现数据存储与计算。二. 设计程序界面1. 添加对象使用两个文本框分别接收商品的原价和享受的折扣；用六个标签框显示“请输入商品原 价：”、元”等提示内容：由于应付款是用户不能修改的，因此用标签框显示应付款：设程“计算”按钮用于计算商品的应付款；为了方便顾客，程序还应该能实现：在输入下一件商 品的原价和折扣前将上次的输入淸空，因此设程了 “淸空”按钮。该程序界而设计过程如图 5-2所示。1打折商品计算理:请转入商品原价:元计算清空图5-2 “打折商品汁算器”程

3、序界而设计过程2、设置对象属性分别选中上图窗体内的对象，参考表5-1设置其属性。对象属性设置表表5T对象属性设置值说明FormlCaption打折商品计算器标题BorderStyle1-Fixed Single边框样式StartUpPosition2-屏幕中心首次出现时的位豊Label 1-Label6Caption标题Font宋体小五号加粗标题的字体、字号Label7BorderStyle1-Fixed Single边框样式Font宋体小五号加粗标题的字体、字号Textl-text2Font宋体小五号加粗标题的字体、字号Command 1Caption计算按钮的标题Command2Capti

4、on按钮的标题三. 编写程序代码双击“计算”命令按钮，进入代码编写窗口，编写command 1 （“计算”按 钮）的Click事件驱动程序。h定义变量变量是用户和计算机之间、计算机与计算机之间进行信息传递的载体，它好 比是计算机内部的存储箱，装载的货物是数据。在VB中一般规定，变量在使用 前要先说明变量名及数据类型，以使系统为程序分配相应的数据“存储箱二数 据类型规定了 “存储箱”中所存放数据的形式和特征，如整数用Integer表示、 数据中包含小数用Single表示。上面问题中，原价、折扣、打折后商品的价格分别用x, y, z三个变量来说 明且用逗号分隔，数据类型为Singleo为“计算”按

5、钮Click事件定义变量的形 式如图5-3所示。定义变量Dim x As Single, y As Single, z As Single2.给变量赋值定义好了数据“存储箱”，接下来要将具体数据放入存储箱，此过程称为给 变量赋值，其基本书写格式是：变量名二表达式。这里的是赋值符号，它 的作用是计算表达式的值，将结果送入“二”左边的变量中。赋值语句的含义如 图5-4所示。根据题意，商品原价x ill Text 1.text提供数据，折扣y由Text2.text提供数据， 应付金额z山表达式x*y/10运算后得到，并通过Label7.Caption来显示结果。为 “il算”按钮编写程序赋值运算代码

6、如图5-5所示。计算按钮程序代码Private Sub Command 1 _Click()变量说明，输入商品原价输入折扣C计算应付金额 C输出应付金额Dim x As Single, y As Single, z As Single x = Val(Textl.Text)y = Val(Text2.Text)z = x * y / 10Label7.Caption = zEnd Sub为Command2 （“清空”按钮）的Click事件编写的程序代码如下:清空按钮Private Sub Command2_Click()lextl.Text = HText2.Text =Label7.Capt

7、ion =”Text 1. SetFocusEnd Sub纬青空上次输入的商品原价清空上次输入的折扣。清空上次显示的应付款。将光标置于输入商品原价处!1!调试运行程序单击工具栏中的启动按钮，运行程序。（1）在文本框内分别输入商品原价和折扣，然后单击“计算”命令按钮,观察输出的“应付款”是否正确。（2）单击“清空”命令按钮，检验程序是否能够清除已输入文本框中的内 容O程序编写完成后，要经过不断地调试运行，找出程序的错误并改正，使程序 能够帮助我们顺利地解决问题。程序调试运行无误后，新建一个自己的文件夹，将该程序保存在该文件夹中。知识集装箱1、变量变量是指在程序运行过程中其值可以发生改变的量。变量用来存放数据。在 VB中，变量的命名要遵循以下的规则：（1）变量名必须以字母或汉字开头，后面可以有字母、数字或下划线，长 度不得超过255个字符，如al, student, k_2。（2）不能在变量名中岀现空格、小数点、标点符号等字符。在程序中一般通过来为变量赋值，其格式是：变量名二表达式。 根据需要，“二”也可以为对象属性赋值，一般格式是：对象属性二属性值。 例如，在图5-5中，为标签Label7的Caption属性赋值使用了语句 Label7.Caption=z。2、数据类型变量中存储