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
End Select
Console.WriteLine("Paycheck " & i & ": " & iTemp & " | Total in bank: $" & iTotal)
Next
Console.WriteLine("Total Saved For 1 Year: $" & iTotal)
End Sub
End Module