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