vb5
2016-04-07 16:18
204 查看
这是九个中的第一个
这个不太不难
但是后边的就不太明白了
Private Sub Command1_Click()
Cls
Print f(10)
End Sub
Private Function f(x As Integer) As Long
If x = 1 Then
f = x
Else
f = x + f(x - 1)
End If
End Function
这个不太不难
但是后边的就不太明白了
Private Sub Command1_Click()
Cls
Print f(10)
End Sub
Private Function f(x As Integer) As Long
If x = 1 Then
f = x
Else
f = x + f(x - 1)
End If
End Function
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 3.8.1 VBUF, VSTRING和VSTREAM结构体
- VB洗牌算法产生随机数组
- 吾将上下而求索 VB 小小小
- 路漫漫其修远兮···VB 来15个数尝尝咸淡
- VB 控件随窗体缩放
- vbs 脚本2
- vbs脚本
- VB 动态数组,文件读写
- 2014 .04 .06 navbar
- VBOX中的Ubuntu的安装和配置
- AB是一家?VAO与VBO
- VBA 复制工作簿内容
- 安装Orcale VBox虚拟机必须注意的问题
- VBS脚本常用经典代码收集
- VB中的排序问题 15个
- VB病毒
- Excel vba使用正则表达式处理联通官网导出的通话详单
- 关于vb 多任意数字大小排列问题
- VB.OCR.汉明距离
- How to play .rmvb files in Ubuntu