Составить программу для расчета суммы расходов из файла - VB

Формулировка задачи:

Расчитать сумму расходов из файла за каждый день и за всю неделю. помогите плиз нужно завтра уже сдавать((((

Решение задачи: «Составить программу для расчета суммы расходов из файла»

textual
                            Листинг программы 
                        
 
                            
                        
Private Enum День_Недели
    Понедельник
    Вторник
    Среда
    Четверг
    Пятница
    Суббота
End Enum
 
Private Type Расход
    Питание(Понедельник To Суббота)   As Integer
    Оплата_услуг(Понедельник To Суббота) As Integer
    Подарки(Понедельник To Суббота)  As Integer
    Развлечения(Понедельник To Суббота) As Integer
End Type
 
Dim День  As День_Недели
Dim Расходы_на As Расход
Dim Расходы_на_питание_за_неделю As Integer
Dim Расходы_на_оплату_услуг_за_неделю As Integer
Dim Расходы_на_подарки_за_неделю As Integer
Dim Расходы_на_развлечения_за_неделю As Integer
Dim Всего_расходов_за(Понедельник To Суббота) As Integer
Private Sub Command1_Click()
   Расходы_на.Питание(Понедельник) = 40: Расходы_на.Питание(Вторник) = 50: Расходы_на.Питание(Среда) = 45: Расходы_на.Питание(Четверг) = 42: Расходы_на.Питание(Пятница) = 43: Расходы_на.Питание(Суббота) = 60:
   Расходы_на.Оплата_услуг(Понедельник) = 45: Расходы_на.Оплата_услуг(Вторник) = 56: Расходы_на.Оплата_услуг(Среда) = 45: Расходы_на.Оплата_услуг(Четверг) = 56: Расходы_на.Оплата_услуг(Пятница) = 45: Расходы_на.Оплата_услуг(Суббота) = 56:
   Расходы_на.Подарки(Понедельник) = 20: Расходы_на.Подарки(Вторник) = 22: Расходы_на.Подарки(Среда) = 23: Расходы_на.Подарки(Четверг) = 24: Расходы_на.Подарки(Пятница) = 29: Расходы_на.Подарки(Суббота) = 26:
   Расходы_на.Развлечения(Понедельник) = 32: Расходы_на.Развлечения(Вторник) = 32: Расходы_на.Развлечения(Среда) = 31: Расходы_на.Развлечения(Четверг) = 54: Расходы_на.Развлечения(Пятница) = 54: Расходы_на.Развлечения(Суббота) = 45:
 
For День = Понедельник To Суббота
   Расходы_на_питание_за_неделю = Расходы_на_питание_за_неделю + Расходы_на.Питание(День)
   Расходы_на_оплату_услуг_за_неделю = Расходы_на_оплату_услуг_за_неделю + Расходы_на.Оплата_услуг(День)
   Расходы_на_подарки_за_неделю = Расходы_на_подарки_за_неделю + Расходы_на.Подарки(День)
   Расходы_на_развлечения_за_неделю = Расходы_на_развлечения_за_неделю + Расходы_на.Развлечения(День)
Next День
 
Print "Расходы_на_питание_за_неделю = "; Расходы_на_питание_за_неделю
Print "Расходы_на_оплату_услуг_за_неделю ="; Расходы_на_оплату_услуг_за_неделю
Print "Расходы_на_подарки_за_неделю = "; Расходы_на_подарки_за_неделю
Print "Расходы_на_развлечения_за_неделю ="; Расходы_на_развлечения_за_неделю
      
      День = Понедельник
      Всего_расходов_за(День) = Расходы_на.Питание(День) + Расходы_на.Оплата_услуг(День) + Расходы_на.Подарки(День) + Расходы_на.Развлечения(День)
Print "Всего_расходов_за "; " Понедельник"; Всего_расходов_за(День)
End Sub