神奇購物車 (課本第五章課堂練習)

GroupBox元件 *2, RadioButton元件*4, CheckBox元件*4, Button元件*1

程式碼

Public Class Form1

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
    Dim sum As Integer = 0
    Dim price As Integer
    If (rdbFlyer.Checked = True) Then
       price = 27000
    ElseIf (rdbDesire.Checked = True) Then
       price = 15000
    ElseIf (rdbIPhone4.Checked = True) Then
       price = 22000
    Else
       price = 16000
    End If
    sum = price

    sum += IIf(chkAplUSB.Checked = True, 690, 0)
    sum += IIf(chkAplBat.Checked = True, 1090, 0)
    lblSum.Text = "合計金額 : " & Str(sum) & "元"
    End Sub

End Class