一加一加到无穷
2016-04-14 16:26
218 查看
Option Explicit
Dim i As Integer
Dim sum As Integer
Private Sub Command1_Click()
Cls
Font.Size = 70
Static i As Integer
i = i + 1
Print i
End Sub
Function f(x As Integer) As Long
Dim i As Integer
End Function
Dim i As Integer
Dim sum As Integer
Private Sub Command1_Click()
Cls
Font.Size = 70
Static i As Integer
i = i + 1
Print i
End Sub
Function f(x As Integer) As Long
Dim i As Integer
End Function
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- ionic2学习文档
- Java接口
- Android项目使用Dagger2进行依赖注入
- 解决 SOAP-ERROR: Parsing WSDL: Couldn't load from 问题
- 【Java】Socket入门 [一]
- CQOI2016 day2 模拟赛总结
- html5摇一摇功能的实现
- 【转】Android listview与adapter用法
- 第四章 Linux环境
- HDU 1114 动态规划
- C# DataTable添加行和列
- 自定义gradle的property
- Python优秀函数库集锦（二）
- 循环
- 剪裁图片大小的代码
- ssh框架中调用mysql存储过程的方式
- json截取的字符串在highchart中不能用的问题解决
- 简单分页插件，kkpager
- 自定义gradle的property
- ReentrantLock的方法