用闹钟运算
2016-04-14 16:53
190 查看
Option Explicit
Dim I As Integer
Dim sum As Integer
Private Sub Command1_Click()
Cls
Font.Size = 70
End Sub
Private Sub Timer1_Timer()
sum = sum + I
I = I + 1
If I > 100 Then
Me.Timer1.Enabled = False
Print sum
Print "timer’s i=" & I
End If
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
End Sub
Private Sub Timer1_Timer()
sum = sum + I
I = I + 1
If I > 100 Then
Me.Timer1.Enabled = False
Print sum
Print "timer’s i=" & I
End If
End Sub
Function f(X As Integer) As Long
Dim I As Integer
End Function
相关文章推荐
- 项目感想
- 一位数 * 一位数
- android开发中的九宫格布局的实现
- gulp自动刷新浏览器
- 十的阶乘
- Maven version management with Nexus
- 计算机相关专业同学如何做好职业规划,选择什么样的方向来发展?
- Volley的网络请求实例
- CAlayer层的属性
- 《MFC 笔记》 Part3 c++的格式.hpp
- 一个c++封装的zookeeper库
- 十个随机数求和 1044 郑明雨
- html css 伪样式
- GDI & GDI+
- R绘图字体解决方案(转)
- 对象的克隆
- JAVA多线程学习笔记
- logstash2.2.0过滤tomcat日志
- 初入程序员的某一天
- Android活动的四种启动方式(standard singleTop singleTask singleInstance)