найти сумму цифр заданного натурального числа

[dima.m]

помогите составить програму в байсике

[motorway]

Давайте наработки, либо могу сделать за деньги.

[Dophin]

Sub pp()
Dim s As Long
Dim t As Long
Dim l As Long
Dim i As Long
t = InputBox("Введите натуральное число")
l = Len(t)
For i = 1 To l
s = s + Val(Mid(t, i, 1))
Next i
MsgBox "сумма цифр:  " & s
End Sub

[viter.alex]

Вариант без использования строк:

Sub SumOfDigits()
  Dim a As Integer
  Dim b As Long
  Dim sUserInput As String
  sUserInput = InputBox("Введите число, цифры которого нужно сложить")
  If Not IsNumeric(sUserInput) Then Exit Sub
  b = Val(sUserInput)
  Do
    a = a + (b Mod 10)
    b = b \ 10
  Loop While b <> 0
  MsgBox a
End Sub

Единственный недостаток: переполнение при числе больше 2 147 483 647

[Bombastick]

у меня немного другая но похожая задача, щас на словах попробую обьяснить, Для заданного натурального N найти сумму (значит - y=(знак суммы) Сверху над знаком N, снизу i=1, справа i в степени 2. заранее сппсибо

[MCH]

Сообщение от Bombastick

у меня немного другая но похожая задача, щас на словах попробую обьяснить, Для заданного натурального N найти сумму (значит - y=(знак суммы) Сверху над знаком N, снизу i=1, справа i в степени 2. заранее сппсибо

s=0
for i=1 to n
s=s+i^2
next i

или прям в екселе
=СУММПРОИЗВ(СТРОКА(1:100)^2)

[IgorGO]

если N записать в А1, то в любую ячейку =СУММПРОИЗВ(СТРОКА(A1:ИНДЕКС(A:A;A1 ))^2)