Нужно проверить утверждение, что разность любого натурального числа и суммы его цифр кратна 9, для всех чисел, лежащих между заданными m и n.

Как ето делатса? :huh:

 

Dim ch as long
Dim ch2 as string
Dim ch3 as long
dim is2 as string

For i=m to n
is2=i
1
ch2=mid(is2,ii,1)
ch3=ch2
ch=ch+ch3
if ch2<>"" then goto 1
msgbox "число"+is2
msgbox "сумма цифр"+ch
ii=ii+1
next

Вот считается то и то. Писал не проверая. Прога выдает сумму цифр. Дальше сам разберешься?