30.04.2017, 13:45 [+3 UTC]
в нашей команде: 1 928 чел. | участники онлайн: 5 (рекорд: 21)

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

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

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

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

:: правила

:: новости

:: участники

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

:: форум

:: блоги

:: поиск

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

:: наш журнал

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

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

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

:: поддержка

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

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

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

Форум:
30.04.2017, 10:55

Последний вопрос:
30.04.2017, 12:07

Последний ответ:
30.04.2017, 09:22

Последняя рассылка:
30.04.2017, 12:45

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

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

Наша кнопка:

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

Отзывы о нас:
05.12.2016, 14:14 »
Алексеев Владимир Николаевич
За подборку сайтов огромное Спасибо, Игорь Витальевич! Я счастлив надолго! [вопрос № 190206, ответ № 274386]
06.04.2016, 20:05 »
Xgrows
Огромное спасибо!!! Все понятно и подробно описано! [вопрос № 189103, ответ № 273606]
09.03.2011, 00:41 »
Евгений
Большое спасибо! Блестящий ответ, а оформление так просто впечатляет. Надеюсь в будущем добиться хоть отдаленно подобных результатов =) [вопрос № 182414, ответ № 266137]

РАЗДЕЛ • Basic

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

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

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

Megaloman
Статус: Академик
Рейтинг: 392
mklokov
Статус: 4-й класс
Рейтинг: 87
PsySex
Статус: Профессионал
Рейтинг: 46

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

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

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