vb程序设计 题目:编写函数fun，其功能是:能计算从1开始到n的自然数的平

Private Sub Command1_Click()
  Dim n As Integer
  n = InputBox("请输入一个正整数", "计算从1到n的平方和", 10)
  Print "fun(" & n & ")=" + CStr(fun(n))
End Sub

Private Function fun(n As Integer) As Double
  For i = 1 To n
    s = s + i ^ 2
  Next i
  fun = s
End Function

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就会溢出了。