Информатика для I курса. Часть I. Никифоров С.Н. - 25 стр.

UptoLike

ВУЗ: 

СПбГАСУ | Санкт-Петербург

Составители: 

Рубрика: 

48 49
8. ИГРА «УГАДАЙ ЧИСЛО»
Целью лабораторной работы является приобретение навыков
практического использования функций RND (Randomize) – для
генерирования случайных чисел в заданном диапазоне; Round –
округление; Cstr для выполнения операции сцепления (конкатена-
ции) символьных данных.
Сценарий, алгоритм игры следующий: программа «загадывает»
целое (для простоты) число в заданном диапазоне и на предлага-
емые играющим варианты ответов
сообщает – больше или мень-
ше «загаданное» ею число, считая при этом количество попыток.
Выводимая информация – диалог программы с игроком – опреде-
ляется программистом (рис. 8.1).
Программа игры в VВА
Private Sub CommandButton1_Click()
Dim L, a, x As Integer
Range(Cells(5, 1), Cells(25, 7)) = Clear
d = InputBox("D =", "Введите диапазон игры")
Cells(5, 2) = "Ну что ж, играем, угадай число X в диапазоне от 0 до " + CStr(d)
Randomize
x = Round(d * Rnd())
L = 0: i = 10: j = 2
10 a = InputBox("x =", "Введите ваш вариант")
L = L + 1: i = i + 1
If x > a Then
Cells(i, j) = "Загаданное число X больше вашего числа " + CStr(a)
GoTo 10
End If
If x < a Then
Cells(i, j) = "Загаданное число X меньше вашего числа " + CStr(a)
GoTo 10
End If
If x = a Then
Cells(i, j) = "Да, это число " + CStr(a) + ", Угадал, за " + CStr(L) + " попыток"
Cells(1, 1).Select
Exit Sub
End If
End Sub
Рис. 8.1
Рис. 8.1
Ну что ж,

Страницы