Игра "Угадай число"

@Эсмиральда · Регистрация: 17.10.2014

Author24 — интернет-сервис помощи студентам

Программа генерирует случайное число от 0 до 100 и предлагает пользователю его угадать. Если пользователь называет число больше загаданного, программа возвращает «Перелет», если пользователь называет число меньше загаданного, программа возвращает «Недолет». Игра продолжается до тех пор, пока пользователь не угадывает число, после чего программа сообщает пользователю кол-во сделанных попыток и поздравляет с результатом.
С синтаксисом плохо у меня. помогите плиз.

Visual Basic

Sub program()
Dim X As Integer
Dim Y As Integer
    X = InputBox("Введите число от 1 до 100")
    k = 0
    Y = 100 * Rnd
Do Until X = Y
    If X > Y Then
    MsgBox ("Перелёт")
End If
Else
    If X < Y Then
    MsgBox ("Перелёт")
End If
    k = k + 1
    X = InputBox("Введите число от 1 до 100")
Loop
    MsgBox ("Поздравляем,вы отгадали! Количество попыток = CStr(k)")
End Sub

@Surrogate · 30.11.2014, 14:14

О Эсмеральда, я снова пал жертвой гуру социнжиниринга 90lvl... но не до конца - присмотритесь к девятой строчке.

Visual Basic

Sub program()
Dim X As Integer
Dim Y As Integer
    k = 0
    Y = 100 * Rnd()
Do Until X = Y
    X = InputBox("Введите число от 1 до 100")
    If X > Y Then MsgBox ("Перелёт")
    If X < Y Then MsgBox ("Перелёт")
    k = k + 1
Loop
    MsgBox ("Поздравляем,вы отгадали! Количество попыток = " & CStr(k) & "")
End Sub

@Эсмиральда · 30.11.2014, 16:48 **[ТС]**

Спасибо!!!

@Эсмиральда 4 / 4 / 0 Регистрация: 17.10.2014 Сообщений: 63
	30.11.2014, 16:48 [ТС]	3
	Спасибо!!! 0