計算機程式及實習(xí)期末報告ppt制作-預(yù)覽頁
【正文】 End Sub 63 Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles 64 39。 〈 如在臺北按下起站，在桃園按下訖站，再選擇自由座 97折，票價即出現(xiàn)原價之 97折 〉 早鳥優(yōu)惠 9折 〈 列車出發(fā)日前八日 〉 ? 按「計算」按鈕，並點選「早鳥優(yōu)惠 9折」，會自動得到打 9折後一筆總金額資料。將臺北站設(shè)為 0，則任意二站價格相減，即為二站之間的票價。 題目說明：臺灣高鐵訂票系統(tǒng) 站別 臺北 板橋 桃園 新竹 臺中 嘉義 臺南 左營 臺北 ─ 板橋 40 ─ 桃園 160 130 ─ 自由座約為標(biāo)準(zhǔn)車廂對號座原 新竹 290 260 130 ─ 價之九七折 臺中 700 670 540 410 ─ 嘉義 1080 1050 920 790 380 ─ 臺南 1350 1320 1190 1060 650 280 ─ 左營 1490 1460 1330 1200 790 410 140 ─ ? 票價計算方法 ： 若高鐵從臺北起算，經(jīng)由板橋、桃園、新竹、臺中、嘉義、臺南、到最後一站左營，票價分為別 160、290、 700、 1080、1350及 1490。 〈 如在臺北按下起站，在桃園按下訖站，票價即出現(xiàn)原價之價格 〉 自由座 97折 ? 按「計算」按鈕，並點選「自由座 97折」，會自動得到打 97折後一筆總金額資料?！?本圖為按下滑鼠左鍵不放開時設(shè)為紅色之情況 〉 按下「結(jié)束」 ? 按下「結(jié)束」鍵後出現(xiàn) MsgBox對話方塊，若按下是〈 Y〉 ，則離開程式畫面，若按下否〈 N〉 則又回到主畫面。 = (price1 price2) * 67 = (price1 price2) 68 End Sub 69 Private Sub LinkLabel1_LinkClicked(ByVal sender As , ByVal e As ) Handles 70 = True 71 = 72 ( 73 End Sub 74 Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles 75 quit = MsgBox(“ 是否結(jié)束？ , 36, 離開” ) 76 If (quit = ) Then 77 End 39
試題試卷相關(guān)推薦
鄂ICP備17016276號-1