求助、输入任意一个整数N，输出N以内的所有5的倍数的积

我的代码是这样的：
Private Sub Command1_Click()
Dim n As Double
Dim s As Double
n = Val(Text1.Text)
s = 1
For i = 5 To n Step 5
s = s * i
Next
Label2.Caption = "N以内的所有5的倍数的积为：" & s
End Sub
当n小于5的时候s应该等于0吧 但我输出的结果是1 怎么回事