求救請知道的大大幫幫小弟

yyyyman

我也是初學,一起交流吧

1. Option Explicit
   
2. 
   
3. Dim a, i As Integer
   
4. Dim cnt As Integer
   
5. Dim flag As Integer
   
6. 
   
7. 
   
8. Private Sub Form_Load()
   
9. Timer1.Interval = 500
   
10. Timer1.Enabled = True
    
11. a = 9
    
12. cnt = 0
    
13. flag = 1
    
14. 
    
15. End Sub
    
16. Private Sub Timer1_Timer()
    
17.    
    
18.     If cnt <> 0 And cnt Mod 3 = 0 Then
    
19.         cnt = 0
    
20.         flag = -flag
    
21.         If flag = 1 Then
    
22.             a = 9
    
23.         Else
    
24.             a = 1
    
25.         End If
    
26.     End If
    
27.    
    
28.     For i = 1 To 9
    
29.          Label1(i).BackColor = &H808080
    
30.     Next i
    
31.    
    
32.     If flag = 1 Then
    
33.         Label1(a).BackColor = &H80C0FF
    
34.         a = a - 1
    
35.         If a = 0 Then
    
36.             a = 9
    
37.             cnt = cnt + 1
    
38.         End If
    
39.         Label1(a).BackColor = &H808080
    
40.     End If
    
41.    
    
42.     If flag = -1 Then
    
43.         Label1(a).BackColor = &H80C0FF
    
44.         a = a + 1
    
45.         If a = 10 Then
    
46.             a = 1
    
47.             cnt = cnt + 1
    
48.         End If
    
49.         Label1(a).BackColor = &H808080
    
50.     End If
    
51. 
    
52. 
    
53. End Sub

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員