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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы