永发信息网

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

答案:2  悬赏:70  手机版
解决时间 2021-02-12 06:25
vb程序设计 题目:编写函数fun,其功能是:能计算从1开始到n的自然数的平
最佳答案
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就会溢出了。
全部回答
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
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
什么标准上面有DN550-PN1.6的带颈平焊法兰
ab胶能不能粘沙灰墙
考研小学教育专业浙江师范大学怎样
【法航失事】2009年6月初载有200多人的法航44
中杰信公司这个地址在什么地方,我要处理点事
1英镑等于多少便士 一便士等于多少英镑
瓮安房价会不会下滑
巴山蜀水商务宾馆怎么去啊,有知道地址的么
打篮球如何做好一个控球后卫
卡口摄像机是什么
阅读下面的文字.完成小题水·凤凰·沈从文沈
博士生什么时候找工作比较好
墙上的插座进水后会着火吗?
易怒易生气是怎么回事
中国信合(红花岗区南关信用社)这个地址在什么
推荐资讯
笔记本右下角通知区域一个汽车一样的图标不见
这几天总是有075869打头的号码骚扰我,把他拉
永一画廊地址在哪,我要去那里办事
野外工作津贴标准是多少?
80%(1+40%)x-x=25结果是多少
目前有很多家光伏企业退市,我想知道中利集团
君君发室地址在什么地方,我要处理点事
有一个互相喜欢的人好久不见变生疏了
通山县人大阮班武、阮班进、阮班雨是不是兄弟
中国农业银行24小时自助银行(葛沽镇津沽公路)
wow人类猎人初级骑术在哪学
今天店里收到一封喜洋洋侵权书是怎么回事?
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?