#683 Dim s As String Private Sub Form1_Load(sender As - TopicsExpress



          

#683 Dim s As String Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Timer1.Interval = 100 Timer1.Enabled = False s = 幹 End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick For i = 1 To 9 Debug.Print(StrDup(i, s)) Next For i = 8 To 1 Step -1 Debug.Print(StrDup(i, s)) Next End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click If Timer1.Enabled = False Then Timer1.Enabled = True Else Timer1.Enabled = False End If End Sub 我真的不知道該怎麼表達這種憤怒,只好這樣了 抱歉這麼亂 Time Submitted: Sunday, 12/28/2014, 09:29 AM
Posted on: Sun, 28 Dec 2014 16:23:52 +0000

Trending Topics



Recently Viewed Topics




© 2015