22.07.2017, 23:43 [+3 UTC]
в нашей команде: 2 066 чел. | участники онлайн: 0 (рекорд: 21)

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

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

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

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

:: правила

:: новости

:: участники

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

:: форум

:: блоги

:: поиск

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

:: наш журнал

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

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

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

:: поддержка

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

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

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

Форум:
21.07.2017, 11:30

Последний вопрос:
20.07.2017, 15:47

Последний ответ:
21.07.2017, 15:17

Последняя рассылка:
22.07.2017, 21:45

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

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

Наша кнопка:

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

Отзывы о нас:
24.03.2011, 06:19 »
Волков Марк Игоревич
Большое спасибо) вроде бы всё верно) [вопрос № 182600, ответ № 266371]
15.01.2011, 15:49 »
Глух
спасибо, получилось [вопрос № 181886, ответ № 265430]
08.02.2012, 16:34 »
Соколова Светлана
Спасибо большое! [вопрос № 185391, ответ № 269877]

РАЗДЕЛ • Basic

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

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

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

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

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

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

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