КАТЕГОРИИ:
Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)
Пример 8
|
|
|
|
Пример 7
Пример 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
'Имя файла 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
'Имя файла 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
|
|
|
|
|
Дата добавления: 2014-12-29; Просмотров: 336; Нарушение авторских прав?; Мы поможем в написании вашей работы!