【文档说明】计算机程式及实习课件.ppt，共(16)页，202.502 KB，由小橙橙上传

转载请保留链接：https://www.ichengzhen.cn/view-77307.html

以下为本文档部分文字说明：

12目錄P1------封面P14------製作心得P2------目錄P15------參考文獻P3------前言P16------未來展望P4------學習重點P5------題目說明P6------版面設計P7----

--程式碼設計P12----中文解釋3前言•提出專題相關之背景，例如現存系統之功能說明，可能包含的相關理論說明。詳細說明程式的功能需求、相關參考資料、文獻。4學習重點•ListBox、RadioButton的使用方法。•程式碼的編排•介面的設計•其他物件的認識5題目說明能做出快速算出所需的

消費金額。而且可以有打折的系統。6版面設計飯種類Label1Label2Label3價格TBoxPrice1TBoxPrice2TBoxPrice3列出點餐ListBox1金額Label6Label7Button2數量

TBoxQty1TBoxQty2TBoxQty3Button1優會方案GroupBox1RadioButton1RadioButton2RadioButton37程式碼設計1.PublicClassForm12.Dimtotal,accTotalAsInteger3.Pr

ivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load4.Label6.Text="$"&total&"元"5.Label7

.Text="累計：$"&accTotal&"元"6.Label6.Font=NewFont("新細明體",24)7.Label6.ForeColor=Color.Red8.total=09.accTotal=010.E

ndSub811.PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click12.total=Val(TBoxPrice1.Text)*V

al(TBoxQty1.Text)+Val(TBoxPrice2.Text)*Val(TBoxQty2.Text)+Val(TBoxPrice3.Text)*Val(TBoxQty3.Text)13.If

total>2000ThenRadioButton2.Checked=True14.IfRadioButton1.Checked=TrueThentotal=total*0.915.IfRadioButton2.Checked=TrueThentotal=total*0

.816.IfRadioButton3.Checked=TrueThentotal=total*0.5917.Label6.Text="$"&total&"元"18.accTotal=accTotal+total

19.Label7.Text="累計：$"&accTotal&"元"20.ListBox1.Items.Add(total&“-->”&“鰻魚飯”&TBoxPrice1.Text&“*”&TBoxQty1.Text&“烤肉飯”&TBoxPrice2.Text&“*”&TBoxQty2.Text&“

雞排飯"&TBoxPrice3.Text&"*"&TBoxQty3.Text)21.EndSub1022.PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2

.Click23.TBoxQty1.Text=024.TBoxQty2.Text=025.TBoxQty3.Text=026.total=027.Label6.Text="$"&total&"元"28.EndSub1129.PrivateSubListBox1

_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesListBox1.SelectedIndexChanged30.accTot

al=accTotal-(Val(ListBox1.SelectedItem))31.Label7.Text="累計：$"&accTotal&"元"32.EndSub33.EndClass12中文解釋•第2行定義總金額及累計金額的參數。•第13行求出單筆交易

的總金額。•第15行讓總金額>2000時RadioButton3(即>2000元＊0.75鈕)自動選取。•第16-18行處理折扣動作。•第20行累加至累計金額。•第22行把單筆交易記錄至ListBox

1中13•第25-31行為「清除」按鈕的歸零動作。•第33-38行處理利用滑鼠在ListBox1上點選時，放開滑鼠左鍵的刪除記錄動作。–第34行扣除該筆記錄在累加值中的數值。–第35行實際於ListBo

x1中刪除，刪除該筆記錄。–第36行把更正後的累加值，再度顯示出來。14製作心得在這個學期中，雖然只是懵懵懂懂的學習到一些較簡單的程式製作。但是，這些就可以讓我們可以延伸應用了。並且可以把其他的程式語言基本的英文單字給學起來。雖然打程式碼都看到有一點煩了，甚至是看到厭煩了。而且不想打

了，但到了後來，自己在學習的途中，會突然開竅。並且練習的速度會更快更容易理解。看到自己作完的完成檔。會有一種愉悅感。本來想說做不出來，卻完成的那種喜悅感。算是一種說不出來的暢快阿。15參考文獻1.VisualBasic2008基礎必修課(第二版

)2.網路上的資源16結論及未來展望