27.06.2017, 01:29 [+3 UTC]
в нашей команде: 2 046 чел. | участники онлайн: 2 (рекорд: 21)

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

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

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

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

:: правила

:: новости

:: участники

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

:: форум

:: блоги

:: поиск

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

:: наш журнал

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

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

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

:: поддержка

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

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

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

Форум:
26.06.2017, 21:10

Последний вопрос:
26.06.2017, 20:18

Последний ответ:
26.06.2017, 14:37

Последняя рассылка:
26.06.2017, 02:15

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

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

Наша кнопка:

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

Отзывы о нас:
06.04.2010, 17:32 »
Anjali
Всё именно так и получилось! [вопрос № 177703, ответ № 260639]
13.10.2009, 21:28 »
Konstantin Shvetski
Спасибо, Вы мне очень помогли smile [вопрос № 173242, ответ № 255382]
14.11.2010, 11:48 »
Мироненко Николай Николаевич
Аа, факториал берём, понял! Спасибо Вам большое smile [вопрос № 180732, ответ № 264025]

РАЗДЕЛ • Basic

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

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

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

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

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

Консультация онлайн # 190703
Раздел: • Basic
Автор вопроса: lexabossa (Посетитель)
Отправлена: 14.03.2017, 21:22
Поступило ответов: 2

Здравствуйте! Прошу помощи в следующем вопросе:

Написать программу на Visual Basic которая преобразует введенное пользователем количество дней в количество полных недель и оставшихся дней. Например, пользователь ввел 17 дней, программа должна вывести на экран 2 недели и 3 дня.

Приложение:

Вопрос перенесен из раздела • Информатика
--------

• Отредактировал: Зенченко Константин Николаевич (Модератор)
• Дата редактирования: 15.03.2017, 09:40

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

Ответ # 274766 от PsySex (Профессионал)

Здравствуйте, lexabossa!

Dim vsego As Long
Dim nedeli As Long
Dim s As String
s = InputBox("Введите количество дней: ")
vsego = CLng(s)
nedeli = Fix(vsego / 7)
MsgBox CStr(nedeli) + " недели и " + CStr(vsego - nedeli * 7) + " дня"


Консультировал: PsySex (Профессионал)
Дата отправки: 15.03.2017, 13:37

5
нет комментария
-----
Дата оценки: 17.03.2017, 19:24

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

+2

[подробно]

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

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

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

Здравствуйте, lexabossa! То же самое в VBS

Days = InputBox("Введите количество дней")
If Days <> "" Then
    nDays = CLng(Days)

    Answer = "          Недель:     " + CStr(Int(nDays / 7))
    Answer = Answer + vbCrLf + "          Дней:         " + CStr(nDays - Int(nDays / 7) * 7)

    MsgBox Answer, vbOKOnly, "Всего дней: " + Days
End If


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

5
нет комментария
-----
Дата оценки: 17.03.2017, 19:24

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

+2

[подробно]

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

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

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

Зенченко Константин Николаевич
Модератор

ID: 31795

# 1

= общий = | 15.03.2017, 10:47 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Экспертам раздела:

Обратите внимание на этот вопрос!
Спасибо!

 

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

Яндекс Rambler's Top100

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

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

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