- ©«¤l
- 2833
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2889
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-11
|
¡ÕÀ𨤺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 |
-
1
µû¤À¤H¼Æ
-
|