Практическое руководство. Создание процедуры (Visual Basic)

  • Статья

Вы заключаете процедуру между инструкцией начального объявления (Subили) и конечной инструкцией объявления (End SubилиFunctionEnd Function). Весь код процедуры лежит между этими операторами.

Процедура не может содержать другую процедуру, поэтому ее начальные и конечные инструкции должны находиться вне любой другой процедуры.

Если у вас есть код, выполняющий одну и ту же задачу в разных местах, можно написать задачу один раз в качестве процедуры, а затем вызвать ее из разных мест в коде.

Создание процедуры, которая не возвращает значение

  1. За пределами любой другой процедуры используйте Sub инструкцию, за которой следует End Sub оператор.

  2. Sub В инструкции следуйте Sub ключевое слово с именем процедуры, а затем список параметров в скобках.

  3. Поместите инструкции кода процедуры между Sub операторами и End Sub операторами.

Создание процедуры, возвращающей значение

  1. За пределами любой другой процедуры используйте Function инструкцию, за которой следует End Function оператор.

  2. Function В инструкции следуйте Function ключевое слово с именем процедуры, а затем список параметров в скобках, а затем As предложение, указывающее тип данных возвращаемого значения.

  3. Поместите инструкции кода процедуры между Function операторами и End Function операторами.

  4. Используйте инструкцию Return , чтобы вернуть значение в вызывающий код.

Чтобы подключить новую процедуру к старым повторяющимся блокам кода

  1. Убедитесь, что вы определите новую процедуру в месте, где старый код имеет к нему доступ.

  2. В старом блоке повторяющегося кода замените инструкции, выполняющие повторяющуюся задачу одним оператором, вызывающим или Function процедуруSub.

  3. Если процедура возвращает Function значение, убедитесь, что вызывающая инструкция выполняет действие с возвращаемым значением, например хранением в переменной или в противном случае значение будет потеряно.

Пример

Function Следующая процедура вычисляет самую длинную сторону или гипотенузу правого треугольника, учитывая значения для других двух сторон:

Function Hypotenuse(side1 As Double, side2 As Double) As Double
    Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function

См. также