Visual BasicСоставить программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае: Cумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр

Предыдущий
вопрос Следующий
вопрос

Option Explicit

Sub CheckSum()

Dim num As Integer
num = InputBox("Введите четырехзначное число:")
Dim firstTwoDigits As Integer
Dim lastTwoDigits As Integer
Dim sumFirstTwoDigits As Integer
Dim sumLastTwoDigits As Integer
firstTwoDigits = num \ 100
lastTwoDigits = num Mod 100
sumFirstTwoDigits = (firstTwoDigits \ 10) + (firstTwoDigits Mod 10)
sumLastTwoDigits = (lastTwoDigits \ 10) + (lastTwoDigits Mod 10)
If sumFirstTwoDigits = sumLastTwoDigits Then
MsgBox "TRUE"
Else
MsgBox "FALSE"
End If

End Sub