22.06.2018, 06:51 [+3 UTC]
в нашей команде: 2 853 чел. | участники онлайн: 2 (рекорд: 21)

:: РЕГИСТРАЦИЯ

:: задать вопрос

:: все разделы

:: правила

:: новости

:: участники

:: доска почёта

:: форум

:: блоги

:: поиск

:: статистика

:: наш журнал

:: наши встречи

:: наша галерея

:: отзывы о нас

:: поддержка

:: руководство

Версия системы:
7.47 (16.04.2018)

Общие новости:
13.04.2018, 10:33

Форум:
18.06.2018, 08:55

Последний вопрос:
21.06.2018, 15:40

Последний ответ:
21.06.2018, 06:26

Последняя рассылка:
22.06.2018, 00:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
26.01.2010, 23:16 »
Dimon4ik
Только что попробовал Ваш код и решил свою проблему! =) Спасибо, за быструю помощь и очень полезную информацию, которой теперь буду пользоваться всегда! [вопрос № 176324, ответ № 258978]
22.01.2012, 20:04 »
Даровко Антон Владимирович
Я посмотрел Ваше решение задачи и оценил его на отлично. [вопрос № 185237, ответ № 269660]
25.01.2013, 02:19 »
Anamul
Stay inforatmive, San Diego, yeah boy!

РАЗДЕЛ • Basic

Создание программ на языке Basic.

[администратор рассылки: Андреенков Владимир (Академик)]

Лучшие эксперты в этом разделе

solowey
Статус: Студент
Рейтинг: 89
Sergey V. Gornostaev
Статус: Специалист
Рейтинг: 52
Megaloman
Статус: Академик
Рейтинг: 41

Перейти к консультации №:
 

Консультация онлайн # 190846
Раздел: • Basic
Автор вопроса: lexabossa (Посетитель)
Отправлена: 07.04.2017, 19:52
Поступило ответов: 1

Здравствуйте! У меня возникли сложности с таким вопросом:

Компьютер загадывает число от 0 до 100
Пользователь начинает отгадывать число. Если разница между загаданным числом и предложенным пользователем больше 30 выводится сообщение – Холодно
Если разница от 20 до 30 – Выводится «тепло»
От 10 до 20 – «Горячо»
От 5 до 10 – «Почти угадал»
От 1 до 5 – «Еще чуть-чуть!!!»

Сделайте подсчет количества попыток за которые отгадано число

Приложение:

Состояние: Консультация закрыта

Ответ # 274902 от Megaloman (Академик)

Здравствуйте, lexabossa! Похоже, ответов нет, по видимому Microsoft Visual Basic не очень сейчас популярен. Вот код, который я тестировал в VBA, думаю, что он достаточно близок к тому, что Вам нужно.

Dim Quest As Integer
Dim Diff As Integer
Dim sAnsw As String, iAnsw As Integer
Dim iTry As Integer, sTry As String

Randomize
Do
    Quest = Int((100 * Rnd) + 1)    ' Generate random value between 1 and 100.
    sAnsw = ""
    iTry = 0
    Do
        sAnsw = InputBox("Введите число от 1 до 100", "Компьютер задумал число. Угадываем!")
        If sAnsw = "" Then Exit Do
        
        iAnsw = CInt(sAnsw)
        Diff = Abs(iAnsw - Quest)
        iTry = iTry + 1
        sTry = vbCrLf + vbCrLf + "Попытка номер " + CStr(iTry)

'        MsgBox "Задумано " + CStr(Quest)
        
        Select Case Diff
        Case 0
            MsgBox CStr(iAnsw) + "   Угадали !" + sTry
            Exit Do
        Case 20 To 30
            MsgBox CStr(iAnsw) + "   Тепло !" + sTry
        Case 10 To 20
            MsgBox CStr(iAnsw) + "   Горячо!" + sTry
        Case 5 To 10
            MsgBox CStr(iAnsw) + "   Почти угадали!" + sTry
        Case 1 To 5
            MsgBox CStr(iAnsw) + "   Еще чуть-чуть !!!" + sTry
        Case Else
            MsgBox CStr(iAnsw) + "   Хооолодно!!" + sTry
        End Select
    Loop
Loop While sAnsw <> ""


Консультировал: Megaloman (Академик)
Дата отправки: 12.04.2017, 20:54

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 190846

Megaloman
Академик

ID: 137394

# 1

= общий = | 07.04.2017, 22:31 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

VBA

Set WshS = CreateObject("WScript.Shell")

Randomize
Answ = ""
Do While 2 <> WshS.Popup("Угадайте сгенерированное число от 1 до 100", 0, "Будем играться?", 33)
    Quest = Int((100 * Rnd) + 1)    ' Generate random value between 1 and 100.
    Do
        Answ = InputBox("Введите число от 1 до 100", "Угадываем задуманное число")
        If Answ = "" Then Exit Do
        Answ = CInt(Answ)
        
        Diff = Abs(Answ - Quest)
        
        Select Case Diff
        Case 0
            MsgBox CStr(Answ) + "   Угадали !"
            Exit Do
        Case 20 To 30
            MsgBox CStr(Answ) + "   Тепло !"
        Case 10 To 20
            MsgBox CStr(Answ) + "   Горячо!"
        Case 5 To 10
            MsgBox CStr(Answ) + "   Почти угадали!"
        Case 1 To 5
            MsgBox CStr(Answ) + "   Еще чуть-чуть !!!"
        Case Else
            MsgBox CStr(Answ) + "   Хооолодно!!"
        End Select
    Loop
    If Answ = "" Then Exit Do
Loop
VBS
Set WshS = CreateObject("WScript.Shell")

Randomize
Answ = ""
Do While 2 <> WshS.Popup("Угадайте сгенерированное число от 1 до 100", 0, "Будем играться?", 33)
    Quest = Int((100 * Rnd) + 1)    ' Generate random value between 1 and 100.
    Do
        Answ = InputBox("Введите число от 1 до 100", "Угадываем задуманное число")
        If Answ = "" Then Exit Do
        Answ = CInt(Answ)
        
        Diff = Abs(Answ - Quest)
        
        If Diff = 0 Then
            MsgBox CStr(Answ) + "   Угадали !"
            Exit Do
        End If
        If Diff > 30 Then MsgBox CStr(Answ) + "   Хооолодно!!"
        If 20 < Diff And Diff <= 30 Then MsgBox CStr(Answ) + "   Тепло !"
        If 10 < Diff And Diff <= 20 Then MsgBox CStr(Answ) + "   Горячо!"
        If 5 < Diff And Diff <= 10 Then MsgBox CStr(Answ) + "   Почти угадали!"
        If 1 <= Diff And Diff <= 5 Then MsgBox CStr(Answ) + "   Еще чуть-чуть !!!"
    Loop
    If Answ = "" Then Exit Do
Loop

=====
Нет времени на медленные танцы

• Отредактировал: Megaloman (Академик)
• Дата редактирования: 08.04.2017, 12:47

 

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.14021 сек.

© 2001-2018, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.47 от 16.04.2018