10的阶乘
2016-04-14 16:35
344 查看
Private Sub Command1_Click()
Print 阶乘(10)
End Sub
Private Function 阶乘(n As Integer) As Long
If n = 1 Then
阶乘 = 1
Else
阶乘 = n * 阶乘(n - 1)
End If
End Function
结果是:3628800
Print 阶乘(10)
End Sub
Private Function 阶乘(n As Integer) As Long
If n = 1 Then
阶乘 = 1
Else
阶乘 = n * 阶乘(n - 1)
End If
End Function
结果是:3628800
相关文章推荐
- 淘宝封装的一款ui 非常不错
- 关于委托,事件和类的设计准则
- 一个flag
- 10个随机数的和
- 【JS】:JS实现页面的刷新,后退和前进
- ASP.NET自定义控件开发示例(一)
- 【LeetCode】96. Unique Binary Search Trees 解法及注释
- <css 十五>尺寸设置
- 九种求和方法
- C#开发微信门户及应用(32)--微信支付接入和API封装使用
- js最新手机号码、电话号码正则表达式
- MySQL入门很简单: 4 创建 修改删除表
- 转]解析C语言中的sizeof
- ftp服务器简单配置
- ANT 、Junit、JunitReport、Spring、MyBatis
- ECSHOP手机访问和电脑访问效果一样
- CloudFoundry in 1 Box简介:Bosh-lite
- SQL 学习笔记
- 一个通用的Makefile
- 我的JUnit小试