Написать операторы, которые посчитают и перемножат числа, кратные 5, на интервале от 73 до 299

Dim p As Double, i As Integer p = 1 For i = 75 To 299 Step 5     p = p * i Next i Print "Произведение равно "; p End А это дурацкий вариант на случай, если преподаватель пожелает увидеть условный оператор. Он делает ту же работу, но примерно раз в десять медленнее. Dim p As Double, i As Integer p = 1 For i = 73 To 299     If i Mod 5 = 0 Then p = p * i Next i Print "Произведение равно "; p End