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

Question

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

Answer 1

  Dim i As Integer
        i = CInt(InputBox("Введите 4-х значное число"))
If (CInt(Mid(CStr(i), 1, 1)) + CInt(Mid(CStr(i), 2, 1)) = CInt(Mid(CStr(i), 3, 1)) + CInt(Mid(CStr(i), 4, 1))) Then     
      MsgBox("сумма  РАВНА ")     
Else       
    MsgBox("сумма НЕ РАВНА ")     
End If