Посчитать сумму цифр в произвольно заданном тексте - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
