【正文】
05 Dim result As MsgBoxResult 06 Private Sub RadioButton1_CheckedChanged(ByVal sender As , ByVal e As ) Handles 07 price1 = 0 08 End Sub 09 Private Sub RadioButton2_CheckedChanged(ByVal sender As , ByVal e As ) Handles 10 price1 = 40 11 End Sub 12 Private Sub RadioButton3_CheckedChanged(ByVal sender As , ByVal e As ) Handles 13 price1 = 160 14 End Sub 程式碼設(shè)計(jì) 15 Private Sub RadioButton4_CheckedChanged(ByVal sender As , ByVal e As ) Handles 16 price1 = 290 17 End Sub 18 Private Sub RadioButton5_CheckedChanged(ByVal sender As , ByVal e As ) Handles 19 price1 = 700 20 End Sub 21 Private Sub RadioButton6_CheckedChanged(ByVal sender As , ByVal e As ) Handles 22 price1 = 1080 23 End Sub 24 Private Sub RadioButton7_CheckedChanged(ByVal sender As , ByVal e As ) Handles 25 price1 = 1350 26 End Sub 27 Private Sub RadioButton8_CheckedChanged(ByVal sender As , ByVal e As ) Handles 28 price1 = 1490 29 End Sub 30 Private Sub RadioButton9_CheckedChanged(ByVal sender As , ByVal e As ) Handles 31 price2 = 0 32 End Sub 33 Private Sub RadioButton10_CheckedChanged(ByVal sender