技藝競竇97年模擬試題參考答案 Q4

'  Porblem4：百貨公司打折程式(12%)
'  豪慷慨百貨公司週年慶的打折策略，吸引了許多客人上門，因此公司決定再回饋客戶，當客戶消費超過2000 元時
'  打7 折，消費超過5000 元時打6 折，消費超過10000 元時打55 折。請幫該公司寫出一個新的收銀台程式，輸入顧客購
'  買總金額n 後，計算顧客實際需付的錢。
'  輸入說明：
'  購買金額n
'  輸出說明：
'  實付金額
'  輸入範例：
'  3000
'  6000
'  12000
'  輸出範例：
'  2100
'  3600
'  6600


Public Class Form1
    Dim resultStr = ""
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Hide()
        Dim fileContents As String
        fileContents = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\Test4.txt")
        Dim recArray() = Split(fileContents, vbNewLine)
        Dim recIndex = 0
        While recArray(recIndex) <> ""
            Dim amount = recArray(recIndex)
            Dim finalAmount = amount
            If amount > 2000 Then
                finalAmount = amount * 0.7
            End If
            If amount > 5000 Then
                finalAmount = amount * 0.6
            End If
            If amount > 10000 Then
                finalAmount = amount * 0.55
            End If
            resultStr = resultStr & finalAmount & vbNewLine
            recIndex = recIndex + 1
        End While
        MsgBox(resultStr)
        'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\result4.txt", resultStr, False)
        End
    End Sub
End Class