Найти сумму всех четных цифр, входящих в строку - 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

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


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

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

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