【正文】
GroupBox1 圖片 PictureBox2 圖片 PictureBox1 票價 Label1 票價 Textticket 訖站 GroupBox2 Button1 RadioButton1 RadioButton2 RadioButton3 RadioButton4 RadioButton5 RadioButton6 RadioButton7 RadioButton8 版面配置與 屬性設(shè)定 (下 ) RadioButton17 RadioButton18 RadioButton19 按鈕 RadioButton9 RadioButton10 RadioButton11 RadioButton12 RadioButton13 RadioButton14 RadioButton15 RadioButton16 限量發(fā)售 GroupBox3 Button2 臺灣高鐵網(wǎng)站 LinkLabel1 01 Public Class Form1 02 Dim price1 As Integer 03 Dim price2 As Integer 04 Dim quit As Integer 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è)計 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