100个数的和

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