Для чого потрібна процедура Sub?
Теперь скажімо, що Вам потрібно, щоб ваша програма вирізала з переданих рядків все задані символи (візьмемо мій приклад зі «Практики «): Не було б написати підпрограму, яка це чинить і потім просто викликати її? Так, пишемо (поза модуля): Вот так, тепер можна просто викликати цю підпрограму і просить передати значення рядки і символу: А тепер представте, що це рядки Вам потрібно понад один раз в… Читати ще >
Для чого потрібна процедура Sub? (реферат, курсова, диплом, контрольна)
Для чого потрібна процедура 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! »).
получаем символ, за умовчанням стоїть символ «і «.
Symbol = InputBox («Запровадьте символ », , «і «).
запускаем цикл.
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.
и із будь-якої місця!
Список литературы
Для підготовки даної праці були використані матеріали із сайту internet.