Угадать числа - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.455 из 5
Похожие ответы