24.06.2017, 16:52 [+3 UTC]
в нашей команде: 2 039 чел. | участники онлайн: 5 (рекорд: 21)

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

:: консультации

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

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

:: правила

:: новости

:: участники

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

:: форум

:: блоги

:: поиск

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

:: наш журнал

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

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

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

:: поддержка

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

Версия системы:
7.41 (25.02.2017)

Общие новости:
23.02.2017, 09:51

Форум:
24.06.2017, 09:45

Последний вопрос:
23.06.2017, 20:49

Последний ответ:
24.06.2017, 12:45

Последняя рассылка:
24.06.2017, 09:45

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

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

Наша кнопка:

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

Отзывы о нас:
16.08.2009, 17:58 »
scoop
Выражаю огромную благодарность эксперту Web-Extrime за подробнейший, с примерами и толкованием символов ответ на мой вопрос №124855. Просто МОЛОДЦОМ! Быстро! Исчерпывающе! Вразумительно! Одним словом Профессионал! Спасибо!
17.05.2012, 19:08 »
vetebe
Спасибо ВАМ за то что ВЫ есть

РАЗДЕЛ • Basic

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

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

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

Megaloman
Статус: Академик
Рейтинг: 262
mklokov
Статус: 6-й класс
Рейтинг: 168
Sergey V. Gornostaev
Статус: Специалист
Рейтинг: 0

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

Консультация онлайн # 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.13798 сек.

© 2001-2017, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.41 от 25.02.2017
Бесплатные консультации онлайн