ДЕМОНСТРАЦИОННЫЕ ПРИМЕРЫ. 'Демонстрация использования процедуры без параметров

Пример 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

Пример 4

' Имя файла rasstoyanie.vbs

'Совместное использование функции и процедуры

'Определение расстояния, пройденного физическим телом

option explicit

dim v,t,a

'--------------

Function Rasst(x,y,z)

rasst=x*y+z*y*y/2

end function

'--------------

Sub Input(param,x)

x=inputbox("Введите значение параметра "&param, "Окно ввода "&param,"0")

end sub

'--------------

msgbox "Задача:"&vbcrlf&_

"Определить расстояние пройденное физическим телом"&VbCrLf&_

"за время t, со скоростью v, с ускорением a", vbInformation

input "скорости",v

input "времени",t

input "ускорениия",a

Msgbox "Тело прошло расстояние "&rasst(v,t,a), vbExclamation

Пример 5

' Имя файла style.vbs

'Демонстрация стиля программирования, который называется

'процедурным программированием

option explicit

dim a, b

Sub input(x)

'ввод значения переменной

x=InputBox ("Введите переменную: ","Окно ввода переменной: ")

End Sub

Sub change(x, y)

Dim z

'обмен значениями двух переменных a и b

z=x

x=y

y=z

End Sub

Sub output (x, y)

'вывод значений переменных

MsgBox "Переменные после обмена значениями: a = "&x&", b = "&_

y,vbInformation,"Результат:"

End Sub

'Процедурный стиль программирования состоит

'просто в последовательном вызове процедур

input a

input b

change a, b

output a, b

см. также примеры в каталоге лаб.раб 4

Не нашли, что искали? Воспользуйтесь поиском: