Dim s!, i! Private Sub Form_Activate() For i = 500 To 900 If i Mod 21 = 0 Then s = s + i End If

If i Mod 31 = 0 Then s = s + i End If If i Mod 651 = 0 Then s = s - i End If Next i Print s End Sub