計算機概論與實習期末報告 老師:謝慶存 4a415057賴震製作
Private Sub Form1_Load(ByVal sender As System Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label6.Text = "$" & total & "元" Label7.Text = "累計：$" & accTotal & "元" Label6.Font = New Font("新細明體", 24) Label6.ForeColor = Color.Red total = 0 accTotal = 0
Private Sub Button1_Click(ByVal sender As System Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label6.Text = "$" & total & "元" accTotal = accTotal + total Label7.Text = "累計：$" & accTotal & "元" ListBox1.Items.Add(total & "-->" & "Audi R8" & TBoxPrice1.Text & "*" & TBoxQty1.Text & "Porsche" & TBoxPrice2.Text & "*" & TBoxQty2.Text & "Maserati" & TBoxPrice3.Text & "*" & TBoxQty3.Text) End Sub
老師我做的很努力了，但這段程式碼還是錯的，我抓不到他錯在哪，因能力 不足我只能做到這 ListBox1.Items.Add(total & "-->" & "Audi R8" & TBoxPrice1.Text & "*" & TBoxQty1.Text & "Porsche" & TBoxPrice2.Text & "*" & TBoxQty2.Text & "Maserati" & TBoxPrice3.Text & "*" & TBoxQty3.Text)