Imports System

Public Module Module1

    Public Sub Main()

        Dim iTemp As Integer

        Dim iTotal As Integer

        For i As Integer = 1 To 24

        Select Case i

        Case 1,3,5,7,9,11,13,15,17,19,21,23

            iTemp = 100

            iTotal = iTotal + iTemp

        Case Else

            iTemp = 300

            iTotal = iTotal + iTemp

        End Select

        Console.WriteLine("Paycheck " & i & ": " & iTemp & " | Total in bank: $" & iTotal)

    Next

    Console.WriteLine("Total Saved For 1 Year: $" & iTotal)

    End Sub

End Module