利用小闹钟1-100求和

来源:互联网 发布:java中方法的定义包括 编辑:程序博客网 时间:2024/05/21 08:49
Private Sub Command1_Click()
Option Explicit
Dim i As Integer
Dim sum As Integer
Private Sub Command1_Click()
 Cls
 Font.Size = 50
 
End Sub

Private Sub Timer1_Timer()
sum = sum + 1
i = i + 1
If i > 100 Then
    Me.Timer1.Enabled = False
    Print sum
End If

End Sub
0 0
原创粉丝点击