Question

Программирование разветвляющихся алгоритмов VBA в Excel

Определить, является ли шестизначное число "счастливым"(сумма первых трех цифр равна сумме последних трех цифр)
Тест дл проверки
1) 325631 счастливое
2) 425631 несчастливое

Answer 1

Function Счастливое_Число(число As Long) As String

   Dim первая_тройка As Integer

   Dim вторая_тройка As Integer

   Dim сумма_первой_тройки As Integer

   Dim сумма_второй_тройки As Integer

   

   первая_тройка = число \ 1000 ' Определяем первые три цифры

   вторая_тройка = число Mod 1000 ' Определяем последние три цифры

   

   ' Вычисление суммы цифр

   сумма_первой_тройки = первая_тройка Mod 10 + (первая_тройка \ 10) Mod 10 + первая_тройка \ 100

   сумма_второй_тройки = вторая_тройка Mod 10 + (вторая_тройка \ 10) Mod 10 + вторая_тройка \ 100

   

   ' Проверка на совпадение сумм

   If сумма_первой_тройки = сумма_второй_тройки Then

       Счастливое_Число = "Счастливое"

   Else

       Счастливое_Число = "Несчастливое"

   End If

End Function

Проверяйте.