n7822123

¦^´_ 1# ­ã´£³¡ªL

¤£ª¾¹D²{¦b¦^·|¤£·|¤Ó±ß~
§Ú¥Î«Üª½Ä±ªº¼gªk¡A¨«¨ì©³´NÂàÅs~

1. Sub ¤è°}1()
   
2. Dim ̊ƒ As Byte
   
3. Dim Ãä As Byte
   
4. Dim X0 As Byte
   
5. Dim Y0 As Byte
   
6. Dim n As Integer
   
7. Cells(5, 5).CurrentRegion = ""
   
8. ̊ƒ = (Cells(1, 2) - 1) / 2
   
9. X0 = ̊ƒ + 5: Y0 = ̊ƒ + 5
   
10. n = 1: X = X0: Y = Y0: Ãä = 1
    
11. Cells(Y, X) = n: n = n + 1
    
12. ¦V¥k:
    
13. If n = (̊ * 2 + 1) ^ 2 And ̊ < ̊ƒ Then ̊ = ̊ + 1
    
14. If n = (Ãä * 2 + 1) ^ 2 And Ãä = Ãä¬É Then GoTo µ²§À
    
15. If X + 1 - X0 > Ãä Then GoTo ¦V¤U
    
16. X = X + 1: Cells(Y, X) = n: n = n + 1: GoTo ¦V¥k
    
17. ¦V¤U:
    
18. If Y + 1 - Y0 > Ãä Then GoTo ¦V¥ª
    
19. Y = Y + 1: Cells(Y, X) = n: n = n + 1: GoTo ¦V¤U
    
20. ¦V¥ª:
    
21. If X - 1 - X0 < -Ãä Then GoTo ¦V¤W
    
22. X = X - 1: Cells(Y, X) = n: n = n + 1: GoTo ¦V¥ª
    
23. ¦V¤W:
    
24. If Y - 1 - Y0 < -Ãä Then GoTo ¦V¥k
    
25. Y = Y - 1: Cells(Y, X) = n: n = n + 1: GoTo ¦V¤W
    
26. µ²§À:
    
27. X = X + 1: Cells(Y, X) = n
    
28. End Sub
    
29. 
    
30. Sub ¤è°}2()
    
31. Dim ̊ƒ As Byte
    
32. Dim Ãä As Byte
    
33. Dim X0 As Byte
    
34. Dim Y0 As Byte
    
35. Dim n As Integer
    
36. Cells(5, 5).CurrentRegion = ""
    
37. ̊ƒ = (Cells(1, 2) - 1) / 2
    
38. X0 = ̊ƒ + 5: Y0 = ̊ƒ + 5
    
39. n = 1: X = X0: Y = Y0: Ãä = 1
    
40. Cells(Y, X) = "¡·": n = n + 1
    
41. ¦V¥k:
    
42. If n = (̊ * 2 + 1) ^ 2 And ̊ < ̊ƒ Then ̊ = ̊ + 1
    
43. If n = (Ãä * 2 + 1) ^ 2 And Ãä = Ãä¬É Then GoTo µ²§À
    
44. If X + 1 - X0 > Ãä Then GoTo ¦V¤U
    
45. X = X + 1
    
46. If X - X0 = Ãä Then Cells(Y, X) = "¢{" Else Cells(Y, X) = "¡÷"
    
47. n = n + 1: GoTo ¦V¥k
    
48. ¦V¤U:
    
49. If Y + 1 - Y0 > Ãä Then GoTo ¦V¥ª
    
50. Y = Y + 1
    
51. If Y - Y0 = Ãä Then Cells(Y, X) = "¢}" Else Cells(Y, X) = "¡õ"
    
52. n = n + 1: GoTo ¦V¤U
    
53. ¦V¥ª:
    
54. If X - 1 - X0 < -Ãä Then GoTo ¦V¤W
    
55. X = X - 1
    
56. If X - X0 = -Ãä Then Cells(Y, X) = "¢|" Else Cells(Y, X) = "¡ö"
    
57. n = n + 1: GoTo ¦V¥ª
    
58. ¦V¤W:
    
59. If Y - 1 - Y0 < -Ãä Then GoTo ¦V¥k
    
60. Y = Y - 1
    
61. If Y - Y0 = -Ãä Then Cells(Y, X) = "¢z" Else Cells(Y, X) = "¡ô"
    
62. n = n + 1: GoTo ¦V¤W
    
63. µ²§À:
    
64. X = X + 1: Cells(Y, X) = "¡´"
    
65. End Sub

½Æ»s¥N½X