Пример 7

Пример 6

Пример 5

Пример 4

Пример 3

'Имя файла: If_Then_ElseIf.vbs

'программа, иллюстрирующая конструкцию If...Then...ElseIf.

x=CInt(inputbox("Введите параметр",_

"вычисление натурального логарифма","1"))

If x=0 Then

Msgbox "Вы ввели 0",vbSystemmodal+vbcritical,"ошибка ввода"

ElseIf x<0 Then

Msgbox "Значение меньше нуля",vbSystemmodal+vbcritical,_

"ошибка ввода"

Else Msgbox "Ответ: "&(log(k)),vbSystemModal,"Результат"

End If

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

'Программа вычисляет большее из двух чисел

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

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

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

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

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

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

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

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

x=CInt(x)

y=CInt(y)

If x>y Then z=x Else z=y

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

"Большее из двух чисел: "&z

'Имя файла: Select_Case.vbs

'программа, в которой по введённому номеру дня недели выводиться его 'название.

x=CByte(inputbox("Введите номер дня недели от 1 до 7: ","Окно ввода","1"))

Select Case x

Case 1

MsgBox "Понедельник"

Case 2

MsgBox "Вторник"

Case 3

MsgBox "Среда"

Case 4

MsgBox "Четверг"

Case 5

MsgBox "Пятница"

Case 6

MsgBox "Суббота"

Case 7

MsgBox "Воскресенье"

Case Else

MsgBox "Введенному числу не соответствует ни один из дней недели"

End Select

'Имя файла: Examen.vbs

'в зависимости от оценки, полученной на экзамене, программа выводит тот 'или иной комментарий

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

dim ball 'три рабочая переменная

' вводим переменную

ball=Inputbox("Введите свою оценку за экзамен:",_

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

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

ball=CInt(ball)

Select Case ball

Case 1

Msgbox "Очень плохо!!!",,"реакция:"

Case 2

Msgbox "Плохо!!!",,"реакция:"

Case 3

Msgbox "Удовлетворительно!!!",,"реакция:"

Case 4

Msgbox "Хорошо!!!",,"реакция:"

Case 5

Msgbox "Отлично!!!",,"реакция:"

End Select

'Имя файла: Game.vbs

'программа, которая предлагает угадать число от 0 до 10 за 3 попытки.

Randomize

a= Rnd(1) 'переменной a присваивается случайное число от 0 до 1

a=Fix(a*10) 'переменной присваивается случайное число от 0 до 10

x=CInt(inputbox("Введите параметр",_

"Угадайте число от 0 до 10 за 3 попытки!!!","5"))

If x>a Then

Msgbox "Загаданное число меньше! ",vbSystemModal,"результат: "

x=CInt(inputbox("Попытайтесь угадать ещё раз: ",_

"Осталось всего 2 попытки!!!","5"))

ElseIf x<a Then

Msgbox "Загаданное число больше! ",vbSystemModal,"результат: "

x=CInt(inputbox("Попытайтесь угадать ещё раз: ","Осталось всего 2 попытки!!!","5"))

End If

If x<a Then

Msgbox "Загаданное число больше!",vbSystemModal,"результат: "

x=CInt(inputbox("Попытайтесь угадать ещё раз: ",_

"Осталась всего 1 попытка!!!","5"))

ElseIf x>a Then

Msgbox "Загаданное число меньше! ",vbSystemModal,"результат: "

x=CInt(inputbox("Попытайтесь угадать ещё раз: ",_

"Осталась всего 1 попытка!!!","5"))

End If

If x=a Then

Msgbox "Вы угадали загаданное число!!! ",_

vbSystemModal,"результат: "

Else

Msgbox "Вам не удалось угадать загаданное число за 3 попытки!!! ", _ vbSystemModal,"результат: "

End If

Дата добавления: 2014-12-29