Практическое задание № 8 Ввод и вывод значений переменных Расчет площади прямоугольника

PublicSubОбъединение ()

Dim Storona1 As Single, Storona2 As Single, Rezultat As Single

Storona1 =InputBox(“Введите первую сторону прямоугольника”, ”Площадь прямоугольника”)

Storona2 =InputBox(“Введите вторую сторону прямоугольника”, ”Площадь прямоугольника”)

Rezultat=Storona1*Storona2

MsgBox“Площадь прямоугольника = ”&Rezultat& “квадратных сантиметров”

EndSub

Практическое задание № 9

Определите длину окружности Cи площадьSкруга, ограниченного этой окружностью, если радиус равенR. Определите удалениеLцентра окружности от начала координатO. Координаты центра окружности равныXиY. Разработайте диалоговое окно для ввода исходных данных и вывода результатов (рис.1). В диалоговом окне расположите рисунок задания. При подготовке рисунка установите следующие размеры:

• Высота — 250 точек

• Ширина — 200 точек.

Технология работы:

Создайте новый файл. Сохраните его под именем «Пр9»

• Для ввода значений Xпри построении используется текстовое поле —TextBox1.

• Для ввода значений Yпри построении используется текстовое поле —TextBox2.

• Для ввода значений Rпри построении используется текстовое поле —TextBox3.

• Для вывода площади круга С при построении используется текстовое поле — Label10.

• Для вывода площади круга Sпри построении используется текстовое поле —Label11.

• Для вывода площади круга Lпри построении используется текстовое поле —Label12.

• Для отображения рисунка при построении используется элемент управления Image1.

Расчет и вывод результатов должен осуществляться по нажатию на кнопку «Запуск» в форме. Программа для кнопки «Запуск»:

Номер строки	Текст программы
1	Private Sub CommandButton1_Click()
2	RemОбъявление переменных
3	Rem Радиус
4	Dim R As Single
5	RemКоординаты центра окружности
6	Dim X, Y As Single
7	RemДлина окружности
8	Dim C As Single
9	RemПлощадь круга
10	Dim S As Single
11	RemУдаление круга
12	Dim L As Single
13	RemЧислоPi
14	Dim Pi As Single
15	RemНачало программы
16	Pi= 3.14
17	RemПреобразование данных, считанных из текстовых полей в числовые
18	X = Val(TextBox1)
19	Y = Val(TextBox2)
20	R = Val(TextBox3)
21	RemВычисление значений
22	C = 2 * Pi * R
23	S = Pi * R * R
24	L = Sqr(X * X + Y * Y)
25	RemВывод результатов
26	Label10.Caption = Str(C)
27	Label11.Caption = Str(S)
28	Label12.Caption = Str(L)
29	End Sub

Разберем программу:

Строка 1

Начало программы. Отзыв кнопки CommandButton1на щелчок.

Строки 2-16 — Объявление переменных

В программе все переменные объявили как Single, т.е. вещественные одинарной точности, так как предполагается, что координаты центра окружности и радиус должны быть не только целыми, но вещественными. Результаты также будут вещественными.

Строки 17-20 — Преобразование данных, считанных из текстовых полей в числовые

Поля TextBox при вводе хранят данные символьного типа, т.е. координаты центра окружности и радиус — это символы, но в дальнейшем эти данные должны участвовать в вычислениях, поэтому необходимо преобразовать их в числа, с помощью функции Val и присвоить числовые значения переменным X, Y и R.

Строки 21-24 — Вычисление значения

В этих строках вычисляются длина окружности — С, площадь круга — S, удаление окружности от начала координат — L.

Строки 25-28 — Вывод результатов

Вычисленные значения хранятся в числовом формате. Для вывода результатов в текстовые поля преобразуем их в символы, применив функцию преобразования форматов Str.

Строка 29 — Конец программы.

Данную программу можно упростить, если объявить все переменные в одной строке, то есть объединить строки со 2-ой по 14-ую в одну. Остальные строки оставить без изменения. Далее напишите программу для кнопки Выход. При нажатии на эту кнопку форма должна скрываться с экрана.

Для появления формы на экране на листе создайте кнопку Окружность.