Игра «Отгадай число»

Разработки уроков
doc
10.03.2017

Публикация педагогических разработок

Бесплатное участие. Свидетельство автора сразу.
Мгновенные 10 документов в портфолио.

Игра «Отгадай число» Dim a As Integer, k As Integer, b As Integer Private Sub Form_Load() Show Randomize A=Int(Rnd*100+1) b=InputBox(“Введите число в диапазоне от 1 до 100”,,,3000,4000) Do While b<>a If b>a Then Print “Введено число”;b; “Оно больше загаданного компьютером.” End If If b<a Then Print “Введено число”;b; “Оно меньше загаданного компьютером.” End If K=k+1 B=InputBox(“Введите число”,,,3000,4000) Loop

Игра.doc

Игра «Отгадай число» Dim a As Integer, k As Integer, b As Integer Private Sub Form_Load() Show Randomize A=Int(Rnd*100+1) b=InputBox(“Введите число в диапазоне от 1 до 100”,,,3000,4000) Do While b<>a If b>a Then Print “Введено число”;b; “Оно больше загаданного компьютером.” End If If ba If b>a Then Print “Введено число”;b; “Оно больше загаданного компьютером.” End If If b a If b>a Then Print “Введено число”;b; “Оно больше загаданного компьютером.” End If If b a If b>a Then Print “Введено число”;b; “Оно больше загаданного компьютером.” End If If b

Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.