計算機程式及實習課堂作業之口頭報告題目：商店結帳系統.pptVIP

計算機程式及實習課堂作業之口頭報告題目：商店結帳系統 南台科技大學 機械工程系 奈米一乙 學號學生：楊政翰 導師:謝慶存 商店結帳系統說明：在右方框裡輸入餐點數量，之後選擇打折數點選試算後即可得知總金額點選清除則可清除方框內數量 表單設計：設置輸出入介面 表單標題 Label1 Label7 Label2 Label3 Label4 Label5 RadioButton1 Button1 TextBox1 TextBox2 TextBox3 TextBox4 RadioButton3 Button2 Label6 程式碼撰寫 Public Class Form1 定義Form1提供公用類別 Dim a,sum1 As Double ‘宣告雙精位變數 a,sum1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click sum1 = (CDbl(TextBox1.Text) * 500 + CDbl(TextBox2.Text) * 300 + CDbl(TextBox3.Text) * 250 + CDbl(TextBox4.Text) * 200) *