| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 323 人关注过本帖
标题:大家来帮帮忙,告诉我答案是什么\1
只看楼主 加入收藏
zhouxi030
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2014-8-9
结帖率:0
收藏
已结贴  问题点数:5 回复次数:2 
大家来帮帮忙,告诉我答案是什么\1
Private sub Commnnd1_CLick()
   Dim i As Integer
   Dim s As Long
   For i = 1 to 5
     s = s + t(i)
   Next i
   print "s";s
End sub
Function t(i As Inteher) AS Long
   If i = 0 Then
      t = 1
   else
      t = 1 * t(i-1)
   End if
2014-08-09 10:25
xzlxzlxzl
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:湖北
等 级:贵宾
威 望:125
帖 子:1091
专家分:5825
注 册:2014-5-3
收藏
得分:3 
s 5
2014-08-09 12:12
learnvb
Rank: 1
等 级:新手上路
帖 子:1
专家分:3
注 册:2014-8-10
收藏
得分:3 
这个是不是递归调用,每次都调用t(i),直到i=0 ,即t =1 。跳出调用,进行求和计算
2014-08-10 16:32
快速回复:大家来帮帮忙,告诉我答案是什么\1
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019679 second(s), 9 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved