Для чого потрібна процедура Sub?

Якщо Ви вже читали моє пояснення процедури 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

і з будь-якого місця!

Список літератури

Для підготовки даної роботи були використані матеріали з сайту http://visualprogs.narod.ru/