Угадать числа - VB
Формулировка задачи:
Задание
: Разработать проект, который генерирует случайное число от1 до 10, не вы- водя его на экран. Игрок пытается угадать его за три попытки. В каждой попытке программа должна выводить сообщение о том, больше загаданное число, или меньше. В случае отгадывание выводится поздравление, в про- тивном случае после третьей попытки программа показывает загаданное число. Помогите пожалуйста. Очень надо!
сделал макет, что-то типо такого
[img]http://s54.***********/i145/1104/9c/6e9f338bd72b.jpg[/img]
Решение задачи: «Угадать числа»
textual
Листинг программы
Public numb As Byte Private Sub Form_Load() Randomize numb = Int(8 * Rnd + 1) MsgBox "Число сгенерировано! Жми на кнопку и угадывай!", vbInformation End Sub Private Sub Command1_Click() Dim inp As Integer repeat: inp = Int(Val(InputBox("Попытка " & c + 1))) Select Case inp Case Is < numb MsgBox "Попробуй больше!": c = c + 1 Case Is > numb MsgBox "Попробуй меньше!": c = c + 1 Case Else MsgBox "Угадал!": Exit Sub End Select If c = 3 Then MsgBox "Не угадал! :( Компьютер загадал " & numb Else GoTo repeat End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д