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

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