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