Sub Угадайка()

Dim EventFlag As Boolean

Dim g As Integer

EventFlag = False

Counter = 0 ’ счетчик ваших попыток

Randomize ’ запуск генератора случайных чисел

c = Round(10 * Rnd + 1, 0) ’ генерация случайного числа от 1 до 10

Do

g = InputBox("Угадайте число от 1 до 10")

If g = c Then

EventFlag = True

MsgBox "Ты угадал с " & Counter & " раза"

End If

Counter = Counter + 1

Loop Until EventFlag

End Sub

þ

11. Введите пример. Найдите в справке генератор случайных чисел и законспектируйте описание и примеры. 12. Подумайте, с помощью каких циклических конструкций этот пример записать можно, а с помощью каких нельзя. Ответ напишите в тетради и обоснуйте. 13. Запишите эту программу в тетради с помощью другой циклической конструкции по вашему выбору. Введите и выполните ее. 14. Выводите сообщения об удачливости игрока, в зависимости от числа попыток, например, при попытках больше 5 — «Что-то день сегодня не очень!», а меньше «Ну ты и везунчик!».