Студопедия
МОТОСАФАРИ и МОТОТУРЫ АФРИКА !!!


Авиадвигателестроения Административное право Административное право Беларусии Алгебра Архитектура Безопасность жизнедеятельности Введение в профессию «психолог» Введение в экономику культуры Высшая математика Геология Геоморфология Гидрология и гидрометрии Гидросистемы и гидромашины История Украины Культурология Культурология Логика Маркетинг Машиностроение Медицинская психология Менеджмент Металлы и сварка Методы и средства измерений электрических величин Мировая экономика Начертательная геометрия Основы экономической теории Охрана труда Пожарная тактика Процессы и структуры мышления Профессиональная психология Психология Психология менеджмента Современные фундаментальные и прикладные исследования в приборостроении Социальная психология Социально-философская проблематика Социология Статистика Теоретические основы информатики Теория автоматического регулирования Теория вероятности Транспортное право Туроператор Уголовное право Уголовный процесс Управление современным производством Физика Физические явления Философия Холодильные установки Экология Экономика История экономики Основы экономики Экономика предприятия Экономическая история Экономическая теория Экономический анализ Развитие экономики ЕС Чрезвычайные ситуации ВКонтакте Одноклассники Мой Мир Фейсбук LiveJournal Instagram

Способ




Вызов выполняется отдельной строкой с указанием имени подпрограммы и без круглых скобок фактические параметры. Например: max a, b, r1 .

Пример 17.1.

При заданных a,b,c cоставить программную единицу для вычисления y= max(a,b) + max(a+b, c).Значение max определить в подпрограмме Sub.

Переменные в подпрограмме и основной программе описаны по умолчанию как тип Variant.

Sub max (ByVal N,ByVal M, R) ' Заголовок подпрограммы max

If N < M Then R = M Else R = N ' Выходной параметр R

End Sub' Конец подпрограммы

В окне кода подпрограмма может быть расположена рядом с основной программой (до нее или после ее).

Private Sub Command1_Click()' Основная программа

Dim a, b, c, y, r1, r2

a = Val(InputBox(" Введите а "))

b = Val(InputBox(" Введите b "))

c = Val(InputBox(" Введите c "))

Call max(a, b, r1) ' Первый вызов подпрограммы

Call max(a + b, c, r2) ' Второй вызов подпрограммы

y = r1 + r2 ' r1 и r2 - результаты работы подпрограммы

MsgBox " y=" & y

End Sub

Подпрограмма - процедура Function

Такую подпрограмму называют встроенной функцией ( подобно sin(x) ). В ней выполняется определенный набор операторов и возвращается один результат, присвоенный имени подпрограммы

Синтаксис процедуры Function:

[Public | Private] [Static]Function ИМЯ[(параметры)] [As тип]

[операторы процедуры]

[ИМЯ= результат работы подпрограммы - процедуры]

End Function

[Public | Private] [Static] – аналогично процедуре Sub.

Function - название процедуры. ИМЯ - имя процедуры .

параметры - в простейшем случае их называют формальными параметрами.

тип - тип имени процедуры Function.

Ниже приведена подпрограмма типа Function с именем max:

Function max (n As single, m As single ) As single

if n<m then max=m else max=n

End Function





Дата добавления: 2015-03-20; просмотров: 264; Опубликованный материал нарушает авторские права? | Защита персональных данных | ЗАКАЗАТЬ РАБОТУ


Не нашли то, что искали? Воспользуйтесь поиском:

Лучшие изречения: Сдача сессии и защита диплома - страшная бессонница, которая потом кажется страшным сном. 8865 - | 7199 - или читать все...

Читайте также:

  1. D. КРИТЕРИИ ОХРАНОСПОСОБНОСТИ
  2. I.Газовая функция живого вещества в биосфере обусловлена способностью организмов
  3. I.Что такое приспособление?
  4. II. Классификация лекарственных форм в зависимости от способа применения или метода дозирования
  5. II. Смена постельного белья поперечным способом
  6. III. Выявление несостоятельности демонстрации. Этот способ опровержения состоит в том, что показываются ошибки в форме доказательства
  7. III. Особенности выдачи листка нетрудоспособности при различных видах временной нетрудоспособности
  8. III. Порядок выдачи листка нетрудоспособности
  9. X) Решение неравенств используя определение модуля (общий способ)
  10. XII. СПОСОБНОСТИ
  11. А.В. Мирошевская, воспитатель ЗЦДЮТ «Зеркальный». Цель: диагностическая, эмоциональное раскрепощение, развитие творческих способностей
  12. Аварии на магистральных трубопроводах и способы их ликвидации


 

34.237.51.159 © studopedia.ru Не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования. Есть нарушение авторского права? Напишите нам | Обратная связь.


Генерация страницы за: 0.014 сек.