Реферат Функції ОС по установці, виконанню і видаленню додатків

ена нижче. Програмний код напишемо на мові програмування Visual Basic 6.0

В В 

Розробка машинної програми завдання на мові програмування

Option ExplicitSub Form_Load () _lift.Text = CSng (1.4) _tarif_gaz.Text = "50" _tarif_h2o.Text = CSng (137.88) _tarif_kvm.Text = CSng (1.1) _tarif_otop.Text = CSng (9.61) _year.Text = 2008SubSub run_Click () kv As Integer, et As Integer, people As Integer, s As String, _ (1 To 12) As Integer, j As Integer, i As Integer, _As Single, tarif_gaz As Single , tarif_h2o As Single, __ kvm As Single, tarif_otop As Single, Year As Integer, _As Integer, tarif As Single, sq As Single

Rem читання вихідних даних = CSng (text_lift.Text)

tarif_gaz = CSng (text_tarif_gaz.Text) _h2o = CSng (text_tarif_h2o.Text) _kvm = CSng (text_tarif_kvm.Text) _otop = CSng (text_tarif_otop.Text) = CInt (text_year.Text)

s = "Введення вихідних даних" Кнопка Розрахунок

With Gr

. Cols = 16

. Col = 0:. Row = 0:. Text = "№ кв."

. Col =. Col + 1:. Text = "Жильцов"

. Col =. Col + 1:. Text = "Поверх"

. Col =. Col + 1:. Text = "Кв.м"

. Col =. Col + 1:. Text = "Январь": m (1) = 31

. Col =. Col + 1:. Text = "Февраль": m (2) = 28

. Col =. Col + 1:. Text = "Март": m (3) = 31

. Col =. Col + 1:. Text = "Квітень": m (4) = 30

. Col =. Col + 1:. Text = "Май": m (5) = 31

. Col =. Col + 1:. Text = "Червень": m (6) = 30

. Col =. Col + 1:. Text = "Липень": m (7) = 31

. Col =. Col + 1:. Text = "Август": m (8) = 31

. Col =. Col + 1:. Text = "Вересень": m (9) = 30

. Col =. Col + 1:. Text = "Жовтень": m (10) = 31

. Col =. Col + 1:. Text = "Ноябрь": m (11) = 30

. Col =. Col + 1:. Text = "Грудень": m (12) = 31

kv = InputBox ("Кількість квартир в будинку", s, "12")

. Rows = kv + 1Определяем високосний рік

y = Year/4y * 4 = Year Then m (2) = m (2) + 1

For i = 1 To 12 'цикл по месяцамj = 1 To kv' цикл по квартірамi = 1 Then 'введення вихідних даних

. Row = j

. Col = 0:. Text = CStr (j)

people = CInt (InputBox ("Кількість мешканців у квартирі" + Str (j), s, 1))

. Col =. Col + 1:. Text = CStr (people) = CInt (InputBox ("Поверх квартири" + Str (j), s, 1))

. Col =. Col + 1:. Text = CStr (et) = CSng (InputBox ("Площа квартири" + Str (j), s, 1))

. Col =. ...