Посчитать сумму цифр в произвольно заданном тексте - VB

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

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

Помогите пожалуйста, нужно посчитать сумму цифр в произвольно заданном тексте. Пример нужно набрать в окне: У Леши было 2 яблока, а у Сани 3 яблока вместе у них было 5 яблок... И нужно что бы суммировало все цифры.

Решение задачи: «Посчитать сумму цифр в произвольно заданном тексте»

textual
Листинг программы 
Sub qwe()
st = "У Леши было 22 яблока, а у Сани 33 яблока вместе у них было 55 яблок..."
a = Split(st)
For i = 0 To UBound(a) 'Len(st)
  s = s + Val(a(i))
Next i
MsgBox "Всего было перечислено " & s & " яблок(?ли)", , st
End Sub

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

7   голосов , оценка 4.143 из 5
Похожие ответы