vb程序设计 题目:编写函数fun,其功能是:能计算从1开始到n的自然数的平
答案:2 悬赏:70 手机版
解决时间 2021-02-12 06:25
- 提问者网友:末路
- 2021-02-11 20:14
vb程序设计 题目:编写函数fun,其功能是:能计算从1开始到n的自然数的平
最佳答案
- 五星知识达人网友:狂恋
- 2021-02-11 20:23
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就会溢出了。
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就会溢出了。
全部回答
- 1楼网友:轻雾山林
- 2021-02-11 21:33
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
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
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯