[µo°Ý] ¦b¤è°}©Î¯x°}¤¤,¥H±ÛÂà¤è¦¡¶ñ¤J­È

­ã´£³¡ªL

¦b¤è°}©Î¯x°}¤¤,¥H±ÛÂà¤è¦¡¶ñ¤J­È

¢°¡D³]¤@­Ó¤è°}©Î¯x°}¬°5*5¡]¶·¦Ò¼{¥i¯à§ïÅܬ°7*7,9*9...)¡C
¢±¡D¥ô¿ï¤@­ÓÀx¦s®æ¬°¡e¤¤¤ßÂI¡f¡A¥H¦¹¤¤¤ßÂI¨Ì¡e¶¶®É°w¡f¤è¦V¡A¡e¥Ñ¤º¦Ó¥~¡f¶ñ¤J­È¡C

»Ý¨D®ÄªG¢°¡G¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@»Ý¨D®ÄªG¢±¡G

¤U¸ü (41.85 KB)

2015-10-24 17:12

¡@¡@¡@¡@

¤U¸ü (39.64 KB)

2015-10-24 17:12

¡@
´M¨DVBA¥ô¦ó¸Ñªk¡A
­Ó¤H¥u·|¡e¥|½ü©w¦ì¡fªk¡A¬°ÁקK¤j®a¦³¥ý¤J¬°¥Dªº¬Ýªk¡A¼È¤£´£¨Ñµ{¦¡½X¡F

§Æ±æ¸ô¹L¤j¤j¤£§[´£¨Ñ§ó¦h¤èªk¡A
¥ý¦¹Á¹L¡ã¡ã
¡@
¡×¡×¡×2015.10.27 ¸É¥R¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
µ{¦¡½X½Ð¨£¢°¢³¡ã¢°¢µ¼Ó¡A
¥H«D±M·~¦Û¾ÇªÌ¦Ó¨¥¡A¥u·|¥Î³Ì°ò¥»ªºÀx¦s®æ§PÂ_¡A©Ò¥H¹ïªì¾ÇªÌ¤]À³®e©ö¬ÝÀ´¡A
¦Ó¨ä¥¦¤j¤jªºµ{¦¡½X¡A¹ê¬°¥¿³Wªº¸Ñªk¡A§ó¦³°Ñ¦Ò»ù­È¡A
¦A«×ÁÂÁ¦U¦ì°Ñ»Pªº¤j¤j­Ì¡ã¡ã

ªþ¥ó¤U¸ü¡G
20151027-01(±ÛÂà¯x°}).rar (13.38 KB)

¤U¸ü¦¸¼Æ: 7

2015-10-27 14:46

¡@

­ã´£³¡ªL

¦^´_ 2# ML089


´N¬O¨ØªAªO¥Dªº¼Æ¾Ç¥\¤O¡I
³oÃD¬O¤§«eª¾ÃÑ+¸Ñ¹Lªº°ÝÃD¡Aı±o¼Æ¾Ç¤Ó½ÆÂø¡A®Ú¥»·Q¤£¥X³o­Ó¤èªk¡A¥u¯à¯Âºé¥HRange¤èªk¥h¶]¡ã¡ã
ÁÂÁªO¥Dªºµ¹¤O¡ã¡ã

­ã´£³¡ªL

¦^´_ 5# no3-taco


³o¬O§Ú§¹¥þ¤£¥i¯à¥h·Qªº¤è¦¡, ¯u¬O ¦Ñ¤â + °ª¤â,
´ú¸Õ§¹¥þ²Å¦X,
ÁÂÁ±zªº°Ñ»P¤Î´£¨Ñª¾Ãѵ²´¹~~

­ã´£³¡ªL

¦^´_ 7# no3-taco


¡ã¡ã¥u¬O­è­è½m²ß¼g¡e¥¿¦n¡f¦³¼g¥X¨Ó¡ã¡ã¡@

¨º´N§ó¤£Â²³æ¡A§Ú¬O¸£¯«¸g§ÖÂण¹L¨Ó¤F¡I
³oÃD¥»¥H¬°¤£·|¦³¤HÃöª`¡A¨S·Q¨ìÁÙ¬O±o¨ì¨â­Ó¤£¦P¸Ñªk¡A¯u¬O·P¿E±z­ÌªºÃöª`¡I
Ä~Äò´Á«Ý¨ä¥¦¸Ñªk¡I¡I

»Ý¨Dµ²ªG¢±¤]¥i¦A·Q·Q¡ã¡ã

­ã´£³¡ªL

¦^´_ 9# bobomi

ÁÂÁ´£¨Ñºë¤ß¤§§@,
¤]ÁÂÁ¯S¨Ó°Ñ»P, ·P®¦~~

­ã´£³¡ªL

¥u·|°ò¥»ªºRange§P©w¤èªk¡A¥H¤Uµ{¦¡½X¨Ñ°Ñ¦Ò¡A
¹ïªì¾ÇVBAªÌÀ³«Ü®e©ö¬Ý±oÀ´¡G
¡Õ¥|½ü©w¦ìªk¡Ö
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
¡@
Sub ¼Æ¦r¯x°}_¥|½ü©w¦ìªk()
Dim N, xR As Range, M(1 To 4) As Range, C%, R%, X%, Y%
N = InputBox("½Ð¿é¤J¤è°}Äæ¦C¼Æ", , 11)
Cells.ClearContents
Set xR = Cells(N / 2 + 2, N / 2 + 2): Set M(1) = xR(2)
For i = 2 To 4: Set M(i) = xR: Next
R = 1: C = 2
For j = 1 To N * N
¡@¡@xR = j: Set xR = xR(R, C): X = xR.Row: Y = xR.Column
¡@¡@If X < M(1).Row And Y > M(1).Column Then R = 2: C = 1: Set M(1) = xR
¡@¡@If X > M(2).Row And Y > M(2).Column Then R = 1: C = 0: Set M(2) = xR
¡@¡@If X > M(3).Row And Y < M(3).Column Then R = 0: C = 1: Set M(3) = xR
¡@¡@If X < M(4).Row And Y < M(4).Column Then R = 1: C = 2: Set M(4) = xR
¡@¡@Sleep 10
101: Next
End Sub

'¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
Sub ¤è¦V¯x°}_¥|½ü©w¦ìªk()
Dim N, xR As Range, M(1 To 4) As Range, C%, R%, X%, Y%, T$
N = InputBox("½Ð¿é¤J¤è°}Äæ¦C¼Æ", , 11)
Cells.ClearContents
Set xR = Cells(N / 2 + 2, N / 2 + 2): Set M(1) = xR(2)
For i = 2 To 4: Set M(i) = xR: Next
R = 1: C = 2: T = "¡·"
For j = 1 To N * N - 1
¡@¡@If xR = "" Then xR = T
¡@¡@Set xR = xR(R, C): X = xR.Row: Y = xR.Column
¡@¡@If X < M(1).Row And Y > M(1).Column Then R = 2: C = 1: T = "¡õ": Set M(1) = xR: xR = "¢{"
¡@¡@If X > M(2).Row And Y > M(2).Column Then R = 1: C = 0: T = "¡ö": Set M(2) = xR: xR = "¢}"
¡@¡@If X > M(3).Row And Y < M(3).Column Then R = 0: C = 1: T = "¡ô": Set M(3) = xR: xR = "¢|"
¡@¡@If X < M(4).Row And Y < M(4).Column Then R = 1: C = 2: T = "¡÷": Set M(4) = xR: xR = "¢z"
¡@¡@Sleep 10
101: Next
xR = "¡´"
End Sub

­ã´£³¡ªL

¡ÕÀ𨤺N¯Áªk¡Ö
Sub ¼Æ¦r¯x°}_À𨤺N¯Áªk()
Dim i&, xR As Range, R&, C&, N
N = InputBox("¿é¤JÄæ¦C¼Æ", , 11)
Cells.ClearContents
Set xR = Cells(N / 2 + 2, N / 2 + 2): xR = 1: Set xR = xR(1, 2)
For i = 2 To N * N
¡@¡@If xR(1, 0) <> "" And xR(2, 1) = "" Then R = 2: C = 1
¡@¡@If xR(0, 1) <> "" And xR(1, 0) = "" Then R = 1: C = 0
¡@¡@If xR(1, 2) <> "" And xR(0, 1) = "" Then R = 0: C = 1
¡@¡@If xR(2, 1) <> "" And xR(1, 2) = "" Then R = 1: C = 2
¡@¡@xR = i:  Set xR = xR(R, C)
¡@¡@Sleep 10
Next i
End Sub
¡@
'¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
Sub ¤è¦V¯x°}_À𨤺N¯Áªk()
Dim i&, xR As Range, R&, C&, T$, N
N = InputBox("¿é¤JÄæ¦C¼Æ", , 11)
Cells.ClearContents
Set xR = Cells(N / 2 + 2, N / 2 + 2):  xR = "¡·":  Set xR = xR(1, 2)
For i = 2 To N * N - 1
    If xR(1, 0) <> "" And xR(2, 1) = "" And xR(0, 1) = "" Then R = 2: C = 1: xR = "¢{": T = "¡õ"
    If xR(0, 1) <> "" And xR(1, 0) = "" And xR(1, 2) = "" Then R = 1: C = 0: xR = "¢}": T = "¡ö"
    If xR(1, 2) <> "" And xR(0, 1) = "" And xR(2, 1) = "" Then R = 0: C = 1: xR = "¢|": T = "¡ô"
    If xR(2, 1) <> "" And xR(1, 2) = "" And xR(1, 0) = "" Then R = 1: C = 2: xR = "¢z": T = "¡÷"
    If xR = "" Then xR = T
    Set xR = xR(R, C)
    Sleep 10
Next i
xR = "¡´"
End Sub

­ã´£³¡ªL

¡Õ¤Q¦r«DªÅÀˬdªk¡Ö
Sub ¼Æ¦r¯x°}_¤Q¦r«DªÅÀˬdªk()
Dim i&, xR As Range, R&, C&, N, j&, k&
N = InputBox("¿é¤JÄæ¦C¼Æ", , 11)
Cells.ClearContents
Set xR = Cells(N / 2 + 2, N / 2 + 2): xR = 1: Set xR = xR(1, 2)
For i = 2 To N * N
¡@¡@For j = 1 To 4
¡@¡@¡@¡@If xR(0, 0).Resize(3, 3).Item(j * 2) <> "" Then k = k & j
¡@¡@Next j
¡@¡@If k < 5 Then R = Mid("1201", k, 1): C = Mid("0112", k, 1)
¡@¡@xR = i:  Set xR = xR(R, C): k = 0
¡@¡@Sleep 10
Next i
End Sub
¡@
'¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
Sub ¤è¦V¯x°}_¤Q¦r«DªÅÀˬdªk()
Dim i&, xR As Range, R&, C&, N, j&, k&, T$
N = InputBox("¿é¤JÄæ¦C¼Æ", , 11)
Cells.ClearContents
Set xR = Cells(N / 2 + 2, N / 2 + 2): xR = "¡·": Set xR = xR(1, 2)
For i = 2 To N * N - 1
¡@¡@For j = 1 To 4
¡@¡@¡@¡@If xR(0, 0).Resize(3, 3).Item(j * 2) <> "" Then k = k & j
¡@¡@Next j
¡@¡@If k < 5 Then
¡@¡@¡@¡@R = Mid("1201", k, 1): C = Mid("0112", k, 1)
¡@¡@¡@¡@T = Mid("¡ö¡õ¡ô¡÷", k, 1): xR = Mid("¢}¢{¢|¢z", k, 1)
¡@¡@End If
¡@¡@If xR = "" Then xR = T
¡@¡@Set xR = xR(R, C): k = 0
¡@¡@Sleep 10
Next i
xR = "¡´"
End Sub

­ã´£³¡ªL

¦^´_ 17# n7822123


³oÃD¥Øªº¬O¬Ý¤£¦Pªº¸Ñªk, ¶°«ä¼s¸q!
¶Q¸Ñ´ú¸Õ§¹¥þ¥i¥Î, ÁÂÁ°ѻP!