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

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