程序博客网 > 淘宝lg旗舰店是真是假

用计时器计算1到100的和

来源：互联网发布：淘宝lg旗舰店是真是假编辑：程序博客网时间：2024/06/05 11:58

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

0 0

淘宝lg旗舰店是真是假

淘宝lg旗舰店是真是假

原创粉丝点击

热门问题 老师的惩罚人脸识别我在镇武司摸鱼那些年重生之率土为王我在大康的咸鱼生活盘龙之生命进化天生仙种凡人之先天五行春回大明朝姑娘不必设防，我是瞎子工作名言警句励志心灵鸡汤经典语录励志名人名言大全经典励志名言名句优美句子励志励步英语怎么样励步英语学费励步儿童英语怎么样励步英语如何励步英语好么励步学科英语怎么样励步瑞思励步国际儿童教育电话好未来励步励步儿童英语教育励步国际英语怎么样励步儿童英语培训学校励步幼儿英语怎么样励步英语北苑沈阳励步英语燕郊励步英语电话励步英语北苑励步儿童英语价格励步英语一期学费多少励步英语收费励步和英孚哪个好励步国际儿童教育怎么样励步英语收费励步英语教育励步国际儿童英语学校北京励步儿童英语励步少儿英语收费励步国际儿童学校励步英语望京励步英语收费好贵励步英语价格励步培训励步和瑞思哪个好励步儿童英语地址英语励步励步英语怎么收费励步儿童绘本馆