Найти сумму цифр рандомных чисел в массиве - VBA
Формулировка задачи:
"В заданном одномерном массиве целого типа найти и напечатать сумму цифр всех элементов массива. Использовать процедуру нахождения суммы цифр числа."
Программа выдает ошибку, если в массиве попадается однозначное число, что нужно добавить, чтобы однозначные числа добавлялись в summ без всяких подсчетов?
Решение задачи: «Найти сумму цифр рандомных чисел в массиве»
textual
Листинг программы
Function Summ(arr) Dim v For Each v In arr Summ = Summ + v Next End Function