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

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: бесплатные шпаргалки, реферат личность
| Добавил(а) на сайт: Фавста.

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

и из любого места!