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


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

Примечание 1




1. По умолчанию формальные и фактические параметры должны быть согласованы по количеству, порядку следования и типу.

2. По умолчанию формальные параметры после работы подпрограммы возвращаются на место фактических. Такой возврат отменятся, если перед формальными параметрами введено ключевое слово ByVal.

Например, Function F (ByVala,ByValb).В этом случае a, b не возвращается на место c,d.

Примечание 2. Существует еще два способа вызова подпрограммы Function, в которых возвращаемое значение F теряется:

1. Отдельным оператором: Call F(c,d)

2.Отдельным именем и фактическими параметрами без скобок : F c,d

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

Function max(n As Single, m As Single) As Single ‘Заголовок подпрограммы

If n < m Then max = m Else max = n

End Function ‘ Конец подпрограммы

Основная программа:

Private Sub Command1_Click()

Dim a As Single

Dim b As Single

Dim c As Single

Dim y As Single

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

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

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

y = max(a, b) + max(a + b, c) ' 2 обращения к подпрограмме с именем max

MsgBox " y=" & y

End Sub

Во избежания ошибок в основной программе переменные описывать отдельными операторами Dim

Глава 18. Решение оптимизационных задач





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


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

Лучшие изречения: Как то на паре, один преподаватель сказал, когда лекция заканчивалась - это был конец пары: "Что-то тут концом пахнет". 8467 - | 8063 - или читать все...

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

  1. БЛИЖАЙШИЕ ФЬЮЧЕРСНЫЕ КОНТРАКТЫ. Примечание: Т - относительный минимум; 4 - относительный максимум
  2. Где примечание
  3. Где примечание. Импорт РФ из ЕС, млрд. долл., Юнктад
  4. Где примечание. Распределение автоперевозчиков на рынке международных перевозок российских грузов внешней торговли выглядит следующим образом: на долю Беларуси приходится 15
  5. Где примечание. Сухопутный транзит через территорию ТС товарооборота ЕС и Китая (всего около 0,5 трлн
  6. Где примечание. Таблица 8 Оценка показателей индекса «международная торговля» Процедуры, необходимые для экспорта Пр-сть (дни) Беларусь Пр-сть (дни)
  7. Глава 12. ИСКОВАЯ ДАВНОСТЬ. КонсультантПлюс: примечание
  8. Задача №5. Больной М., 42 года. Кол-во эритроцитов тер/л(RBC) Гемоглобин г/л(HGB) ЦП Кол-во ретикулоцитов %о Примечание 3,5
  9. И ОТВЕТСТВЕННОСТЬ ЗА ИХ СОВЕРШЕНИЕ. КонсультантПлюс: примечание
  10. О Троице. (Примечание: некоторые тексты из Писания, приведенные блаж
  11. Примечание
  12. Примечание


 

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


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