Если Вы уже читали моё объяснения процедуры 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
и из любого места!
Другие работы по теме:
О последствиях трансурбанизма и парадигмах геоэтологии
На протяжении 200 лет народонаселение земного шара испытывает вызовы прессинга трансурбанизма. Последствия, свойственные трансурбанизму, обнаруживаются в экономико-географическом пространстве регионов, уровень урбанизации в которых превышает 10 процентов
Выпуск акций
Процедура выпуска акций содержит нижеследующие этапы: утверждение размещения ценных бумаг; принятие решения о выпуске ценных бумаг; регистрация первичного выпуска акций или дополнительного;
Исследование оперативной памяти
Методика применяется для изучения оперативной памяти в тех случаях, когда она несет основную функциональную нагрузку. Порядок проведения Испытуемому вручается бланк, после чего экспериментатор дает следующую инструкцию.
Для чего нужна психология общения
Для чего нужна психология общения? Чтобы начать любой анализ по заданной теме, для начала, надо расставить все точки над «i». В моём понимании, это - раскрыть все понятия, постепенно анализируя каждое из них.
Вычисление корней нелинейного уравнения
Нахождение нулей функции графическим методом. Вычисление корней уравнения при помощи вычислительных блоков Givel и Root. Поиск экстремумов функции. Разложение функции в степенной ряд.
Часть С ЕГЭ
Автор: ЕГЭ Какова роль книг, литературы в жизни человека? Зачем нужны хорошие книги – задается в статье Ю. Олеша. Писатель вспоминает свою мечту завести отдельную полку для любимых книг. Он задумывался, какой должна быть эта полка. Такая полка должна быть особенной. Для неё нужна золотая лента – но где её раздобыть?! И он подумал, что золотую ленту можно купить.
Печорин - герой своего времени.
Автор: Лермонтов М.Ю. Печорин – человек уникальной натуры, я таких не встречал… Кто он такой, чего хочет он от жизни, живет он или существует? Это вопросы, на которые мог бы ответить только М. Ю. Лермонтов, он же автор романа «Герой нашего времени».
Беда
Автор: Зощенко М.М. Егор Иваныч, по фамилии Глотов, мужик из деревни Гнилые Прудки, два года копил деньги на лошадь. Питался худо, бросил махорку, а что до самогона, т" забыл, какой и вкус в нем. То есть как ножом отрезало -- не помнит Егор Иваныч, какой вкус, хоть убей.
Зачем нужна пунктуация
Автор: ЕГЭ Родной язык для личности человека – примерно то же, что воздух для его тела. Если несвободное дыхание – угроза жизни, то несвободное владение языком – угроза личности. Главное – открыть для себя мир языка, полный тайн и загадок.
Десятичные коды APCO
Десятичными кодами называют специальные сокращения, которые используют операторы личных радиостанций в западных странах для ускорения передачи информации. Коды были разработаны в 1937 и усовершенствованы в 1974 ассоциацией средств связи и общественной безопасности (Association of Public Safety Communications Officials International, APCO).
Трибутные комиции
Введение 1 Виды трибутных комиций 2 Процедура голосования Список литературы Введение Трибутные комиции (лат. comitia tributa) — один из видов народного собрания в Древнем Риме. В раннюю эпоху проводились как плебейские собрания по трибам (территориальным округам), которые созывались на Капитолии, Форуме или Марсовом поле.
Посредничество
О посредничестве в Википедии смотрите страницу Википедия:К посредничеству. Посре́дничество [1] — в международном праве одно из средств мирного разрешения споров между государствами путём переговоров с участием третьего государства (посредника) и на основе выдвинутых им условий.
Аппалачская тропа
Аппалачская тропа — размеченный маршрут для пешеходного туризма в североамериканской горной системе Аппалачи. Аппалачская тропа имеет протяжённость около 3,5 тыс. км от горы Катадин (Мэн) на севере до горы Спрингер (Джорджия) на юге. Точную длину определить практически невозможно, так как существует несколько альтернативных путей.
Для чего нужна процедура Function?
Функция выполняет служебное действие, например вычисление, и возвращает значение. Вызвать функцию можно, написав её имя и передав ей аргументы, в нужном месте вашей программы.
Консольное приложение на Дельфи
Хоть и консольные приложения уже давно вышли из моды, с помощью них можно легко делать рутинные операции. Они занимают не так много места, не требовательны к ресурсам и быстро выполняются.
Лабораторная работа №12
Цель работы: Изучение правил описания и вызова подпрограмм: процедур и функций. Получение навыков и овладение приемами работы над подпрограммами. Задание№ 17
Basic
МИНИСТЕРСТВО ОБЩЕГО И ПРОФЕССИОНАЛЬНОГО ЮБРАЗОВАНИЯ РФ ТАМБОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ КАФЕДРА ГАПС Курсовая работа по информатике
Сложение и вычитание целых неотрицательных чисел в двоичном коде
Числа с фиксированной точкой характеризуются длиной слова в битах, положением двоичной точки, бывают беззнаковыми или знаковыми. Позиция двоичной точки определяет число разрядов в целой и дробной частях машинного слова. Представление отрицательного числа.
Учет и анализ банкротства 2
Контрольная работа по дисциплине «Учет и анализ банкротств» Вариант 1 Понятие, основные этапы проведения процедуры наблюдение Задача Определить вероятность банкротства по методике Бивера СК-3500 ОА-3780 Амортизация-976 ДО-1600 ВА-2620 КО-1300 ЧП-765 Литература
Как вести себя при извержении вулканов
Как вести себя при извержении вулкана Как вести себя при извержении вулкана Вулкан выбрасывает газы, жидкие и твердые вещества с высокой температурой. Это часто становится причиной разрушения строений и гибели людей.
Создание инфраструктуры применения МСФО
Необходимым условием широкого применения МСФО в экономике Российской Федерации является создание инфраструктуры, обеспечивающей использование этих стандартов в регулировании бухгалтерского учета и отчетности и непосредственно хозяйствующими субъектами. Основные элементы: законодательное признание МСФО в Российской Федерации; процедура одобрения МСФО; механизм обобщения и распространения опыта применения МСФО; порядок официального перевода МСФО на русский язык; контроль качества бухгалтерской отчетности, подготовленной по МСФО, в том числе аудит; обучение МСФО.