 |
1. 3 демонстрационные Примеры. 1. 3 демонстрационные Примеры. 1. 3 демонстрационные Примеры. 'вывод окна, содержащего сообщение об ошибке
|
|
|
|
1. 3 ДЕМОНСТРАЦИОННЫЕ ПРИМЕРЫ
Пример 1
'Имя файла MsgBox. vbs
'Вывод строчки в окне вывода
k= " 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
|
|
|
