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
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
扫一扫
2253
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
