8. Запустите приложение и щелкните по кнопке < Вычислить >. Результат работы представлен на рис. 13.7.
Рис. 13.7
Лучший способ избежать ошибок — никогда не менять переданную переменную в процедуре, но это не всегда надежно. Лучшее решение заключается в использовании ключевого слова ByVal. Измените заголовок процедуры так:
Private Sub Kpyг (ByVal Радиус As Single, Площадь As Single, ДлинаОкружности As Single).
9. Еще раз запустите приложение и щелкните по кнопке < Вычислить >. Результат работы представлен на рис. 13.8.
Рис. 13.8
Ключевое слово ByVal указывает, что в процедуру передается копия переменной, и все ее изменения будут сказываться только на копии. В результате, что бы ни произошло с параметром Радиус значение переменой R меняться не будет. Такой способ передачи параметров называется передачей параметров по значению.
10. Попробуйте написать заголовок процедуры, добавив ключевое слово ByVal перед параметрами Площадь и ДлинаОкружности:
Private Sub Kpyг(Радиус As Single, ByVal Площадь As Single, ByVal ДлинаОкружности As Single)
11. Еще раз запустите приложение и щелкните по кнопке < Вычислить >. Результат работы представлен на рис. 13.9. Объясните результат.
Рис. 13.9
12. Отмените последнее изменение.
13. Сохраните проект в папке ЛАБ13 под именем ЛР13_Зад1.
Завдання 13.2. Постановка задачи: ОПРЕДЕЛИТЬ МАКСИМАЛЬНОЕ ЧИСЛО ИЗ ТРЕХ ЧИСЕЛ, ИСПОЛЬЗУЯ ОБЩУЮ ПРОЦЕДУРУ ОПРЕДЕЛЕНИЯ МАКСИМАЛЬНОГО ЧИСЛА ИЗ ДВУХ ЧИСЕЛ. ОБЩУЮ ПРОЦЕДУРУ РАЗМЕСТИТЬ В ПРОГРАММНОМ МОДУЛЕ ФОРМЫ. ВИД ПРИЛОЖЕНИЯ БУДЕТ ИМЕТЬ ВИД, ПРЕДСТАВЛЕННЫЙ НА РИС. 13.10.
Рис. 13.10
Порядок действий:
1. Расположите на форме объекты в соответствии с рис.13.10.
2. Установите значения свойства Name для текстовых полей TxtX, TxtX, TxtZ и txtMAX.
3. Установите значения свойства Name для кнопки — cmdM.
4. Установите значения свойства Caption для формы, кнопки и меток в соответствии с рис. 13.10.
5. Создайте общую процедуру. Для размещения ее в программном модуле формы используйте один из способов, описанных выше: