Порядок действий. 1. Расположите на форме единственный объект – командную кнопку

1. Расположите на форме единственный объект – командную кнопку.

2. Установите значение свойства Caption для формы — Kруг.

3. Установите значение свойства Name для командной кнопки сmdВычислить, а значение свойства Caption — Вычислить.

4. Создайте общую процедуру:

Private Sub Круг(ByVal Радиус As Single, Площадь As Single, ДлинаОкружности As Single)

Площадь = 3.14 * Радиус ^2

ДлинаОкружности = 2 * 3.14 * Радиус

End Sub

Здесь Радиус — входной параметр, а Площадь и ДлинаОкружности выходные параметры процедуры.

5. Напишите процедуру, которая будет выполняться после щелчка по кнопке <Вычислить>:

Private Sub CmdВычислить_Click()

Dim R As Single, S As Single, L As Single

R = 1

Call Круг(R, S, L)

Print "Радиус"; R

Print "Площадь круга "; S

Print "Длина Окружности"; L