Найти сумму цифр в тексте - VB
Формулировка задачи:
Дан текст. Найти сумму имеющихся в нем цифр.
Решение задачи: «Найти сумму цифр в тексте»
textual
Листинг программы
Private Sub Command1_Click() Dim S As String Dim Summ As Integer Dim i As Integer S = "0a++b4-c-60++d80+e0" For i = 1 To Len(S) Summ = Summ + Val(Mid(S, i, 1)) Next Print "Сумма = " & Summ End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д