VB 编写函数fun,其功能是：能计算从1开始到n的自然数中偶数的平方和!急用!

Function sum(n) As Double
sum = 0
For i = 1 To n
If i Mod 2 = 0 Then sum = sum + i * i
Next
End Function