74968-1 (751172)

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

Для чего нужна процедура 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/

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов доклада