ࡱ> 65  !"#$%&'()*+,-./01234=O89:;<>KI@ABCDEFGHJLSMNPxQR]`UVWXYZ[\^_cubdmfghijklanopqrstv~wyz{|}R FWe7KWorkbook e_VBA_PROJECT_CUR"7eay9eVBA7eay9e ؀\ptmt Ba= ThisWorkbook=(x>>>>>>>>>>>>>>>>>>>>>>>>> 22@Y!22"22#22Y$22Y%22Y&22'22(22Y)22Y*22+22,22 -22Z.22@/22022'122/2227322?422Z522O622W722_822Z922p:22[;22[<22[=22>22{?22uDl@@YABCYDYEYFGHYIYJKL MZN@OP'Q/R7S?TZUOVWW_XZYpZ[[[\[]^{_uDl`@YabcYdYeYfghYiYjkl mZn@op'q/r7s?tZuOvWw_xZypz[{[|[}~{uDl@YYYYYY Z@'/7?ZOW_Zp[[[{uDl@YYYYYY Z@'/7?ZOW_Zp[[[{uDl@YYYYYY Z@'/7?ZOW_Zp[[[{uDl@YYYYYY Z@'/7?ZOW_Zp[[[{uDl>@5 Sheet1 ؀ 03*'358;G>ACF  dMbP?_*+%"Mb?Mb?U } @YYYYY Y     Z@'/7?ZOW_Zp[[[{u:::::::::: : : : : ::::::::::::Dl>>>>>>>>>>>>>>>>>>>>>>>>>> 22@Y!22"22#22Y$22Y%22Y&22'22(22Y)22Y*22+22,22 -22Z.22@/22022'122/2227322?422Z522O622W722_822Z922p:22[;22[<22[=22>22{?22uDl@@YABCYDYEYFGHYIYJKL MZN@OP'Q/R7S?TZUOVWW_XZYpZ[[[\[]^{_uDl`@YabcYdYeYfghYiYjkl mZn@op'q/r7s?tZuOvWw_xZypz[{[|[}~{uDl@YYYYYY Z@'/7?ZOW_Zp[[[{uDl@YYYYYY Z@'/7?ZOW_Zp[[[{uDl@YYYYYY Z@'/7?ZOW_Zp[[[{uDl@YYYYYY Z@'/7?ZOW_Zp[[[{uDl>@5 Sheet2 ؀ 0 HPSVWY\^awd  dMbP?_*+%"Mb?Mb?U } @YYYYY Y     Z@'/7?ZOW_Zp[[[{u:::::::::: : : : : ::::::::::::Dl>>>>>>>>>>>>>>>>>>>>>>>>>> 22@Y!22"22#22Y$22Y%22Y&22'22(22Y)22Y*22+22,22 -22Z.22@/22022'122/2227322?422Z522O622W722_822Z922p:22[;22[<22[=22>22{?22uDl@@YABCYDYEYFGHYIYJKL MZN@OP'Q/R7S?TZUOVWW_XZYpZ[[[\[]^{_uDl`@YabcYdYeYfghYiYjkl mZn@op'q/r7s?tZuOvWw_xZypz[{[|[}~{uDl@YYYYYY Z@'/7?ZOW_Zp[[[{uDl@YYYYYY Z@'/7?ZOW_Zp[[[{uDl@YYYYYY Z@'/7?ZOW_Zp[[[{uDl@YYYYYY Z@'/7?ZOW_Zp[[[{uDl>@5 Sheet3 Module1?__SRP_3__SRP_2 ThisWorkbook0  !"#$%&'()*+-./0123456789:;<=>?ABCFGHIJKLMNOPQRSTUVWXY[\^_`abcdefghijklmnoprstwxyz{|}~Ur~} H )  Y)YAq|`"i  hiii0 i,hpr,2* -k2`P@P  00/Hpf"i` i i `P  `P@h"i` i i `P  `PR0/Rpf"i` i i `P  `PNh"i` i i `P  `P0 ,~p.@(p0SE$`P@T #h (K ,    l#t #t[Ur `$`a$ `axPU#EM (LSSS<'0{00020819-0000-0000-C000-000000000046}8($H xAttribute VB_Name = "ThisWorkbook" Bas0{00020819-0C$0046} zCreatablAFalse PredeclaDIdTru !E xposeTemplateDeriv#bCus`tomiza <Eēx׽C0eF FEĒx׽C0eFx PW#EĒx׽C0eFEēx׽C0eFbJ4EMSheet1,__SRP_a @__SRP_bD@Module2Tv(LSSS"6'0{00020820-0000-0000-C000-000000000046}@|1 *\Rffff*cc2eb4768($H`, $" $ $0xJPR4EMP >LLL"@|1 *\Rffff*2c2eb6feb*\R0*#11*\R0*#12 *\R1*#136*\R1*#b0*\R1*#bb*\R0*#10*\Rffff*cc2eb4768h$$ ` 0k E.@ 9239@ x@ 0-00` }#2. 0`@+ !i' 4` X %i @6 p`8 B @0 @ pX8 "*.0`$@h 46@ \P@P es@ O@ @ @X@(p @ L@` @P 43@@ @0 {,P( UD[ot"7$ "08 X.t` ,<2 , 8H  P&f` &h   &f &h 08 @ HX` Bhx B    0@ HX`h xx$Z) [v̒01:OZXps\3#Mi "$*A1:IV2567$!&((E@C,13  000000  $. 'ft O       'Ίp̐Ƃ̍ $0' GENNUMX(n) ւ  HQ    $*   72!&(($ap  $*    72!&((h@HQ  $  $*    72!&(( a  $*   72!&((hk@A Hanl,]  '0 fp,fZx '4  b0 g('4a'4 6 $.  6 a'4E:h 6-Dh:f`` θ` $,8ul\p01:OX s\ ryHAttribute VB_Name = "Module1" Option Explicit Pub Const LENGTH As Integert26 * '[v̒ Sub square() Dim n, m, d , numA With Sheet1 .Range("A1:IV256").irior.ColopQB (15): .Activate FBn1 To  mD(Sqr(n - 1)) + 1 d T(m`m m )n 'ΊpƂ̍a= GENNUM1(n) 'XւSelect `Case 6 2) O 0 If d > 0` Then .Cells$-mS3Els.e'g@dnd IfF2VAߣ2@32F+F2ElB6DoEvents Next n  FunByVal nH@]D @tn 4U2B(Rfi, flagJa-2Ǔc2`1 B"S@N5(  h ~` h@  h ~@^000 hp  h 0 hp  h F , y \Dp`P@0 bb(v "i |i i 8x0@@ l/Ur `.` qap<Eđx׽C0eF FEĐx׽C0eFx PRP#EĐx׽C0eFEđx׽C0eFbJ4EM(LSSS"6'0{00020820-0000-0000-C000-000000000046}@|1 *\Rffff*bc2eb4757($H` H $H $o $0h@0 xAttribute VB_Name = "She et2" Basp0{0002`0820- C$0046} zCreatablFalse PredeclaIdTru !@ExposeTemplateD0eriv#bCustomiza Ur  4 ! I|eUr @p<Eĕx׽C0eF FEĔx׽C0eF__SRP_9u@Sheet3v__SRP_c __SRP_d@xPRT XEM$ > LLL"<(<,<0<4<8<<<@|1 *\Rffff*9c2eb4754*\R0*#11*\R0*#12*\Rffff*2c2eb6feb *\R1*#136*\R1*#b0*\R1*#bb*\Rffff*bc2eb4757*\R0*#10 @`k @B )@@D @6 x@F `)@ J`k)@I6 IF 8I( %$>$pX@hP8*H.J@ ȍ~@ ł@ g`@ ͂@ AMac@p X C@(` ͎M@ B @PP h( sȃ@@ BjxP N GP ܂@0 AN@ ߂L@/ o[(*@8 +P+@` bx8 @/ `+`+(xP@6 x +@F +,@ B@6 @F p@ -0*H /@H 1@ 3@` oura@ alm @ t EnhX! "  604>h   ,4   ,40 0`,4 0,4  ,  @HP "XHv`xZ@Xp$*A1:IV256 H%$!&((E H@B,@'BE  $. 'DE' B D F B D  ' B'6E 6 F AJE F 6 B D  ' D'FE 6 F AJE 6 F D B   ' D'6E 6 F AJE F 6 D B   ' B'FE 6 F AJE 6 a B 'BE D 'D@Al $0$* 6 F H%2!&((<GENNUMX(n) ւlPH``l` [$4@\   HpAttribute VB_Name = "Module2" Option Explicit Sub spiral() Dim H, T, i, j, n As IntegerTheet2.Range("A1:IV256").Brior.ColoroQB (15): S6Activate H 1: T8(Sqr(LENGTH - 1)) + n0 While H < T F^jH ToA01n<i: Call PAINT 2(kKNext j/!/CtT:.i..HU Step -1b2aTi%H2*p/qTmDoEvents Wend E8nd @_ByxValn)CellsjؖGENNUM1(n'X ւ x P[#EĔx׽C0eFEĕx׽C0eFbJ4EM(LSSS"6'0{00020820-0000-0000-C000-000000000046}@|1 *\Rffff*dc2eb478c(I$H` $L $ $0h@0 xAttribute VB_Name = "She et3" Basp0{0002`0820- C$0046} zCreatablFalse PredeclaIdTru !@ExposeTemplateD0eriv#bCustomiza Ur h 4 ! I|eUr @pUr~} Module3 e__SRP_5W__SRP_4_VBA_PROJECT  Attribute VB_Name = "Module3" Option Explicit Sub zigzag() Dim L, i, j, n, s As IntegerTheet3.Range("A1:IV256").Brior.ColoroQB (15): S6Activate L 1(Sqr(LENGTH - 1)) + T1:r=n$0 While < L Select Cass 20[ i")js +j >6 =nFCall PAINT3()2i4jga WendS1 s:  SiISZCjA,!)End CZsO7DoEvents g> ]g(LLsA@zaE@<=D?j [ jLj- QBj ?,@8Cl3K6B;ub~[ByxVal~@nC]wCells`~GENNUM1T(ny'X f )p  Y )YAqdh"i  h|iii0 |i,& -* -k  hcb!~~*hV <~ *<hV<   , k !||*6"hh I2 | * "hhxP[`EM$ > LLL"<(<,<0<4<8<<<@|1 *\Rffff*ac2eb4754*\R0*#11*\R0*#12*\Rffff*2c2eb6feb *\R1*#136*\R1*#b0*\R1*#bb*\Rffff*dc2eb478c*\R0*#100 P`hk++@R =@6 x@F x@ H`Tbو V`0k-DI6 IF 8I( %$N$Xp@hP8*L.V&ʠ@ H @ #|@ @ @ P@~ ʠ@|  P@h H8Ph@6 08,@F ` P` @ ` @6 @F p@ h` 0*L ` @ ` @ `  @ @ @ hX1 "  604>h      $* , 8@ H  `$*p ,     ".  8$*H ,p  ".  $* ,  (0HP "XHv` xZ@Xp$*A1:IV256 L%$!&((E L@B,X  $. 'RE'TE' T R T kHQ'6E T'F k F  'E 6 F AV k 6 '6E F 'FHQ T'6E'Fxcel 6  'E 6 F AVroso 6 '6E F 'F@k8 T 'TE@A T T T HQ R T  '6E R'Fʠ 6 Rս  'E 6 F AV 6 '6E F 'FhHQ R'6E R T  'F F R2  'E 6 F AV 6 '6E F 'Fk T 'TE@Al $0$* 6 F L%2!&((<GENNUMX(n) ւlPH`` $48\   HpI t  , bA4PRh(v "i |i i A8x0LA l/Ur `.` qapab '*\H{000204EF-0000-0000-C000-000000000046}#3.0#9#Mac OS 9:Microsoft Office 2001:Office:Visual Basic for Applications\0#Visual Basic For Applications*\H{00020813-0000-0000-C000-000000000046}#1.3#0#Mac OS 9:Microsoft Office 2001:Microsoft Excel\0#Microsoft Excel 9.0 Object Library_*\H{00020430-0000-0000-C000-000000000046}#2.0#0#82SU064D18:tmt'sMathSite:byvba:2#OLE Automation*\H{92396810-A79F-11D0-8ADF-00A0C91110EB}#2.0#0#Mac OS 9:Microsoft Office 2001:Office:Visual Basic for Applications\3#Microsoft Forms 2.0 Object Library*\H{92C78480-A79F-11D0-8ADF-00A0C91110EB}#2.0#0#Mac OS 9:Microsoft Office 2001:Office:Visual Basic for Applications\2#Microsoft Forms 2.0 Object Library E..`M t*\H{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#82SU064D18:tmt'sMathSite:byvba:0#Microsoft Office 9.0 Object Library @|1 PModule1 2c2eb6feb*DR0 ThisWorkbook 2c2eb474e*D=USheet1 cc2eb4768*D#W0RModule2 9c2eb4754*D>RT`HSheet2 bc2eb4757*DIRP`RSheet3 dc2eb478c*DM[xRModule3 ac2eb4754*DN[x 0x`HEăx׽C0eFEąx׽C0eFEćx׽C0eFEĉx׽C0eFEċx׽C0eFEčx׽C0eFEďx׽C0eFP./&( ExcelA+ VBAAWin16A~Win32AMacA VBAProjectAstdoleA`MSFormsACOfficeAu Module1Ab _EvaluateA(LENGTHAY(squareAdnAemAddA[numA Sheet1ARangeA InteriorA;ColorAF2QBColorA8ActivateA|SqrA((GENNUM1A<"CellsA(GENNUM2A<#iA`flagABREAKA ThisWorkbookA| Module2Ac(spiralAHA_TAkjAa Sheet2A(PAINT2A @ Sheet3A Module3Ad(zigzagADLAcsAj(PAINT3A AWorkbookAk WorksheetA_DefaultAj=   I?MO# ~   0 H  VBAProject4@ Z= r 1|@ %J< rst dole>stdole i%_*\H{0002`0430-C 0046}#2.0#0#82SU064D18:tmt'sMathSite:byvba:2#OLE Automation0MSFo@rms>SFFrms/;dir__SRP_0 __SRP_1PROJECTwm 1*\GG;GG00}#0G#00x92C78480-A79F-11D0-8ADF0A0C91110EBxMac OS 9:Microsoft Office 2001::Visual Basic for ApplicAs\2#A @S ObA{ Library&.E .`M rrOf@icr~tA62DF8D04C-5BFA-101B-PBDE5A6Aq452r0- 9.0R-BP|oduPle1 2DoEu¢1.HB1³,B,BR*!B+B´ThisWorkbookN2 Th@sWBkbokPĊOU"EASheet5*2S@e@dt4R`mW d&2&2&2&TR&f g PR#3"%3 3p [ # #1 ;[#`=K*bUr~~~~~~~~~~~~~~~~~~~E m?ё׽CR } 'a ay a i      "#$&'()+a 1a  iIa iaa  yaiq  VBAProjectModule1 ThisWorkbookSheet1Module2Sheet2Sheet3Module3FEMac OS 9:Microsoft Office 2001:Office:Visual Basic for Applications\0VBA  Q(F 0Mac OS 9:Microsoft Office 2001:Microsoft Excel\0Excel Q80F 82SU064D18:tmt'sMathSite:byvba:2stdole  YH9hЊEMac OS 9:Microsoft Office 2001:Office:Visual Basic for Applications\3MSForms X E..`M DŽЊEMac OS 9:Microsoft Office 2001:Office:Visual Basic for Applications\2 !Ih-L[DR 82SU064D18:tmt'sMathSite:byvba:0Office 9axsquareGENNUM1GENNUM2  spiralPAINT2zigzagPAINT3M Y$|FEđx׽C0eF FEĐx׽C0eFDF Worksheet  @EĔx׽C0eF / FF&| pFV  (InteriorColorEēx׽C0eFEĒx׽C0eFEĕx׽C0eF) A1:IV256%x f $|#x%x 1 Ur~}   nij i !jModule1Module1ThisWorkbookThisWorkbookSheet1Sheet1Module2Module2Sheet2Sheet2Sheet3Sheet3Module3Module3ID="{B5299F12-BC23-11D7-BD43-00306546A7B8}" Module=Module1 DocPROJECTeSummaryInformation(!DocumentSummaryInformation8%CompObj*[ument=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=Module2 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Module=Module3 Name="VBAProject" HelpContextID="0" CMG="7072DE24E224E224E224E2" DPB="E0E24E914F914F91" GC="5052FE01FF01FFFE" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=211, 1, 821, 414, C ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Module2=211, 1, 821, 414, C Sheet2=0, 0, 0, 0, C Sheet3=0, 0, 0, 0, C Module3=210, 2, 1021, 686, C  Oh+'0@HT` x tmttmtMicrosoft Excel@DͫO@k/e ՜.+,0 PXl t|  individualg7 squarespiralzigzag ワークシート FMicrosoft Excel [NV[g8FIBExcel.Sheet.8