Практическая работа № 4.8

1. Создать новый проект и программу: в квартире 4 комнаты. Известны длина и ширина каждой комнаты. Вычислить площадь пола всей квартиры. Макет формы показан на рис. 27.

2. Программный код для кнопки пуск:

Form1.Cls

Dim S, A, B, C, D As Long

Dim X1, X2, X3, X4 As Single

Dim Y1, Y2, Y3, Y4 As Single

X1=InputBox("Введите длину 1 комнаты")

Y1=InputBox("Введите ширину 1 комнаты")

X2=InputBox("Введите длину 2 комнаты")

Y2=InputBox("Введите ширину 2 комнаты")

X3=InputBox("Введите длину 3 комнаты")

Y3=InputBox("Введите ширину 3 комнаты")

X4=InputBox("Введите длину 4 комнаты")

Y4=InputBox("Введите ширину 4 комнаты")

A=X1*Y1: B=X2*Y2: C=X3*Y3: D=X4*Y4

S=A+B+C+D

Text1.Text=S

3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.