I have to write a program based on the 12 days of x-mas that requests an integer from 1 -12 and then lists the gifts for that day along with that day's cost. (Each item has a price which is listed in a text file) It also has to show the total cost for all 12 days. Here is a sample output if user inputs day 3.
The gifts for day 3 are
1 partridge in a pear tree ($164.99)
2 turtle doves ($20 each)
3 french hens ($15 each)
cost: $249.99
Total cost for the twelve days: $78,100.30
Here is my code that I have written but it is not working. It is in VB 2008
Thanks

Public Class frmChristmas

Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click

Dim name As String
Dim count As Integer
Dim price, cost, totalCost As Double
Dim sr As IO.StreamReader = IO.File.OpenText("Christmas.txt")
count = CInt(sr.ReadLine)

count += 1
cost = price * count

For i As Integer = 1 To count
name = sr.ReadLine

Next
sr.Close()

For i As Integer = 1 To 12
IO.File.OpenText("Christmas.txt")
count = CInt(sr.ReadLine)
name = sr.ReadLine
count += 1
cost = price * count
totalCost += cost
lstOutput.Items.Add("The gifts for day" & count & "are")
Next
sr.Close()

End Sub
End Class