Категория
Информатика
Тип
доклад
Страницы
2 стр.
Дата
18.06.2013
Формат файла
.doc — Microsoft Word
Архив
679532.zip — 7.82 kb
  • dlja-chego-nuzhna-procedura-sub_679532_1.doc — 31 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

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



Ваше мнение



CAPTCHA