Угадывание числа не больше чем за три попытки - Visual Basic .NET
Формулировка задачи:
Вроде простая задача по теме if.than, но никак не получается
Разработать программу, которая отгадывает задуманное пользователем число от 0 до 7, задавая ему вопросы вида "Задуманое число больше N?" и получая ответы "Да", или "Нет". Прогопмма должна задать не больше трёх вопросов, после чего вывести ответ
Решение задачи: «Угадывание числа не больше чем за три попытки»
textual
Листинг программы
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Dim N As Integer = NumericUpDown1.Value
- MsgBox("Загадано число " & Quesser(N).ToString)
- End Sub
- Private Function Quesser(ByVal N As Integer) As Integer
- Dim R As Integer
- If N > 3 Then
- If N > 5 Then
- If N = 6 Then
- R = 6
- Else
- R = 7
- End If
- Else
- If N = 5 Then
- R = 5
- Else
- R = 4
- End If
- End If
- Else
- If N > 1 Then
- If N = 2 Then
- R = 2
- Else
- R = 3
- End If
- Else
- If N = 0 Then
- R = 0
- Else
- R = 1
- End If
- End If
- End If
- Return R
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д