vb作业
2016-04-19 11:43
281 查看
觉得挺简单的
Private Sub Command1_Click()
Cls
Font.Size = 50
Print 阶乘(10)
End Sub
Private Function 阶乘(n As Integer) As Long
If n = 1 Then
阶乘 = 1
Else
阶乘 = n * 阶乘(n - 1)
End If
End Function
Private Sub Command1_Click()
Cls
Font.Size = 50
Print 阶乘(10)
End Sub
Private Function 阶乘(n As Integer) As Long
If n = 1 Then
阶乘 = 1
Else
阶乘 = n * 阶乘(n - 1)
End If
End Function
相关文章推荐
- VB 监听U盘插入并拷贝U盘内容
- 迟到的vb作业
- 去掉navbar或者tabbar的预留间距
- vboxmanage查询正在运行的vbox虚拟机
- VB 定时终止进程
- VB6 Access 事务(Transaction)
- VBA删除表格最后一行
- VBA表格单元格替换文字
- VBA添加表格
- vb6中word编程总结
- 详解AOPR中的VBA后门功能
- 15 电气 齐振昊 VB中三位数乘一位数
- 15 电气 齐振昊 VB中两位数乘一位数
- VB中几种循环结构
- echo写vbs下载者木马
- VBA批量调整图片宽度
- vb6.0陈伟教学视频总结
- VB.NET章鱼哥出品—怎样解决MDI子窗口被父窗口中的控件覆盖的问题
- VB延时模块,6种做法汇总
- What are CBR, VBV and CPB?