Выполнение. площадь поверхности

Расчётные формулы:

площадь поверхности

где R - радиус, L - длина образующей;

объём конуса

где H - высота конуса, рассчитывается по формуле: .

Используемые элементы управления:

TextBox (поле) - используется для ввода-вывода информации;

Label (надпись) - используется для вывода текста на форму;

CommandButton (кнопка) - используется для запуска, прерывания или остановки некоторого процесса.

1. Запустить редактор VBA.

2. Выполнить команды меню Insert ® UserForm.

3. На форме расположить элементы управления (таблица 1).

4. С помощью окна свойств (Properties) установить заданные значения свойств (таблица 1). Вид разработанной формы представлен на рис.1.

Таблица 1

Элементы управления и их свойства

Элемент	Свойство	Значение свойства
UserForm1	Name	UserForm1
	Caption	Конус
Label1	Caption	Исходные данные
	Font	В окне диалога установить параметры шрифта
	ForeColor	На вкладке Palette выбрать цвет
Label2	Caption	Радиус основания, см
Label3	Caption	Длина образующей, см
TextBox1	Name	TxtR
	Value
TextBox2	Name	TxtL
	Value
Label4	Caption	Результаты расчёта
	Font	В окне диалога установить параметры шрифта
	ForeColor	На вкладке Palette выбрать цвет
Label5	Caption	Высота, см
Label6	Caption	Общая поверхность, см^2
Label7	Caption	Объём, см^3
TextBox3	Name	TxtH
TextBox4	Name	TxtS
TextBox5	Name	TxtV
CommandButton1	Caption	Расчёт
	Font	В окне диалога установить параметры шрифта
CommandButton2	Caption	Выход
	Font	В окне диалога установить параметры шрифта