Question

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

Answer 1

Public Sub mod()
Dim i As Integer
Dim count As Integer
For i = 1 To 500
If (i Mod 9 = 0) Then
count = count + 1
End If
Next i
MsgBox (count)
End Sub