18.02.2018, 06:12 [+3 UTC]
в нашей команде: 2 554 чел. | участники онлайн: 3 (рекорд: 21)

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

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

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

:: правила

:: новости

:: участники

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

:: форум

:: блоги

:: поиск

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

:: наш журнал

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

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

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

:: поддержка

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

Версия системы:
7.44 (14.02.2018)

Общие новости:
02.01.2018, 09:46

Форум:
11.02.2018, 23:11

Последний вопрос:
17.02.2018, 19:46

Последний ответ:
17.02.2018, 20:12

Последняя рассылка:
18.02.2018, 05:15

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

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

Наша кнопка:

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

Отзывы о нас:
18.09.2009, 23:41 »
Смирнов Павел Владимирович
Еще не успел попробовать, но, думаю, то, что нужно. Спасибо! [вопрос № 172160, ответ № 254325]
15.11.2009, 14:49 »
Дмитрий Алексеевич
Спасибо. Интересная мысль по поводу доверенности, однако, если дело действительно в налоговом кодексе (как сказал Lion,то боюсь это не поможет. [вопрос № 174215, ответ № 256512]

РАЗДЕЛ • Basic

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

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

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

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

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

Консультация онлайн # 190780
Раздел: • Basic
Автор вопроса: lexabossa (Посетитель)
Отправлена: 24.03.2017, 23:09
Поступило ответов: 1

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

Нужно сделать маленькую программку на Microsoft Visual Basic:

Дано четырехзначное число. Если сумма его цифр является четным значением определить, равна ли сумма первых двух цифр сумме последних двух цифр.

Например число
1441 сумма цифр 10 – четное значение. 1+4 = 4+1. Ответ ДА
1320 сумма цифр 6 – четное значение. 1+3 не равно 2 + 0. Ответ НЕТ

Приложение:

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

Ответ # 274838 от mklokov (6-й класс)

Здравствуйте, lexabossa!
Вариант решения может выглядеть так:

Module Module1

    Function DigSum(ByVal n As Integer) As Integer
        Dim sum As Integer
        sum = 0
        While n <> 0
            sum = sum + n Mod 10
            n = n / 10
        End While
        DigSum = sum
    End Function

    Sub Main()
        Dim n As Integer, s As String
        Do
            s = InputBox("Введите четырёхзначное число")
            n = Val(s)
        Loop Until (n >= 1000) And (n <= 9999)
        If DigSum(n) Mod 2 = 0 Then
            If DigSum(n Mod 100) = DigSum(n / 100) Then
                MsgBox("Да")
            Else
                MsgBox("Нет")
            End If
        Else
            MsgBox("Нет")
        End If
    End Sub

End Module


Консультировал: mklokov (6-й класс)
Дата отправки: 25.03.2017, 11:20

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

0

[подробно]

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

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

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

Megaloman
Академик

ID: 137394

# 1

= общий = | 25.03.2017, 19:34 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

в VBA (в MS Excel -Microsoft Visual Basic у меня нет)

Dim sDano As String, Answer As String, Asign  As String
Dim Num(1 To 4) As Integer, i As Integer, j As Integer

Dim Summa As Integer

sDano = InputBox("Введите четырёхзначное число")
If sDano <> "" Then
  If Len(sDano) = 4 And IsNumeric(sDano) Then
    
    Summa = 0
    For i = 1 To 4
        Num(i) = CInt(Mid(sDano, i, 1))
        Summa = Summa + Num(i)
    Next

    Answer = "В числе " + sDano + vbCrLf + "сумма цифр= " + CStr(Summa)
    If Summa Mod 2 = 0 Then
        Answer = Answer + " (чётная)" + vbCrLf + vbCrLf
        i = Num(1) + Num(2)
        j = Num(3) + Num(4)
        If i = j Then Asign = "равна" Else Asign = "не равна"
        Answer = Answer + "Сумма двух первых цифр= " + CStr(i) + vbCrLf
        Answer = Answer + Asign + vbCrLf
        Answer = Answer + "cумме двух последних цифр= " + CStr(j)
    Else
        Answer = Answer + " (нечётная)"
    End If
  Else
    Answer = "Введены некорректные данные """ + sDano + """"
  End If
  MsgBox Answer
End If

=====
Нет времени на медленные танцы

• Отредактировал: Megaloman (Академик)
• Дата редактирования: 25.03.2017, 20:21

 

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

Яндекс Rambler's Top100

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

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

© 2001-2018, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.44 от 14.02.2018