用递归解决问题
2012-05-30 17:01
120 查看
求0-100的和
Private Sub Command1_Click()
Print Str(f(100))
End Sub
Function f(n As Integer) As Integer
If n = 1 Then
f = 1
Else
f = n + f(n - 1)
End If
End Function
Private Sub Command1_Click()
Print Str(f(100))
End Sub
Function f(n As Integer) As Integer
If n = 1 Then
f = 1
Else
f = n + f(n - 1)
End If
End Function
相关文章推荐
- 用深度优先算法递归解决迷宫问题
- Python中解决递归限制的问题
- Java基础知识强化之IO流笔记12:递归之递归解决问题的思想(图解)
- 递归问题解决二叉树问题
- 递归解决最长公共子序列问题(LCS)
- 回朔法和递归解决八皇后和跳马问题
- Js递归方法解决兔子问题
- 递归解决-兔子问题-斐波那契数列
- 迭代、递归解决斐波纳挈数列问题
- Java 递归解决 "仅仅能两数相乘的计算器计算x^y" 问题
- 递归思想在解决问题时的应用
- 递归:解决汉诺塔问题(数据结构3.2 P103)
- 用Python递归解决阿拉伯数字转为中文财务数字格式的问题
- C++递归解决斐波那契数列问题
- 递归思路解决的四则运算问题,C语言
- 用递归解决蛇形填数的问题
- 递归方法解决问题简单例子。
- 游标递归解决树形节点删除问题
- Js递归方法解决猴子吃桃问题