计算机程式及实习期末报告制作题目转角炒面小吃店.pptVIP

下载本文档

0
0
约2.85千字
约 11页
2018-02-12 发布于天津
举报
版权申诉

计算机程式及实习期末报告制作题目转角炒面小吃店.ppt

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

计算机程式及实习期末报告制作题目转角炒面小吃店

計算機程式及實習期末報告ppt製作題目 :轉角炒麵小吃店班級 : 車輛一乙學號 : 4A115072 姓名 : 白凱文老師 : 謝慶存轉角炒麵小吃店結帳系統說明學習上課重點 ListBox、RadioButton的使用方法。系統說明把需要的小吃打上數量按下計算即可在地人 95折有南台學生證 9折買滿150元 8折每份加大都加10元使用說明首先先把需要的數量打上去在選擇是否要加大在按下計算即可版面說明程式碼說明 Public Class 轉角炒麵小吃店 Dim total, accTotal As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label8.Text = $ total 元﹐ Label9.Text = “累計：G$” accTotal “元 Label8.Font = New Font(“標楷體, 24) Label8.ForeColor = Color.Red total = 0 accTotal = 0 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click total = Val(TBoxPrice1.Text) * Val(TBoxQty1.Text) + Val(TBoxPrice2.Text) * Val(TBoxQty2.Text) + Val(TBoxPrice3.Text) * Val(TBoxQty3.Text) Dim total1, total2, total3, total4 As Integer If CheckBox1.Checked Then total1 = (Val(TBoxPrice1.Text) + 10) * Val(TBoxQty1.Text) If CheckBox2.Checked Then total2 = (Val(TBoxPrice2.Text) + 10) * Val(TBoxQty2.Text) If CheckBox3.Checked Then total3 = (Val(TBoxPrice3.Text) + 10) * Val(TBoxQty3.Text) If CheckBox1.Checked = False Then total1 = (Val(TBoxPrice1.Text)) * Val(TBoxQty1.Text) If CheckBox2.Checked = False Then total2 = (Val(TBoxPrice2.Text)) * Val(TBoxQty2.Text) If CheckBox3.Checked = False Then total3 = (Val(TBoxPrice3.Text)) * Val(TBoxQty3.Text) If CheckBox4.Checked Then total4 = (Val(TBoxPrice4.Text) + 10) * Val(TBoxQty4.Text) If CheckBox4.Checked = False Then total4 = (Val(TBoxPrice4.Text)) * Val(TBoxQty4.Text) total = total1 + total2 + total3 + total4 If total 1000 Then RadioButton3.Checked = True If RadioButton1.Checked = True Then total = total * 0.95 If RadioButton2.Checked = True Then total = total * 0.9 If RadioButton3.Checked = True Then total = total * 0.8 Label8.Text = $ total 元﹐