ДЕМОНСТРАЦИОННЫЕ ПРИМЕРЫ. ‘Вывод строчки в окне вывода

Пример 1

‘Имя файла MsgBox.vbs

‘Вывод строчки в окне вывода

k=msgbox "Hello, World!"

msgbox k

Пример 2

‘Имя файла Error.vbs

‘Вывод окна, содержащего сообщение об ошибке

MsgBox "Произошла ошибка выполнения программы! "&VbCrLf&_

"Код ошибки 434335001 "&VbCrLf&_

"Запустить отладку?",VbYesNoCancel+VbCritical+VbDefaultButton2+_

VbSystemModal,"Окно сообщения об ошибке"

Пример 3

‘Имя файла Byte.vbs

‘Программа вычисляет сумму, разность, произведение, частное и остаток от деления двух ‘введённых чисел типа Byte

option explicit 'запрет на использование необъявленных переменных

dim n,m 'две рабочие переменные

' вводим переменные

n=Inputbox("Введите целочисленное значение переменной n:",_

"Окно ввода значения переменной типа Byte")

m=Inputbox("Введите целочисленное значение переменной m:",_

"Окно ввода значения переменной типа Byte")

'преводим n и m к типу byte

n=CByte(n)

m=CByte(m)

msgbox "Сумма "&n&" и "&m&" = "&(n+m)&vbcrlf&_

"Разность "&n&" и "&m&" = "&(n-m)&vbcrlf&_

"Произведение "&n&" и "&m&" = "&(n*m)&vbcrlf&_

"Частное "&n&" и "&m&" = "&(n \ m)&vbcrlf&_

"Остаток от деления "&n&" на "&m&" = "&(n mod m)

Пример 4

‘Имя файла Integer.vbs

‘Программа вычисляет сумму, разность, произведение, частное и остаток от деления двух ‘введённых чисел типа Integer.

option explicit 'запрет на использование необъявленных переменных

dim n,m 'две рабочие переменные

' вводим переменные

n=Inputbox("Введите целочисленное значение переменной n:",_

"Окно ввода значения переменной типа Integer")

m=Inputbox("Введите целочисленное значение переменной m:",_

"Окно ввода значения переменной типа Integer")

'преводим n и m к типу Integer

n=CInt(n)

m=CInt(m)

msgbox "Сумма "&n&" и "&m&" = "&(n+m)&vbcrlf&_

"Разность "&n&" и "&m&" = "&(n-m)&vbcrlf&_

"Произведение "&n&" и "&m&" = "&(n*m)&vbcrlf&_

"Частное "&n&" и "&m&" = "&(n \ m)&vbcrlf&_

"Остаток от деления "&n&" на "&m&" = "&(n mod m)

Пример 5

‘Имя файла Long.vbs

‘Программа вычисляет сумму, разность, произведение, частное и остаток от деления двух ‘введённых чисел типа Long.

option explicit 'запрет на использование необъявленных переменных

dim n,m 'две рабочие переменные

' вводим переменные

n=Inputbox("Введите целочисленное значение переменной n:",_

"Окно ввода значения переменной типа Long")

m=Inputbox("Введите целочисленное значение переменной m:",_

"Окно ввода значения переменной типа Long")

'преводим n и m к типу Long

n=CLng(n)

m=CLng(m)

msgbox "Сумма "&n&" и "&m&" = "&(n+m)&vbcrlf&_

"Разность "&n&" и "&m&" = "&(n-m)&vbcrlf&_

"Произведение "&n&" и "&m&" = "&(n*m)&vbcrlf&_

"Частное "&n&" и "&m&" = "&(n \ m)&vbcrlf&_

"Остаток от деления "&n&" на "&m&" = "&(n mod m)

Пример 6

‘Имя файла Double_1.vbs

‘Программа вычисляет сумму, разность, произведение, частное и остаток от деления двух ‘введённых чисел типа Double.

option explicit 'запрет на использование необъявленных переменных

dim n,m 'две рабочие переменные

' вводим переменные

n=Inputbox("Введите значение переменной n:",_

"Окно ввода значения переменной типа Double")

m=Inputbox("Введите значение переменной m:",_

"Окно ввода значения переменной типа Double")

'преводим n и m к типу Double

n=CDbl(n)

m=CDbl(m)

msgbox "Сумма "&n&" и "&m&" = "&(n+m)&vbcrlf&_

"Разность "&n&" и "&m&" = "&(n-m)&vbcrlf&_

"Произведение "&n&" и "&m&" = "&(n*m)&vbcrlf&_

"Частное "&n&" и "&m&" = "&(n \ m)&vbcrlf

Пример 7

‘Имя файла Single.vbs.

‘Программа вычисляет сумму, разность, произведение, частное и остаток от деления двух ‘введённых чисел типа Single.

option explicit 'запрет на использование необъявленных переменных

dim n,m 'две рабочие переменные

' вводим переменные

n=Inputbox("Введите значение переменной n:",_

"Окно ввода значения переменной типа Single")

m=Inputbox("Введите значение переменной m:",_

"Окно ввода значения переменной типа Single")

'преводим n и m к типу Single

n=CSng(n)

m=CSng(m)

msgbox "Сумма "&n&" и "&m&" = "&(n+m)&vbcrlf&_

"Разность "&n&" и "&m&" = "&(n-m)&vbcrlf&_

"Произведение "&n&" и "&m&" = "&(n*m)&vbcrlf&_

"Частное "&n&" и "&m&" = "&(n \ m)&vbcrlf

Пример 8

‘Имя файла Boll.vbs

‘Над двумя введёнными переменными типа Bool программа возвращает результат логических операций Not, And, Or, Xor и операций сравнения.

option explicit 'запрет на использование необъявленных переменных

dim x,y 'две рабочие переменные

' вводим переменные

x=Inputbox("Введите значение переменной x:",_

"Окно ввода значения переменной типа Bool")

y=Inputbox("Введите значение переменной y:",_

"Окно ввода значения переменной типа Bool")

'преводим x и y к типу Bool

x=CBool(x)

y=CBool(y)

msgbox "x = "&x&"; "&"y = "&y&vbcrlf&_

"Not x --> "&(Not x)&vbcrlf&_

"x And y --> "&(x And y)&vbcrlf&_

"x Or y --> "&(x Or y)&vbcrlf&_

"x Xor y --> "&(x xor y)

msgbox "x = "&x&"; "&"y = "&y&vbcrlf&_

"x = y --> "&(x=y)&vbcrlf&_

"x <> y --> "&(x<>y)&vbcrlf&_

"x > y --> "&(x>y)&vbcrlf

Пример 9

‘Имя файла Double_2.vbs

‘Программа возвращает значение некоторых функций.

option explicit 'запрет на использование необъявленных переменных

dim x,y ' рабочие переменные

' вводим переменные

x=Inputbox("Введите значение переменной x:",_

"Окно ввода значения переменной типа Double")

y=Inputbox("Введите положительное значение переменной y:",_

"Окно ввода значения переменной типа Double")

'преводим x и y к типу Double

x=CDbl(x)

y=CDbl(y)

msgbox "x="&x&"; "&"y="&y&vbcrlf&_

"Абсолютное значение числа x: "&Abs(x)&vbcrlf&_

"Число E в степени x: "&Exp(x)&vbcrlf&_

"Целая часть числа x: "&Int(x)&vbcrlf&_

"Натуральный логарифм числа y "&Log(y)&vbcrlf&_

"Квадратный корень числа y: "&Sqr(y)&vbcrlf&_

"Синус числа x: "&Sin(x)&vbcrlf&_

"Косинус числа x: "&Cos(x)&vbcrlf&_

"Тангенс числа x: "&Tan(x)&vbcrlf&_

"Арктангенс числа x: "&Atn(x)&vbcrlf

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