- •Введение
- •Структура программы на vbScript
- •Переменные
- •Подтипы данных и функции преобразования типов
- •Константы
- •Встроенная функция вывода данных MsgBox
- •Встроенная функция ввода данных InputBox
- •Комментарии
- •Непрерывные строки
- •Операторы и операции
- •Пример 4
- •Пример 5
- •Пример 6
- •Пример 7
- •Пример 8
- •Пример 9
- •1.4 Задачи для самостоятельного решения
- •Логические операции
- •Оператор условного перехода: If … Then
- •2.3 Демонстрационные примеры Пример 1
- •Пример 2
- •Пример 3
- •Пример 4
- •Пример 5
- •Пример 6
- •Пример 7
- •2.4 Задачи для самостоятельного решения
- •Лабораторная работа 3. Операторы цикла в программах на vbscript
- •3.1 Цель работы
- •3.2 Теоретические сведения
- •For…Next (цикл со счетчиком)
- •Как выбрать, какой из циклов использовать в программе?
- •Пример 10
- •Пример 11
- •Пример 12
- •Пример 13
- •Пример 14
- •Пример 15
- •Пример 16
- •3.4 Задачи для самостоятельного решения
- •Передача параметров с помощью ключевых слов ByVal и ByRef
- •Функции
- •Пример 4
- •Пример 5
- •4.4 Задачи для самостоятельного решения
- •Лабораторная работа 5. Программирование алгоритмов при помощи рекурсивных процедур и функций
- •5.1 Цель работы
- •5.2 Теоретические сведения
- •5.3 Демонстрационные примеры Пример 1
- •Пример 2
- •Пример 3
- •Пример 4
- •5.4 Задачи для самостоятельного решения
- •Лабораторная работа 6. Массивы
- •6.1 Цель работы
- •6.2 Теоретические сведения
- •Перебор элементов массива
- •6.3 Демонстрационные примеры Пример 1
- •Пример 2
- •Пример 3
- •Пример 4
- •Пример 5
- •Пример 6
- •Пример 7
- •Пример 8
- •6.4 Задачи для самостоятельного решения "Заполнение" массивов
- •Массивы. Исследование и поиск
- •Модификация массивов
- •Лабораторная работа 7. Алгоритмы поиска в регулярном типе данных. Простейшие классические алгоритмы. Сортировка в массиве
- •7.1 Цель работы
- •7.2 Теоретические сведения
- •Сортировка обменом
- •Сортировка выбором
- •Сортировка включениями
- •Сортировка бинарными включениями
- •Шейкер-сортировка
- •7.3 Демонстрационные примеры Пример 1
- •Пример 2
- •Пример 3
- •Пример 4
- •Пример 5
- •Пример 6
- •Пример 7
- •Пример 8
- •Пример 9
- •Пример 10
- •7.4 Задачи для самостоятельного решения
- •Лабораторная работа 8. Строковый тип данных в программах на vbscript
- •8.1 Цель работы
- •8.2 Теоретические сведения
- •Другие функции необходимые для работы со строками
- •Основные функции для работы с датой и временем:
- •8.3 Демонстрационные примеры Пример 1
- •Пример 2
- •Пример 3
- •Пример 4
- •Пример 5
- •Пример 6
- •Пример 7
- •Пример 8
- •Пример 9
- •8.4 Задачи для самостоятельного решения Модификаторы
- •“Вычеркиватели” (частный случай модификаторов)
- •Наблюдатели (предикаты)
- •Подсчет
- •Поиск в словах
- •Литература
- •Данчул а.Н. Информатика: Учебник. – м.: рагс , 2004 г. - 528 с.
- •Содержание
Передача параметров с помощью ключевых слов ByVal и ByRef
Чтобы указать, что параметр передается процедуре по значению (by value) или по ссылке (by reference), в объявлении процедуры или функции перед параметрами можно размещать ключевые слова ByVal или ByRef.
При вызове по значению процедуре передается копия параметра (значение константы или переменной). Процедура может изменять значение переданной копии, но при этом изменения не отражаются на значении оригинальной константы или переменной.
При вызове по ссылке процедуре передается адрес параметра в памяти (адрес константы или переменной). При передаче параметра по ссылке вызванная функция или процедура получает возможность изменить само значение параметра. Если для параметра не указано ни одно из ключевых слов ByVal или ByRef, VBScript по умолчанию использует ByRef.
Иногда бывает необходимо предотвратить изменение фактических параметров при исполнении процедуры или функции. Для этого нужно объявить параметр как подлежащий передаче по значению (ByVal).
Пример: передача параметра по значению и по ссылке
Задача: проанализировать две программы, представленные ниже, и ответить на вопрос, какая из них является правильной.
Текст программы 1: option explicit dim a Sub nalog(ByVal a) a=a-(13*a)/100 MsgBox "Зарплата с вычетом”&_ “налога:"&a End Sub a=InputBox ("Введите вашу зарплату без”&_ “вычета налога: ","Окно ввода: ") nalog a MsgBox "Зарплата без вычета налога: "&a
|
Текст программы 2: option explicit dim a Sub nalog(ByRef a) a=a-(13*a)/100 MsgBox "Зарплата с вычетом”&_ “налога:"&a End Sub a=InputBox ("Введите вашу зарплату без”&_ “вычета налога: ","Окно ввода: ") nalog a MsgBox "Зарплата без вычета налога: "&a |
Функции
Функция - это процедура, возвращающая результат некоторого типа. Поэтому, её надо применять, когда вызывающая программа должна вернуть только один результат. Оформляется аналогично процедуре. Отличительные особенности функции: она имеет только один результат выполнения. Результат обозначается именем функции и возвращается (передается) в основную программу. Функция объявляется следующим образом:
Function MyFunc (Param1, Param2, Param3 … ParamN)
[Operator1: Operator2]
[Operator3]
…
MyFunc =result
[OperatorN]
End Function
Function и End Function - это служебные слова, означающие начало и конец объявления процедуры.
MyFunc - это имя создаваемой функции
Param1, Param2, Param3 … ParamN- формальные параметры
Operator1: Operator2
Operator3 - раздел операторов, используемых в процедуре.
…
OperatorN
MyFunc =result – обязательный оператор (в теле функции её возвращаемое значение обязательно должно быть присвоено переменной с именем функции)
Для вызова функции достаточно указать ее имя (с фактическими параметрами) в любом выражении. Отметим, что имя функции можно использовать в арифметических выражениях и других командах.
Вызов функции производится следующим образом:
-
без присваивания: MyFunc Param1, Param2, Param3 … ParamN
-
с присваиванием: x=MyFunc (Param1, Param2, Param3 … ParamN)
MyFunc - имя функции
Param1, Param2, Param3 … ParamN - фактические параметры.
Замечание: внутри тела процедуры или функции можно объявлять новые переменные при помощи ключевого слова Dim.
Пример использования функции в программе (без параметров):
Задача: вывести на экран значение выражения: (7+8)*100/5, используя функцию summa
Текст программы:
Function summa
MsgBox ((7+8)*100/5)
End Function
summa
Для функций, также как и для процедур, существует передача параметра по ссылке и по значению.
Пример: передача параметра по значению.
Задача: вывести на экран зарплату сотрудника с вычетом налога (13%) и без вычета.
Текст программы:
option explicit
dim a
Function nalog( ByVal a) 'параметр подлежит передаче по значению
a=a-(13*a)/100 'вычисление зарплаты с вычетом налога
MsgBox "Зарплата с вычетом налога:"&a
nalog=a
End Function
a=InputBox ("Введите вашу зарплату без вычета налога: ","Окно ввода: ")
nalog a 'вызов функции nalog
MsgBox "Зарплата без вычета налога: "&a
4.3 ДЕМОНСТРАЦИОННЫЕ ПРИМЕРЫ
Пример 1
' Имя файла No param.vbs
'Демонстрация использования процедуры без параметров
'Вычисление выражения (120*7-(10+557))/12
Sub primer
MsgBox "(120 * 5 - ( 10 + 557 ) ) : 12 = "&((120*5-(10+557))/12),_
,"Вычисленное значение выражения: "
End Sub
primer
Пример 2
' Имя файла Yes param.vbs
'Вывести на экран значение пяти введённых переменных, а также их 'удвоенную величину
option explicit
dim a, i
Sub print(x)
MsgBox i&"-е "&"Введённое число: "&x&", удвоенное число: "&_
(2*x),vbInformation,"Результат:"
End Sub
For i=1 to 5
a=InputBox ("Введите число: ","Окно ввода числа: ")
print a
Next
Пример 3
' Имя файла ByVal_sub.vbs
'Вывести на экран информацию о зарплате сотрудника с вычетом
'налога и без вычета, используя в программе процедуру
option explicit
dim a
Sub nalog(ByVal a)
a=a-(13*a)/100
MsgBox "Зарплата с вычетом налога: "&a
End Sub
a=InputBox ("Введите вашу зарплату без вычета налога: ","Окно ввода: ")
nalog a
MsgBox "Зарплата без вычета налога: "&a