Private Function fun(n As Integer) As Integer
Dim i As Integer
For i = 1 To n
fun = fun + i ^ 2
Next i
End Function
或
Private Function fun(n As Integer) As Integer
If n > 0 Then fun = n ^ 2 + fun(n - 1)
End Function
第二种方法使用了递归调用，如果你不能理解或题目不允许这样，请用第一种。
另外，由于函数的返回值类型为整型（最大值32767），所以n不能太大，大于45就会溢出了。
