用闹钟运算

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