это быстро и бесплатно
Оформите заказ сейчас и получите скидку 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 заданиями. Контролируйте процесс написания работы в режиме онлайн 
Лингвостилистические и синтаксические особенности перевода романа D. Brown "Inferno"
Магистерская диссертация, Лингвистика
Срок сдачи к 10 сент.
Онлайн-помощь со вступительным экзаменом в колледж. Биология. П-00037
Онлайн-помощь, Биология
Срок сдачи к 14 июля
Нужен отчет по практике и заполненный дневник практики
Отчет по практике, Экология и природопользование
Срок сдачи к 21 июля
Задание для Телешун Матвея Вячеславовича + необходима...
Отчет по практике, Цифровая экология в промышленных предприятиях
Срок сдачи к 20 июля
Технологическая (проектно-технологическая) практика
Отчет по практике, Педагогика
Срок сдачи к 3 авг.
Факультет химическая технология переработки нефти и газа.
Диплом, Нефтегазовое дело
Срок сдачи к 31 авг.
Создать 3д модель по чертежу и перерисовать чертеж в электронном виде.
Чертеж, Инженерная графика
Срок сдачи к 31 июля
Психокоррекция -практическое задание, основы психиатрии -практическое задание
Другое, Психология
Срок сдачи к 1 авг.
Тема курсовой работы: Принципы и цели системы обеспечения промышленной безопасности
Курсовая, Системы обеспечения промышленной безопасности
Срок сдачи к 3 авг.
Особенности религиозных ситуаций древней греции на примере культа бога геракла в северном причерноморье
Диплом, Культурология
Срок сдачи к 14 сент.
Краеведческий материал как средство развития у учащихся начальных классов познавательного интереса к математике
Курсовая, Начальное образование
Срок сдачи к 17 июля
Отчет по учебной практике ознакомительной.
Отчет по практике, Прикладная информатика
Срок сдачи к 14 июля
1. кинематический анализ механизма. 2. кинетостатический анализ механизма. 3. динамический синтез маховика. 4. анализ и синтез кулачковых механизмов. 5. эвольвентное зацепление.
Курсовая, Теория механизмов и машин (ТММ), машиностроение
Срок сдачи к 16 июля
«Всё сдал!» — безопасный онлайн-сервис с проверенными экспертами
Используя «Свежую базу РГСР», вы принимаете пользовательское соглашение
и политику обработки персональных данных
Сайт работает по московскому времени:
Принимаем к оплате
© 2011—2026 Всё сдал!
Заполните форму и узнайте цену на индивидуальную работу!
Мы ВКонтакте 
Трейлер о сайте