102
Programming Languages for mis
48 Drink = SpringWater
49 End If
50 If ComboBox3.Text = "Soda" Then
51 Drink = Soda
52 End If
53 End If
54 If RadioButton1.Checked = True Then
55 MemberFee = 0
56 Else
57 MemberFee = NonMemberFee
58 End If
59 ' Calculate Total
60 Total = (Hamburger * Val(TextBox1.Text) + _
61 Sandwich * Val(TextBox2.Text) + _
62 Drink * Val(TextBox3.Text)) * (1 + SalesTaxRate) + _
63 MemberFee
64 ' Fill Form2
65 If ComboBox1.Text = "Choose Hamburger" Then
66 Form2.Label5.Text = "No Hamburger"
67 Form2.Label6.Text = ""
68 Form2.Label7.Text = "0"
69 Else
70 Form2.Label5.Text = ComboBox1.Text
71 Form2.Label6.Text = Format(Hamburger, "Currency")
72 Form2.Label7.Text = TextBox1.Text
73 End If
74 If ComboBox2.Text = "Choose Sandwich" ...