это быстро и бесплатно
Оформите заказ сейчас и получите скидку 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 заданиями. Контролируйте процесс написания работы в режиме онлайн 
Служебная дисциплина в органах внутренних дел.
Контрольная, Административная деятельность полиции
Срок сдачи к 31 дек.
Нужно пройти контрольные тестирования по предметам
Тест дистанционно, Административное право, Безопасность жизнедеятельности, Гос. и муниципальные финансы
Срок сдачи к 28 дек.
Взаимодействие экономических и правовых отношени в хозяйственной жизни общества
Контрольная, Экономика
Срок сдачи к 31 дек.
Написать курсовую. Тема курсовой Маркетинг в развитии коммерческой...
Курсовая, Коммерция
Срок сдачи к 8 янв.
Сделать 6 несложных лабораторных в sql
Лабораторная, Информационные системы в экономике
Срок сдачи к 27 дек.
Решить задачу неканонического вида симплекс методом
Решение задач, Высшая математика
Срок сдачи к 26 дек.
доклад + презентация
Доклад, система государственного и муниципального управления
Срок сдачи к 26 дек.
Написать полные конспекты на темы: нервная система, эндокринная система, сердечно-сосудистая система, органы кроветворения и иммунной защиты
Реферат, Гистология Животных
Срок сдачи к 26 дек.
Написать текст для рекламной компании фотографа , подробнее ниже
Отчет по практике, Реклама и PR
Срок сдачи к 26 дек.
Расчет тягово-экономических свойств автомобиля.
Курсовая, Автомобильная промышленность
Срок сдачи к 29 дек.
сделать презентацию по заданию, уровнь 2...
Презентация, информационные технологии
Срок сдачи к 26 дек.
«Всё сдал!» — безопасный онлайн-сервис с проверенными экспертами
Используя «Свежую базу РГСР», вы принимаете пользовательское соглашение
и политику обработки персональных данных
Сайт работает по московскому времени:
Принимаем к оплате
© 2011—2025 Всё сдал!
Заполните форму и узнайте цену на индивидуальную работу!
Мы ВКонтакте 
Трейлер о сайте