Question

Написать программу, позволяющую по последней цифре числа определить последнюю цифру его квадрата.
Язык программирования VBA

Answer 1

Sub aaa()
    n = InputBox("Введите число")
    d = (CInt(Right(n, 1))) ^ 2 Mod 10
    MsgBox "Последняя цифра квадрата последней цифры числа " + n + "=" + CStr(d)
End Sub