Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        op1.Checked = True

        op2.Checked = False

        op3.Checked = False

        op4.Checked = False

    End Sub

 

    Private Sub B1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1.Click

        Dim stk

        L3.Text = "你選擇的是"

        If op1.Checked = True Then

            L3.Text = L3.Text & op1.Text

            stk = 100

        End If

        If op2.Checked = True Then

            L3.Text = L3.Text & op2.Text

            stk = 150

        End If

        If op3.Checked = True Then

            L3.Text = L3.Text & op3.Text

            stk = 200

        End If

        If op4.Checked = True Then

            L3.Text = L3.Text & op4.Text

            stk = 250

        End If

        Dim sla

        If op5.Checked = True Then

            L3.Text = L3.Text & "," & op5.Text

            sla = 100

        End If

        If op6.Checked = True Then

            L3.Text = L3.Text & "," & op6.Text

            sla = 100

        End If

        If op7.Checked = True Then

            L3.Text = L3.Text & "," & op7.Text

            sla = 100

        End If

        If op8.Checked = True Then

            L3.Text = L3.Text & "," & op8.Text

            sla = 100

        End If

        L2.Text = (stk + sla) & "元"

    End Sub

End Class