Вычислить значение выражения - VB (63234)

Узнай цену своей работы

Формулировка задачи:

Помогите решить задачи.... Я в этом совсем 0.0....

Решение задачи: «Вычислить значение выражения»

textual
Листинг программы
D=98765
summ=0
For i=1 to len(D)
  summ= summ + mid(D,i,1)
Next i
msgbox summ

Оцени полезность:

8   голосов , оценка 4.25 из 5