Составить программу для расчета суммы расходов из файла - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д