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


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

End Function. Подпрограмма-функция вызывается в выражении по своему имени, за которым следует список аргументов в скобках:




Подпрограмма-функция вызывается в выражении по своему имени, за которым следует список аргументов в скобках:

Переменная = Имя подпрограммы-функции(Список аргументов)

Пример 1

Даны действительные числа s, t. Получить значение выражения

,

где

Программный код

Option Explicit

Sub PR31()

Dim s As Double

Dim t As Double

Dim f As Double

s = Val(InputBox("Введи s"))

t = Val(InputBox("Введи t"))

f = Q(1.2, s) + Q(t, s) – Q(2 * s – 1, s * t)

MsgBox("f=" & f)

End Sub

Private Function Q(ByVal a As Double, ByVal b As Double) As Double

Q = (a^2 + b^2) / (a^2 + 2 * a * b + 3 * b^2 + 4)

End Function





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


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

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

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

  1. A. Раздел биомеханики, в котором исследуется движение крови по сосудистой системе
  2. Corr: 4. Que: Укажите, к какой форме и виду наблюдения следует отне­сти ежедневные записи в бланках прихода и расхода при обсле­довании бюджетов семей: 1) отчетность;
  3. End Function. В результате работы приложения для конкретного клиента бланк заказа к печати выглядит следующим образом :
  4. End Function. Между заголовком и концом функции располагаются операторы, вычисляющие функцию
  5. End Function. Результат работы программы будет выглядеть:
  6. I.2. Примерный список вопросов
  7. MsgBox (Список аргументов)
  8. Аналитическом выражении
  9. АРИСТОТЕЛЬ. лучают волос на лобке, другие — бороды, оставаясь всю жизнь похожими на евнухов; с некоторыми случается это в более позднем возрасте
  10. Б. Порядок расчета. Для наружных стен из кирпича с утеплителем следует принимать приведенное сопротивление теплопередаче с учетом коэффициента теплотехнической однородности
  11. Базовый уровень. Количество товара, которым покупатель "жертвует" ради приобретения одной


 

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


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