Module Module1

​

    Dim CardNum As String

​

    Dim OldPoints As Integer

​

    Function CalcPoints(CardNum As String, Total As Decimal) As Integer

​

        Dim OldPoints As Decimal

​

        Dim NewPoints As Integer

​

        If Total > 100 Then

​

            OldPoints = CInt(Right(CardNum, Len(CardNum) - 7))

​

            If OldPoints > 2000 Then

​

                NewPoints = Int(Total * 1.2)

​

            Else

​

                NewPoints = Int(Total * 1.1)

​

            End If

​

        Else

​

            NewPoints = 0

​

        End If

​

        Return NewPoints

​

    End Function

​

    Function GetCardNum() As String

​

        Dim File As IO.StreamReader

​

        File = IO.File.OpenText("G:\CardNumbers.txt")

​

        CardNum = File.ReadLine

​

        File.Close()

​

        Return CardNum

​

    End Function

​

    Function VerifyTotal() As Decimal

​

        Dim Valid As Boolean

​

        Dim Amount As Decimal

​

        Valid = False

​

        Do

​

            Console.WriteLine("Enter the amount spent: ")

​

            Amount = Console.ReadLine

​

            If Amount > 0 And Amount < 10000 Then

​

                Valid = True

​

            End If

​

        Loop Until Valid = True

​

        Return Amount

​

    End Function

​

    Sub Main()

​

        Dim Points As Integer

​

        Dim NewTotal As Decimal

​

        Points = CalcPoints(GetCardNum, VerifyTotal)

​

        NewTotal = Points + OldPoints

​

        Console.WriteLine("You had " & OldPoints & " points.  Now you have " & NewTotal & " Points!")

​

        Dim File As IO.StreamWriter

​

        File = IO.File.AppendText("G:\CardNumbers.txt")

​

        File.WriteLine(NewTotal)

​

        Console.ReadKey()

​

    End Sub

​

End Module

​

​

​

​