VB

Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
        Dim dblPrice As Double
        Dim Days(0 To 4) As String
        dblPrice = txtOrigPrice.Text
        Days(0) = "Monday"
        Days(1) = "Tuesday"
        Days(2) = "Wednesday"
        Days(3) = "Thursday"
        Days(4) = "Friday"
        For x As Integer = 0 To 4
            dblPrice = dblPrice * 0.9
            lblPrice.Text = lblPrice.Text + dblPrice.ToString("C2") + vbCrLf
            lblDays.Text = Days(0 to 4)
        Next

    End Sub