2015-05-14
233
6. Запустите приложение и щелкните по кнопке < Выполнить >. Результат работы представлен на рис. 13.6. Процедура Круг предназначена для вычисления площади круга, длины окружности. При вызове этой процедуры из событийной процедуры сmdВычислить_Сliсk() ей передается в качестве пapаметров значение радиуса: R =1.
Рис. 13.6
Компьютер, выполняя тело процедуры Круг и присваивая значение переменным Площадь и ДлинаОкружности, тем самым присваивает значения переменным S и L, т. е. изменяет содержимое ячеек отведенное под эти персменные. Говорят, что в этом случае между вызывающей и вызываемой процедурами осуществляется передача параметров по ссылке. Чтобы подчеркнуть, что используется именно этот способ передачи параметров, заголовок процедуры можно записать так:
Private Sub Круг(Радиус As Single, ByRef Площадь As Single,
ByRef ДлинаОкружности As Single)
Использование ключевого слова ВуRеf излишне, так как данный способ используется по умолчанию. При этом способе вызываемая процедура получает полный контроль над переменными R, S, L вызывающей процедуры и может присваивать им все, что хочет. Это удобно, но небезопасно, так как в этом случае переменные становятся беззащитными против ошибок в вызываемой процедуре. Так, программист может для каких-то других целей включить в процедуру оператор, меняющий значение параметра R, например Радиус =100.
|
|
|
7. Измените процедуру Круг следующим образом:
