Visual BasicСоставить программу, печатающую значение TRUE, если указанное высказывание...

Question

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

Answer 1

'VBScript

Function FirstEqLast(number)
    last = number mod 10 + (number \ 10) mod 10

    f1 = 0
    f2 = 0
    do while number > 0
        f2 = f1
        f1 = number mod 10
        number = number \ 10
    loop

    first = f1 + f2
    FirstEqLast = (first = last)
End Function

msgbox FirstEqLast(32532)