新手请教：这段程序中x怎么会等于10，是从s=s(n-1)+n这公式计算出的？怎么算出的没搞懂？ - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 新手请教：这段程序中x怎么会等于10，是从s=s(n-1)+n这公式计算出的？怎么算出的没搞懂？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2710 人关注过本帖

标题：新手请教：这段程序中x怎么会等于10，是从s=s(n-1)+n这公式计算出的？怎么算 ...

只看楼主加入收藏

HVB6

等　级：贵宾
威　望：15
帖　子：331
专家分：561
注　册：2013-10-30

第 11 楼

得分:0

回复 9楼 zh99ja

程序改为以下，就不会“溢出”：
Function s(n As Integer) ' As Integer不要
If n = 1 Then
s = 1
Else
s = s(n - 1) * n
End If
End Function

Private Sub form_click()
'Dim x As Integer不要
x = s(10)
Print x
End Sub

2020-05-12 13:10

快速回复：新手请教：这段程序中x怎么会等于10，是从s=s(n-1)+n这公式计算出的？ ...