Написать операторы, которые посчитают и перемножат числа, кратные 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