Найти сумму всех четных цифр, входящих в строку - VB
Формулировка задачи:
дан текст содержащий буквы и цифры. Найти сумму всех четных цифр входящих в этот массив!
Решение задачи: «Найти сумму всех четных цифр, входящих в строку»
textual
Листинг программы
Dim stroka As String ' строчка для подсчета
Dim dig As String
Dim summa As Integer
Private Sub Form_Load()
'stroka = "Введите 56432 строку QWERTV $%^&#@ 62119784 ABCD"
stroka = InputBox("Введите строку")
For i = 1 To Len(stroka)
dig = Mid(stroka, i, 1)
If Val(dig) Mod 2 = 0 Then summa = summa + Val(dig)
Next
MsgBox "Сумма чётных цифр = " & summa
End
End Sub