Найти количество четных чисел от 1 до 500, кратных 9. В VPA Microsoft Excel.

Спасибо, а можно с переносами, а не в строку? Не понимаю где разделять.

Public Sub mod()Dim i As IntegerDim count As IntegerFor i = 1 To 500If (i Mod 9 = 0) Thencount = count + 1End IfNext iMsgBox (count)End Sub