Для чего нужна процедура Sub?. Доклад. Информатика, ВТ, телекоммуникации.

⚡ 👉🏻👉🏻👉🏻 ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻

Вы можете узнать стоимость помощи в написании студенческой работы.


Помощь в написании работы, которую точно примут!

Похожие работы на - Для чего нужна процедура Sub?

Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе

Нужна качественная работа без плагиата?

Не нашел материал для своей работы?


Поможем написать качественную работу Без плагиата!

Если
Вы уже читали моё объяснения процедуры Function, то Вы поймёте Sub ёще быстрее!
В общем так, Sub это то же самое, что и Function, только она не возвращает
значение, а производит какое-нибудь действие. Например вывод на экран сообщения
или манипулирование несколькими свойствами. Например MsgBox. Это тоже
подпрограмма. Например:
Msgbox
- это имя подпрограммы. А "Привет!" и "Заголовок" это
передаваемые значения. Т.е. подпрограмма Msgbox выводит окно на экран с текстом
"Привет!" и заголовком "Заголовок".
Теперь
допустим, что Вам нужно, чтобы ваша программа вырезала из передаваемых строк
все заданные символы (возьмём мой пример из "Практики"):
объявляем
переменную для символа, который надо вырезать
объявляем
переменную для места нахождения символа
получаем
строку, по умолчанию стоит строка
Stroka = InputBox("Введите строку", , "There is nothing
impossible!")
получаем
символ, по умолчанию стоит символ "i"
Symbol
= InputBox("Введите символ", , "i")
  с помощью InStr получаем местоположение
искомого символа
  если оно равно нулю, покидаем цикл
  ReturnNumber = InStr(1, Stroka, Symbol): If _
  строке присваем все символы слева до
искомого и справа
  Stroka = Left(Stroka, ReturnNumber - 1) + Right(Stroka, _
   
MsgBox Stroka выводим отредактированную строку на экран
А
теперь представте, что эти строки Вам нужны более одного раза и в разных местах
!
Не
проще ли написать подпрограмму, которая
это делает и потом просто вызывать её? Так, пишем (вне модуля):
       ReturnNumber = InStr(1, Stroka,
Symbol): If _
       ReturnNumber = 0 Then Exit Do
       Stroka = Left(Stroka, ReturnNumber - 1)
+ Right _
       (Stroka, Len(Stroka) - ReturnNumber)
Вот
так, а теперь можно просто вызывать эту подпрограмму и передать значения строки
и символа:
Для
подготовки данной работы были использованы материалы с сайта http://visualprogs.narod.ru/


Похожие работы на - Для чего нужна процедура Sub? Доклад. Информатика, ВТ, телекоммуникации.
Курсовая работа: Основные резервы повышения экономической эффективности производства молока
Реферат: Поэт 2
Курсовая работа по теме Кредитование юридических лиц Сбербанком РФ
Дипломная работа по теме Восстановление экономики Португалии в период с 2008 по 2022 год
Реферат: Поэтизация труда в романе Д. Дефо "Робинзон Крузо"
Система Оплаты Труда На Предприятии Курсовая
Дипломная Работа На Тему Анализ Деятельности Туристической Фирмы "Виктория"
Клише Сочинение Русский 2022
Реферат: Violent Video Games Essay Research Paper Writing
Отчет по практике по теме Организация бухгалтерского учета в Государственном коммунальном учреждении 'Ясли-сад №1 'Карлыгаш'
Сказка Собственного Сочинения 9 Класс
Курсовая работа по теме Концепция дел, входящих во внутреннюю юрисдикцию государства
Роль Инновационных Процессов В Современной Экономике Реферат
Реферат: Берта Моризо - импрессионист XIX века
Курсовая работа по теме Психологическая диагностика готовности детей к школьному обучению
Реферат по теме Родовспоможение в XX веке
Стратегія розвитку рекреаційних зон туристичного призначення
Сочинение Встреча С Прекрасным
Курсовая Работа На Тему Филиппо Брунеллески И Флоренция: Творческая Личность В Контексте Ренессансной Культуры
Реферат: Жорж Шарль Дантес (Геккерн)
Статья: Агата Кристи: "Десять негритят"
Похожие работы на - Разработка и моделирование сервисного устройства выборочного ограничения исходящей междугородной связи
Доклад: Ответственность за ошибки в бухгалтерском учете: Конституционный Суд остановился на полпути