Question

Vba найти сумму квадратов цифр заданного числа n

Answer 1

Dim n As Doublen = InputBox("Введите n")n = (n * n) + (n * n)'или n = (n ^ 2) + (n ^ 2)

Answer 2

Вот пример кода на VBA, который находит сумму квадратов цифр заданного числа n:

vbaCopy code
Function СуммаКвадратовЦифр(ByVal n As Long) As Long
    Dim сумма As Long
    Dim цифра As Integer
    
    сумма = 0
    
    ' Проверяем каждую цифру числа n
    Do While n > 0
        цифра = n Mod 10 ' Получаем последнюю цифру числа
        сумма = сумма + цифра ^ 2 ' Добавляем квадрат цифры к сумме
        n = n \ 10 ' Удаляем последнюю цифру из числа
    Loop
    
    СуммаКвадратовЦифр = сумма
End Function

Sub ПримерИспользования()
    Dim число As Long
    Dim сумма As Long
    
    число = 12345
    сумма = СуммаКвадратовЦифр(число)
    
    MsgBox "Сумма квадратов цифр числа " & число & " равна " & сумма
End Sub

Вы можете изменить значение переменной число в процедуре ПримерИспользования для проверки разных чисел. Код будет находить сумму квадратов цифр числа и выводить результат с помощью сообщения MsgBox.