2.3 Демонстрационные примеры Пример 1

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

'программа, которая при x>0 вычисляет значение натурального логарифма 'Log(x), а в противном случае ничего не делает

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

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

If x>0 Then

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

End If

Пример 2

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

'программа, которая при x>0 вычисляет значение натурального логарифма 'Log(x), а в противном случае выдаёт сообщение об ошибке, в которой 'говорится, что вычислить логарифм невозможно, так как введённое 'значение x не входит в область определения данного логарифма.

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

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

If x>0 Then

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

Else

Msgbox "x не входит в область определения данного логарифма",_

vbSystemModal+vbCritical,"ошибка ввода"

End If

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

Пример 4

'Имя файла 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

Пример 5

'Имя файла: 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

Пример 6

'Имя файла: 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