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

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