это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
Ознакомительный фрагмент работы:
Если Вы уже читали моё объяснения процедуры Function, то Вы поймёте Sub ёще быстрее! В общем так, Sub это то же самое, что и Function, только она не возвращает значение, а производит какое-нибудь действие. Например вывод на экран сообщения или манипулирование несколькими свойствами. Например MsgBox. Это тоже подпрограмма. Например:
Msgbox ("Привет!", ,"Заголовок")
Msgbox - это имя подпрограммы. А "Привет!" и "Заголовок" это передаваемые значения. Т.е. подпрограмма Msgbox выводит окно на экран с текстом "Привет!" и заголовком "Заголовок".
Теперь допустим, что Вам нужно, чтобы ваша программа вырезала из передаваемых строк все заданные символы (возьмём мой пример из "Практики"):
Sub Main()
объявляем переменную для строки
Dim Stroka As String
объявляем переменную для символа, который надо вырезать
Dim Symbol As String
объявляем переменную для места нахождения символа
Dim ReturnNumber As Integer
получаем строку, по умолчанию стоит строка
"There is nothing impossible!"
Stroka = InputBox("Введите строку", , "There is nothing impossible!")
получаем символ, по умолчанию стоит символ "i"
Symbol = InputBox("Введите символ", , "i")
запускаем цикл
Do
с помощью InStr получаем местоположение искомого символа
если оно равно нулю, покидаем цикл
ReturnNumber = InStr(1, Stroka, Symbol): If _
ReturnNumber = 0 Then Exit Do
строке присваем все символы слева до искомого и справа
Stroka = Left(Stroka, ReturnNumber - 1) + Right(Stroka, _
Len(Stroka) - ReturnNumber)
Loop
MsgBox Stroka выводим отредактированную строку на экран
End Sub
А теперь представте, что эти строки Вам нужны более одного раза и в разных местах !
Не проще ли написать подпрограмму, которая это делает и потом просто вызывать её? Так, пишем (вне модуля):
Public Sub RemSym(Stroka, Symbol)
Do
ReturnNumber = InStr(1, Stroka, Symbol): If _
ReturnNumber = 0 Then Exit Do
Stroka = Left(Stroka, ReturnNumber - 1) + Right _
(Stroka, Len(Stroka) - ReturnNumber)
Loop
MsgBox Stroka
End Sub
Вот так, а теперь можно просто вызывать эту подпрограмму и передать значения строки и символа:
RemSym Stroka, Symbol
и из любого места!
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников 
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован 
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн 
Обзор на грант
Презентация, Основы научной и проектной деятельности в организации общего образования
Срок сдачи к 25 окт.
Решение задач
Решение задач, Планирование эксперимента в исследовании техпроцесса
Срок сдачи к 24 окт.
Решить все задачи и все практические, без нейросети
Практическая работа, Экономика предприятия
Срок сдачи к 31 окт.
Сделать практические работы начиная
Практическая работа, Компьютерные сети и системы
Срок сдачи к 26 окт.
Планирование и организация рекламной кампании для компании ооо «днс ритейл», на примере бренда «dexp»
Курсовая, медиапланирование
Срок сдачи к 29 окт.
Профилактика развития аллергических заболеваний у детей через применение здоровье сберегающих технологий в дошкольной образовательной организации.
Курсовая, медико-биологические основы здоровья
Срок сдачи к 30 нояб.
Особенности организационно-правового регулирования пассажирских...
Диплом, Юриспруденция
Срок сдачи к 10 дек.
разработка в соответствии с исходными данными эскизного
Курсовая, Прикладная механика
Срок сдачи к 1 нояб.
«Всё сдал!» — безопасный онлайн-сервис с проверенными экспертами
Используя «Свежую базу РГСР», вы принимаете пользовательское соглашение
и политику обработки персональных данных
Сайт работает по московскому времени:
Принимаем к оплате
© 2011—2026 Всё сдал!
Заполните форму и узнайте цену на индивидуальную работу!
Мы ВКонтакте 
Трейлер о сайте