Visual basic составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: cумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр

'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)