Вывести число, состоящее из сумм каждых рядом стоящих цифр - VB
Формулировка задачи:
Задача : написать программу в Visual Baisic. Пользователь вводит число. нужно сделать так что бы программа выводила число состоящее из сумм каждых рядом стоящих цифр (цифра справа+цифра слева)и ещё mod 10 к этой сумме
(например 4795 --->7329)
Решение задачи: «Вывести число, состоящее из сумм каждых рядом стоящих цифр»
textual
Листинг программы
Sub Agito()
Dim S$, I%, Sout$
S = 0 & InputBox("Введите число:", , "4795") & 0
For I = 2 To Len(S) - 1
Sout = Sout & (Val(Mid$(S, I - 1, 1)) + Val(Mid$(S, I + 1, 1))) Mod 10
Next I
MsgBox Sout
End Sub