Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.824 RSS
←   Апрель 2017   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.824 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RFPRO.RU

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

Megaloman
Статус: Академик
Рейтинг: 391
∙ повысить рейтинг » 		mklokov
Статус: 4-й класс
Рейтинг: 111
∙ повысить рейтинг » 		PsySex
Статус: Профессионал
Рейтинг: 46
∙ повысить рейтинг »

∙ Basic

Номер выпуска:1118
Дата выхода:17.04.2017, 20:15
Администратор рассылки:Андреенков Владимир (Профессор)
Подписчиков / экспертов:13 / 11
Вопросов / ответов:1 / 1

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

Консультация # 190846:

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

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

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

Дата отправки: 07.04.2017, 19:52
Вопрос задал: lexabossa (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »

Консультирует 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 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!
В избранное