2015-07-14
412
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 — «Что-то день сегодня не очень!», а меньше «Ну ты и везунчик!». |
