Col + 1:. Text = CStr (sq)
Else 'читання раніше введеної інформації
. Row = j
. Col = 1: people = Val (. Text)
. Col =. Col + 1: et = Val (. Text)
. Col =. Col + 1: sq = CSng (. Text) If = (tarif_kvm * ​​sq * m (i) + text_tarif_gaz + tarif_h2o) * people + tarif_otopet <> 1 Then tarif = tarif + lift * people * m (i)
. Col = i + 3:. Text = Format (tarif, "# .00") jiWith
End Sub
Розроблена екранна форма
В
Текстовий приклад роботи
Вікно програми після запуску
В
Введення вихідних даних
В
В
В
В
І т.д.
Результати розрахунку
В В
Список використаних джерел
1. # "justify"> 2. Меженний О. А. В«Microsoft Office Word 2003. Самовчитель. В»- Київ: Діалектика, 2004 р. - 272 стор, з іл.
.
