静态变量static
2016-04-14 16:28
267 查看
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
相关文章推荐
- 如何在spring中获取request对象
- 关于怎么打开/data目录查看SharedPreferences数据文件
- 11的阶乘
- json样式转化
- android 数据库 sqlite数据类型(时间 日期 double等)
- strstr()函数自实现
- HM编码器代码阅读(12)——CU编码
- 统计信息自动更新导致查询超时
- 阿里云服务器centos7 下安装配置svn服务器
- 在jsp中指定容器为combogrid onselect事件不执行
- 10个随机数相加
- 【转】android ListView详解
- 浮点数转byte数组
- function in Postgres
- FA全加器
- #pragma 预处理指令详解
- SVN上传代码时代码失败
- Python3并发检验代理池地址
- vb
- 计算机图形学(二)输出图元