全国计算机等级考试二级ACCESS笔试试题

《全国计算机等级考试二级ACCESS笔试试题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

20054ᨴᐰὃACCESS⚪ஹ⌱⚪⚪2ᑖᐳ70ᑖᑡᔜ⚪AஹBஹCஹD⌱⚗ᨵ⌱⚗"#$Ḅ&'#$⌱⚗(ᑏᙠ+⚪ᓱ-./01+ᙠᔁ134ᑖ஺1ᑡ67#$Ḅ"A89:;"<ᑴ89B89Ḅ>?@ᵫ89ᕒCDEFᡂC89HIᦋ┯LM.NOP>D89HIᦋ┯L3?NOP>2QᑡᦪST᪀VᵨᑖXNOYZḄ"A[9\]Ḅᨵ9^ឋ⊤B^ឋa⊤Cba⊤Dᨵ9^ឋa⊤3ᑡᐵd᪘Ḅf7#$Ḅ"Aᙠ᪘Vgᐭᐗjk3Vᑤ◀ᐗjBᙠ᪘Vᑤ◀ᐗjk3VgᐭᐗjC᪘"ᱯoḄ^ឋ⊤Vᙠpgᐭᡈᑤ◀ᐗjD᪘"ᱯoḄ^ឋ⊤Vᙠ-pgᐭᐗjkᙠspᑤ◀ᐗj4ᑡ67#$Ḅ"AtuᦪST᪀Vᨵv\]T᪀BᦪSḄtuT᪀wd^ឋT᪀\]T᪀wdx^ឋT᪀C•tuᦪST᪀z{ᨵ|v\]T᪀}ᔜv\]T᪀3~ᦪSᜐᳮḄᦔ᳛DtuᦪST᪀z{ᨵ|v\]T᪀}ᔜv\]T᪀~ᦪSᜐᳮḄᦔ᳛5ᑡf7#$Ḅ"A8"⚗Ḅᳮ⚪B8⌕Ḅ᳛⚪C8Ḅ⌕"Iᙠ8◤⌕.ᵨ8ᓄᑣD8"Ḅᢈ⚪6ᙠ:3wd8:ᐹḄ"APDL8:BPADCN-SDDFD7ᑡ67#$Ḅ"A¡¢£ᵨLM◤⌕NO¤¥B-¦¡¢£ᵨ;3◤⌕PNO¤¥C¡¢£ᵨLᐸ¨ᕜª;T«D¤¥"ᢣ®89¯ẚ±Ḅᢣ²8ᦪS³:Ḅ᪷µ᪗"⌕AᦪSᐳ·⚪BᦪS¸ᐰ⚪CᜧºᦪS\]⚪D»ᓄᦪS¤¥(9):ᨵ᝞ᐵ½⊤¾RSTABCABCABC112313112223223313ᑣᑡ¿À#$Ḅ"AT=RASBT=RUSCT=RxSDT=R/S
10ᦪS³½ÁḄ᪶Ã"AᦪSÄÅBᦪS³ᳮ½ÁCᦪS³DᦪS³ᳮᕒ
11'Æᐵ½ÇÈᡂ•ÉḄᐵ½ᡂḄÉᐵ½ᒹËÌÍᩩḄᐗÏÐv¿ÀÑÒ

1A⌱Bᢗ~CὶÈDÖ
12᝞×⊤AḄᩩØÙÚ⊤BḄ|ᩩØÙ-ᓛÜ}⊤BḄᩩØÙÚ⊤AḄ|ᩩØÙ-ᓛÜᑣ⊤AÚ⊤B\ᙠḄᐵ½"AÝB-Ý|C|ÝD|Ý|13ᑭᵨAccessßàḄᦪS³ᦻᐸ᡽ãäÒA.ADPB.DBFC.FRMD.MDB
14☢ᐵdAccess⊤Ḅ67┯æḄ"AᙠAccess⊤z{ÝᜓèÅéêNO“ìí"wឋ:0Bïᑤ◀⊤ËᨵCð<ñÅéêḄ•ᩩØÙLAccess3òÝ⊤Cð<ñÅéêóÉ<ñCßà⊤ôõḄᐵ½ö.ᐵ÷ᡠᨵᡭḄ⊤DzᙠAccess⊤Ḅ:ú“ûü"ᑡÝéêNOᐹýḄûü15ᙠAccess⊤z{þÿ3
ᐵAᓫஹBᓫஹCᓫஹDஹ
16
21⚪ᵨḄ"Employee”⊤⊤᪀⊤ᑁ!᝞#ᡠ%&'()*ᜧ,-ᕒIDᦻ0101'ᦻ010ឋ4ᦻ01◞6HU71'17/ឋ79:;7<=>ᔊὶAᵯC<=Dᦻ0᝕19BC-1-1Fᳮ1984HᜧIJKL├Nᕒ35976450OᔊP:ᜓSᵱ1962-7-1<ᕒ1986HᜧIJKUV├Nᕒ35976451ὶAᵯCDẚᩈᵱ19&0-1-1<ᕒ1993HYZJKUV├Nᕒ359764524[\᝕1978-6-1<ᕒ1999HᜧIJKUV├Nᕒ359764535],^᝕1934-11-1<ᕒ1956HYZJKUV_ᳮᕒ35976454
16ᙠ"tEmployee"⊤a"1'"Ḅᜧ,V10,ᙠcᑡeᐭᦪhiᨬkeᐭḄlᦪmᦻnᦪᑖ4A55B510C1010D1020p17q⌕steᐭḄὶAᵯCuvwV8xᦪyz{Ḅeᐭ|ṹ~6VA00000000B999999990########D????????p18qᙠ"tEmployee"⊤aᡠᨵ1"D"Ḅkᙠ~ḄᑣaeᐭALike"D"BLike"D*"D="D"D="D*"p19#☢%Ḅ~Ḅ"~”ᑖcᑖᡠ%Ḅᑁ!akᑨ9⌕ḄAᑤ◀B:ᡂ⊤C⌱D
20#☢%Ḅ~~ᡠ%Ḅᑁ!aᑨczA9:;7uBᡠᨵuC◀9:;7᜜ḄᡠᨵuD-ᕒIDup21q"tEmployee”⊤Vᦪh¡¢£<¤ḄH¥p¦᦮¨%᝞#ᡠ%Ḅ

2©ª«¬sḄ~22
24⚪aᵨ#®Ḅ'(VfmTest,®aᨵ¯£᪗±¯£²³ᢥµ'(ᑖ4VLabellbChange
22ᙠ"®”%{®i⌕¶ᙠᓫ·²³ᢥµ¸᪗±¹%Ḅᦻº⁐¼V^⁐,#w¾U{¿ÀḄÁÂAlabell.ForeColor=255BbChange.ForeColor=255Clabell.ForeColor="255"DbChange.ForeColor="255"p23qz®Ḅ᪗⚪~6V"ᦋ¼ᦻ%º⁐”yᵨḄÁÂAMe="ᦋ¼ᦻ%º⁐"BMe.Caption="ᦋ¼ᦻ%º⁐"CMe.text="ᦋ¼ᦻ%º⁐"DMe.Name="ᦋ¼ᦻ%º⁐"p24ᙠ"®”a%®i®aÄᨵ⌱Åᘤyz®Ḅ"⌱Åᘤ”Çឋu~6VABᔲCᨵDÉp25V®ᡈË⊤¹ḄÌÍ~6ÇឋuḄ¬sοÀ²³ASetBSetDataCSetWarningsDSetValue
26#ᑡÏÇпÀḄAÑᦪB:ᡂ⊤CDᑤ◀p27ᵨᦪhÒÓ⚓ÕwᦪhÒÓ⚓iAccessÖᙠ×ØᦻÍᜳ#tÚḄᦪhÒÓ⚓ᐸÜVAHTMLBᦻ0CᦪhÝDWebp28wÞ“àáᡠâ4ḄÀ""àák᡻Ḅä"ᑖ4(VàáḄAåæçÍBçÍåæCçÍÇឋDèéåæp29ᙠᐵÐË⊤ᦪh~6Ḅêëa#¬sḄAkìíàáBvw⊤àáCvwàáDk⊤àáᡈàáp30ᙠË⊤~Ḅ¤ᐹïaᵨÐð⛲᱐☢óᑮõ%ᦔ©ḄÌÍA÷øùúB÷øᙊúC÷øüúDùúᙊúp31#ᑡýþ⊤óÜaw¬s⊤%ᩩ"X
y᜻ᦪ"ḄAxMod2=1OryMod2=1BxMod2=0OryMod2=0CxMod2=1AndyMod2=1DxMod2=0AndyMod2=032⌕ᙠᦻ᪾ᐭᦻᑮṹ"*”Ḅᦔᑣ!"#Ḅ$ឋA"&'("$ឋB"᪗⚪"$ឋC"ṹ"$ឋD"ᐭ+ṹ"$ឋ33Ꮇ-ᨵ/0123᪀DoUntilᩩ126Loopᑣ78Ḅ9:A᝞"ᩩ”(<0,ᑣ=>126?@᡻BB᝞"ᩩ"(<0,ᑣCD᡻B=>126C᝞"ᩩ"(@<0,ᑣCD᡻B=>126D@E"ᩩ"ᔲ<"G"CD⌕᡻B=>126
34H6IJKᨵ3LMNᢥPᑖRMS

3APrivateSubCommandl_Click
BPrivateSubCommandl__Click
Command2.Visible=TrueCommand2.Enabled=TrueCommand3.Visible=FalseCommands.Enabled=FalseEndSubEndSubCPrivateSubCommandl_Click
DPrivateSubCommandl_Click
Command?.Enabled=TrueCommand?.Visible=TrueCommand3.Visible=FalseCommands.Enabled=FalseEndSubEndSub35Ꮇ-ᨵ/0\ghn=0fori=lto3forj=-4to-1n=n+lnextjnextiiB]jknḄ(A0B304D12lஹmn⚪on2ᑖᐳ30ᑖqrso=LnḄ78tᫀᑏᙠt⚪ᓱூ1௃y15gḄz{Itᙠ|ᔁI@~ᑖ஺1qᦪᳮᢈ[\[ᳮஹᦻ
ᦪL▤hᐸᦪឋᨬḄ▤h1௃o2ᩖ⌕ᒹᩖ
ூ2௃ᩖ஺3ᙠBᙽ|⌕

4MsgBoxaEndSubᡭÏH6iBkᓫYH6ᑣæç᪾Ḅåᑁé[11]O(12)ᙠH6JK=LMNᢥP(S

51.632.'()3.ᦪ+,-ᳮ/04.12▤45.ᦪ+5ᐺ6.᜜8ᐵ:57.orderby8.;<9.ᩩ>?10.Docmd.Quitll.Len12.2113.isoddnumber14.1915.E0FSTRSQL20054ᨴᐰὃᔁAccessᦪ+,@ABCὃDE90ᑖGHIᑖ100ᑖJஹ⌱!⚪CপL
35MN⚪2ᑖ,ᐳ70ᑖJᑡᔜ⚪AஹBஹCஹDST⌱⚗VHWᨵT⌱⚗YZ[ḄH\]Z[⌱⚗^ᑏᙠ⚪ᓱ;bcdeHᙠᔁefᑖ஺C1Jᦪ+Ḅghi᪀YᢣAghᙠ᜜gVḄᦪ+Bᦪ+ᡠᓰḄgh$EnCᦪ+ᙠVḄoAghpqDᦪ+Ḅrsi᪀ᙠVḄ⊤uC2ᑡᐵv᪘ḄxyV┯{ḄYA᪘Yᐜ}~Ḅឋ⊤B᪘WoAghC᪘ᐹᨵᵨD᪘Ḅᐭᑤ◀VH◤⌕ᦋ᪘ᢣ┐
3vnḄឋ⊤HᙠᨬḄHᑡᔜ᣸AᡠbḄᦪVZ[ḄYAᑈ¡᣸An/2Bᑈ¡᣸AnC¢£᣸AnD¢£᣸An
n-l/2C4vnḄឋ⊤}¤oA¥¦Hᙠᨬᡠ◤⌕ḄᦪAIog2nBn/2CnDn+1C5ᑡvឋ§⊤ḄxyVZ[ḄYAgh$E¨Y©ªH«ᔜᐗḄghoAY®¯ḄBgh$E¨Y©ªH«°>ᐗ¨ghᙠ~>ᐗḄ°☢Cgh$E±²©ªH«°>ᐗ¨ghᙠ~>ᐗḄ°☢Dgh$E±²©ªH«ᔜᐗḄghoAY®¯ḄC6ᑡ³>)ḄxyVZ[ḄYA³>)Ḅ´ḄYµ¶@AYᔲZ[B³>)Ḅ´ḄY¸@A¹¤iºZ[C³>)Ḅ´ḄY»¼½ᙢ2¿@AVḄ┯{D³>)Ḅ´ḄY¸@AÀᔠi᪀ᓄÃᑣC7ŸÆᙽ»¼ÈÉH⌕ÊAÆᙽḄᑁÌ@⌕»nÍH«ᔜÆᙽEḄ὚ᔠ@⌕»nÏBÆᙽḄᑁÌ@⌕»nÍH«ᔜÆᙽEḄ὚ᔠ@⌕»nÐCÆᙽḄᑁÌ@⌕»nÑH«ᔜÆᙽEḄ὚ᔠ@⌕»nÐDÆᙽḄᑁÌ@⌕»nÑH«ᔜÆᙽEḄ὚ᔠ@⌕»nÏC8ᑡxyVZ[ḄYA@AÒY³>B³>12Ó/0Ḅ▲ᑴC³>ÖYrs×ØHÙYᱥᳮ×ØD³>Y@Aஹᦪ+;ᐵᦻ᫏ḄÝᔠC9ᦪ+ÈÉឋYᦪ+,ᢈßḄà⌕ᱯâãHᡠäᦪ+ÈÉឋYᢣAᦪ+@AÈÉgåB<Ḅᦪ+ægåᙠ<Ḅᦻ>VC<Ḅᦪ+WæbḄbᵨ@Aᡠ¸ᵨDçeèéêëC10ᵨ᪛íi᪀⊤u×ØãEὶ/ḄÆíYAᐵ/ÆíBïðÆíCñÆíDçeèTëY

6(ll)AccessV⊤òᦪ+,Ḅᐵ/YA)Tᦪ+,¼çᒹô½T⊤B)T⊤WᒹôõTᦪ+,C)T⊤¼çᒹô½Tᦪ+,D)Tᦪ+,WᒹôT⊤(12)ᎷBᦪ+,V⊤A⊤B÷ÉÅ"½"ᐵ/H⊤B"½"ḄpHᑣyêVZ[ḄYA)⊤AVḄTø⊤BVḄ½TøᓛúB)⊤BVḄTø⊤AVḄ½TøᓛúC)⊤AVḄT54⊤BVḄ½T54ᓛúD)⊤BVḄT54⊤AVḄ½T54ᓛú(13)ᦪ+⊤VḄ"¤"ûA)54B)ᦪ+C)øD)ᦪ+üý(14)ᙠᐵvᐭþṹḄ
┯ḄA)ᙠḄᐭṹᵨᐭṹᔣᵨB)Ḅᐭṹ!ṹC)ᐭṹḄ"0"⊤#⌱%ᐭᦪ0ᑮ9()Ḅ*+ᦪD)ᵨᐭṹ᪷-◤⌕01ᔠ3ᩭ(15)5☢78┯ḄA)ᦻ:;ᨬ=255+B)⌕>ᑮ•+@AḄBCDEFᵨG@HIᩭJᡂC)ᙠLM*N•ᐵP⌕QR+⊤ḄSᐵTUᐵVD)LM⊤()ḄᐵP:XYḄZ[ᐵ\ᡠᨵᡭ`Ḅ⊤(16)AccessabḄᦪ-c;dᒹfA)ᜓhB)ᦻC)ijD)kl/)(17)ᙠnoMpḄᦪ-⊤qᙠr#⊤ᑁtuvdEwxr#yᵨḄz8A)᣸|B)}⌱C)◚D)B(18)0⊤AḄᑴᑮ⊤Bdᑤ◀⊤BḄᵨḄHIA)ᑤ◀HIB)ᡂ⊤HIC)HID)⊤HI(19)ᙠAccessḄᦪ-Mp"Book"⊤,qH“""112266"“113388”Ḅ,ᙠHI@ḄᑣᐭA)"112266"and"113388"B)notin("112266”,"113388")C)in("112266","113388")D)not("112266"and"113388")(20)5☢r#ḄHI@Ḅ@ᑖ5ᡠ#Ḅᑁtᑨ¢£⌕LMḄHIA)ᑤ◀HIB)HIC)ᡂ⊤HID)¤¥HI(21)5ᑡd§¨Access©ªḄA)@B)©ªC)᱐☢D)ᦪ-⊤(22)u©ªᨵ*¬ᢥ¯ᙠ©ªᓫ±²¬ᢥ¯ᡭ`³*+©ª◤⌕᡻ḄµZ[A)OpenQueryB)OpenReportC)OpenWindowD)OpenForm(23)Ꮇn@·*+©ªᙠ©ªr#²©ª᝞5ᡠ#¹ᙠ@²©ªḄ"º”§ឋXYḄ(24)ᎷnᙠAccessMpᒹ½"¾"ஹ"ᓫÀ""ᦪÁ"ÂÃ+Ḅ"tOfg"⊤Ä⊤ᦪ-ÅLMḄ©ªᨵ*+@AÆÇGÈÉḄᦻ:᪾ᐸÌÍᩭÅ

7A)ÏᓫÀÐ*ÏᦪÁÐB)ºᓫÀÒᦪÁÐC)ÏÆᓫ⊤ÓᓫÀÐ*ÏÆᓫ⊤Ð!ÏᦪÁÐD)=ÏÆᓫ⊤Ð!ÏᓫÀÐ*ÏÆᓫ⊤Ð!ÏᦪÁÐ(25)Öu+×⊤Ḅ@஺᪷-ᑁtᑨ¢£ᑖ1A)Ù¾B)C)Ù¾D)Úᑖ1(26)⌕ÛÜ×⊤Ḅᑖ1Ý@ᐸZ[ÞßA)×⊤⚓ḝᡈ×⊤⚓ãÞßB)⚓☢⚓ḝᡈ⚓☢⚓ãÞßC)UªÞßD)1⚓ḝᡈ1⚓ãÞß(27)Accessäåᦪ-æç⚓èéḄᦪ-A)êE☟᝱ᦪ-B)êEᦪ-íᢝdïḄᦪ-C)êEᦪ-ïᓄḄᦪ-D)ᦪ-íñḄᦪ-(28)ᙠᩩ͵@N¨óôõḄᩩÍö÷ḄA)...B)=C),D)ø(29)ᙠ*+µḄZ[|ᑡ᝞Cᒹ½ùᩩÍḄZ[úᒹ½ÚᩩÍḄZ[஺ᑣùᩩÍḄZ[ᔲ᡻üý¨ᩩͺḄþᎷÿᨵᢣᩩḄᑣA)ᩩ᡻B)ᨵᩩ᡻C)᡻D)┯(30)ᑮ"2*5=10"ḄVBA⊤A)"2*5"&"="&2*5B)"2*5"+"="+2*5C)2*5&"="&2*5D)2*5+“="+2*5(31)••ᙠ!"ᡈ$⊤%Ḅ&'Ḅ(ឋ*A)WidthᡈHeightB)Width,HeightC)TopᡈLeftD)Top,Left(32)Ꮇ.!"Ḅ/0fmTest,ᑣ1!"Ḅ᪗⚪.'"Access"Ḅ45*A)Me="AccessTest"B)Me.Caption="AccessTest”C)Me.text="AccessTest"D)Me.Name="AccessTestw(33)6789:;<=᪾Ḅ?*a=sqr(3)b=sqr(2)c=a>bMsgboxc+2A)-1B)1C)2D)┯(34)᡻45@MsgBox"AAAA",vbOKCancel+vbQuestion,"BBBB"A:;BḄC=᪾᜜E᪵(35)ᵨHIJKLStrMN2JKOPḄ3JKḄQᦪ*A)Mid(Str,2,3)B)Middle(Str,2,3)C)Right(Str,2,3)D)Left(Str,2,3)SஹUV⚪(XV2ᑖ;ᐳ30ᑖ)\]X^VḄ_`ᫀᑏᙠ`⚪ᓱூ1௃f157gḄhi%;`ᙠjᔁ%ᑖ஺(1)mSn᪛pq2Ḅrᨵ18;ᑣsSn᪛pᨵூ1௃tur஺(2)ᙠ☢ᔣxyz{p;|Ḅ}~0ூ2௃o(3),ᦋ_67p┯Ḅ0ூ3௃஺(4)ᙠᐵᦪp;1ᦪ⊤ᡂS⊤;X^S⊤0ூ4௃஺(5)⚪ᜐᳮzᫀḄ_᦮Ḅ0ூ5௃oয⌕ᨬ20ᜩAᑁḄ¡¢;£¤ᑣூ6௃஺¥ᙠ.¦!"§¨ᵨ᪗©ª«Ḅ*ᓫ᪗©;®ᙠ!"Ḅூ7௃¯°p±²஺³$⊤.¦p;´ᙠµ⚓ḝᡈµ⚓¸pª«ூ8௃ᩭ²¡¢Ḅᑖµº»ᦪ஺

8(9)ᨵ¼᪀ᡂḄ¾;᡻§*ᢥூ9௃᡻Ḅ஺(10)VBAḄÀÁ9¾;ÂÃÄ/[10]஺(11)m!"ÅÆᑏÇ´6஺ᡭO!"9:;ᓫÉ!";<=᪾Ḅ?ூ11௃oPrivateSubForm_Click()DimkasInteger;nasInteger,masIntegern=10;m=l;k=lDoWhilek<=nm=m*2k=k+lLoopMsgBoxmEndSub(12)ᙠ!"%Ê^ÄËᢥÌ(/Command),ᯠ:Æᑏ᝞67@PrivateSubCommandl__Click()DimaasInteger,basIntegera=lb=2MsgBoxm(a,b)EndSubᡭO!"9:;ᓫÉÄËᢥÌ;<=᪾Ḅ?[12]o(13)*^ÏÐÑᑖ67஺8&ÑÒ;Óᣵ^ᨬÕᑖ,^ᨬÖᑖ;¦×Øᙳᑖ(.Úᑖ10ᑖ)஺\UV⊡ᐙ᦮஺PrivateSubForm_Click()DimMaxasInteger,MinasIntegerDimiasInteger,xasInteger,sasIntegerDimpasSingleMax=0Min=10Fori=lto8x=Val(lnputBox(“\?ᐭᑖᦪ@”))if[13]ThenMax=xif[14]ThenMin=xs=s+xNextIs=[15]P=s/6MsgBox"ᨬ:ᑖ@”&pEndSub2005ß9ᨴᐰâ¦×ãäåὃjSåACCESSçjj⚪è`ᫀ(ὃj§é90ᑖê;Úᑖ100ᑖ)^ஹ⌱ì⚪(Xí⚪2ᑖ;ᐳ70ᑖ)ᑡᔜ⚪A)ஹB)ஹC)ஹD)ð⌱⚗p;òᨵ^⌱⚗*_Ḅ;\]_⌱⚗óᑏᙠ`⚪ᓱôõ&'%;`ᙠjᔁ%ᑖ஺(1)ᑡöp_Ḅ*

9A67.¦÷*Æᑴ67B67ḄùjÂÃᵫ67ᕒÀüÓᡂC67ýþjᦋ┯:ÿ
Dᦋ┯
2ᑡᦪ᪀ᵨᑖ
ḄA!"#Ḅᨵ%ឋ⊤B%ឋ(⊤C)(⊤Dᨵ%ឋ(⊤3ᑡᐵ+᪘Ḅ-./0ḄAᙠ᪘23ᐭᐗ67ᑤ◀ᐗ6Bᙠ᪘2ᑤ◀ᐗ673ᐭᐗ6C᪘ᱯ;Ḅ%ឋ⊤2ᙠ<=3ᐭᡈᑤ◀ᐗ6D᪘ᱯ;Ḅ%ឋ⊤2ᙠ<=3ᐭᐗ67ᙠ?<=ᑤ◀ᐗ64ᑡ@./0ḄA

10CᓫËÌஹJËÌêÒÓÔÕDéËÌஹJËÌêÒÓÔÕ
16së
21⚪xᵨìÂíḄ"Employee”⊤⊤᪀î⊤ᑁð᝞ᡠñ
16ᙠ“tEmployee"⊤"òÆ"ËÌḄËÌᜧó¯10,ᙠôᑡõᐭᦪÚᨬJHõᐭḄ÷ËᦪêøᦻËùᦪᑖúA55B510Cs1010D102017sÑ⌕0ûõᐭḄὶᵯýþ2¯8ÿᦪ

ḄᐭṹA00000000B999999990########D????????18ᙠ"tEmployee"⊤ᡠᨵ""Ḅᙠ!"Ḅ#ᑣ%ᐭALike"2"BLike"*"=""D="*"19(☢*+Ḅ,!"Ḅ"-.”0ᑖ230ᑖᡠ+Ḅᑁ5ᑨ78⌕:;Ḅ,Aᑤ◀B>ᡂ⊤C⌱ADBC20(☢*+Ḅ,!"2!"ᡠ+Ḅᑁ5ᑨ73*+A8>DE
FBᡠᨵ
FC◀8>DE᜜Ḅᡠᨵ
FDHᕒID
F21"Employee"⊤ᦪJKLMNOPḄQRS᦮UV*+᝞("ᡠ+ḄXYZ[\]Ḅ,
22^
24⚪`ᵨ("bcḄdefmTest,bcᨵfN᪗hi•NklᢥndeᑖoLabellibChange஺22ᙠ"bc!"”*+bcq⌕rᙠᓫtklᢥnu᪗hv*+Ḅᦻ
x⁐z{⁐,(}~Ḅ,Alabell.ForeColor=255BbChange.ForeColor=255Clabell.ForeColor="255"DbChange.ForeColor="255"23bcḄ᪗⚪"ᦋzᦻ
*+x⁐"`ᵨḄ,AMe="ᦋzᦻ
*+x⁐"BMe.Caption="ᦋzᦻ
*+x⁐"CMe.text="ᦋzᦻ
*+x⁐"DMe.Name="ᦋzᦻ
*+x⁐"24ᙠ"bc!""*+bcqbcᨵ⌱ᘤbcḄ"⌱ᘤ”ឋFA,BᔲCᨵD25bcᡈ⊤vḄឋFḄ\]kl,ASetBSetDataCSetWarningsDSetValue26(ᑡḄ,AᦪB>ᡂ⊤CBCDᑤ◀27`ᵨ:;ᦪJ⚓}:;ᦪJ⚓qAccessᙠᦻᜳ(:;ḄᦪJ⚓ᐸ.¢AHTMLBᦻ£CᦪJ¤DWeb28}¥“§¨ᡠ©oḄ"i"§¨᡻%Ḅ«"ᑖoe§¨ḄA¬i®B®i¬C®iឋD°±i¬29ᙠᐵ⊤ᦪJKḄ³´(\]Ḅ,A,µ¶§¨B·},⊤§¨C·},§¨D,⊤§¨ᡈ§¨
30ᙠ⊤ḄPᐹ¹ᵨº⛲᱐☢½ᑮB¿*+ᦔYḄ,AÁÂiÃÄBÁÂiᙊÄCÁÂiÆÇÄDÃÄiᙊÄ31(ᑡÈÉ⊤½¢}\]⊤+ᩩ"XiyË,᜻ᦪ"Ḅ,AxMod2=1OryMod2=1BxMod2=0OryMod2=0CxMod2=1AndyMod2=1DxMod2=0AndyMod2=0

1132⌕rᙠᦻ£᪾ᐭᦻ£q½ᑮÎṹ“*஻ÐḄ*+ᦔYᑣḄឋ,A஻ÑÒF஻ឋB஻᪗⚪஻ឋC஻Îṹ஻ឋD஻ᐭṹ஻ឋ33Ꮇᨵ(ÔÕX᪀DoUntilᩩÔÕcLoopᑣ\]Ḅ³´,A᝞Y஻ᩩ஻F0,ᑣf×ÔÕcØ᡻%B᝞Y஻ᩩ஻F0,ᑣÙÚ᡻%f×ÔÕcC᝞Y஻ᩩ஻F0,ᑣÙÚ᡻%f×ÔÕcDÛ஻ᩩ஻,ᔲ஻Ü஻ÙÚ⌕᡻%f×ÔÕc
34bcvÝÞHᨵ3NklᢥnᑖßljkdCommandlஹCommand2iCommand3஺áᑏCommandlḄᓫt®°±ãᡂḄ}äᓫtᢥnCommandlqᢥnCommand2ᵨᢥnCommand3å஺(\]Ḅ,APrivateSubCommandl_Click
BPrivateSubCommandl__Click
Command2.Visible=TrueCommand?.Enabled=TrueCommand3.Visible=FalseCommands.Enabled=FalseEndSubEndSubCPrivateSubCommandl_Click
DPrivateSubCommandl__Click
Command?.Enabled=TrueCommand2.Visible=TrueCommand3.Visible=FalseCommands.Enabled=FalseEndSubEndSub35Ꮇᨵ(±æn=0fori=lto3forj=-4to-1n=n+lnextjnextiç%ãèunḄF,A0B304D12éஹêë⚪Më2ᑖᐳ30ᑖUíMfNëḄ\]îᫀᑏᙠî⚪ᓱூ1௃^15æÐḄóÂvîᙠôᔁvöᑖ஺
1ᦪJ÷ᳮᢈúûü°±ý°þP÷ᳮஹᦻÿ
ᦪ▤ᐸᦪឋᨬḄ▤1௃o2ᩖ⌕ᒹᩖ
ூ2௃ᩖ஺3ᙠ$%&ᙽ()⌕*+,()Ḅ&ᙽ-᜜/012&ᙽ345&ᙽ
67&ᙽ᫕&ᙽ9஺ᐸூ3௃Ḅ:ᵨ<()ᦪ=〈?,()Ḅ&ᙽ@AB,()&ᙽᡠDEḄFG஺4HIJK᪛MNO᪷FQ*MHO9ḄFQᦪᨬR*ூ4௃஺5ᦪF᪀ᑖ*UVF᪀
WXF᪀YZ[ᑡ]^ூ5௃F᪀஺6_`aK⊤cdefg%᪗⚪
ூ6௃$%ᑖjGroupByk:஺7ᡭmH⊤nopᵨḄqk:ூ7௃o
8rᦪNow
stuḄvwூ8௃஺

12(9)`yHz{z{ᨵH}~ᢥᓫᢥ<ᡭmHcdcd*஻qT஻᝞GᵨVBAṹᡂnpᵨḄூ9௃஺(10)ᙠ⊤/010ᩭᑴ-H⚓AB஺(11)/ᨵ.z{ᓫ¡¢3PrivateSubForm_Click()a=lFori=1To3SelectCaseiCase1,3a=a+1Case2,4a=a+2EndSelectNextiMsgBoxaEndSubᡭmz{£%¤ᓫz{ᑣ¦§᪾Ḅᑁª11o(12)ᙠz{H}~ᢥ(*Command஺
Hᦻ¬᪾(*textl),ᯠ¤®ᑏ᝞°¡¢3PrivateSubCommandl_Click()DimxAsInteger;yAsInteger,zAsIntegerx=5:y=7:z=0Me!Textl=""Callpl(x,y,z)MelTextl=zEndSubSubpl(aAsInteger,bAsInteger,cAsInteger)c=a+bEndSubᡭmz{£%¤ᓫ}~ᢥᦻ¬᪾ABḄᑁª12஺(13)ᨵHVBA0¢±Ḅ²³᝞°o¢±ᵨᡝµ☢ᵫ4ᦻ¬᪾
3ᢥjᡂ஺4ᦻ¬᪾Ḅ¸ᑖ¹*:TextlஹText2ஹText3
Text403ᢥᑖ¹*:¼◀(*Commandl)ஹ0(*Command2)
⌨(*Command3)»z{ᡭm£%¤ᓫ¼◀ᢥᑣ¼◀ᡠᨵᦻ¬᪾ABḄᑁª3ᓫ0ᢥᑣ0ᙠTextlஹText2
Text3ᦻ¬᪾ᐭḄ3ÀᡂÁḄÂᙳᡂÁ@

13MsgBox"ᡂÁᐭÍᐰ"ElseMe!Text4=
[13]+Val
Me!Text2+Val
Me!Text3/3[14]EndSubPrivateSubCommand3_Click
Docmd.[15]EndSub2005Ï9ᨴÑ)Òᫀ⌱Õ⚪31-5CACDC6-10DAABB11-15CDDAC16-20cABDB21-25CABBD26-30AAADA31-35CDBCDÇÈ⚪31ஹᦪ▤2ஹÈ3ஹ45&ᙽ4ஹ325ஹUVF᪀WXF᪀6ஹᑡ᪗⚪u7ஹopentable8>stÖ×
9ஹDocmd.OpenqueryqT10.ᑖ⚓Ø11ஹ512ஹ1213>Val
MelTextl14,endif15>quit2006Ï4ᨴᐰÙ0ÚÛÜὃ)JÜAccessᦪ¢±/0ὃ)90ᑖÞßᑖ100ᑖ9Hஹ⌱Õ⚪+à⚪2ᑖᐳ70ᑖ9°ᑡᔜ⚪AஹBஹCஹDã⌱⚗åᨵH⌱⚗æçḄÆ<æç⌱⚗ᑏᙠÒ⚪ᓱénêëìÒᙠ)ᔁìÍîᑖ஺19ᑡ⌱⚗Í]^F᪀ᓄ¢±/0ðḄAñ⚔ᔣ°B⌲õö÷C&ᙽᓄDᵨ21ᡈ1ì&ᙽùᐵὶḄüý¢¸*A὚ᔠBᑁCᩖDᦪᱯឋ
3ᑡḄAᵫὅᩭ!ᡂB#$%•'(◤⌕+C,-.ᒹ012ṹḄ,-D456789:(1;4ᢥ᯿"%?ᐜA"BᑣDEᦪḄᦪF᪀AHᑡB᪘CJᔣL⊤DNO᪛;5ᑡḄAQឋL⊤Qឋ⊤ḄLRSTF᪀B᪘UHᑡVQឋF᪀CJᔣL⊤VQឋF᪀D.ᨵ᪷FYḄNO᪛QឋF᪀;61᝞NO᪛?[%\ᔊḄF^_AABCDEFBDBEAFCCABDECFDDEBFCA
7ᙠa_7ḄbNO᪛cdeFYḄfᦪ_A32B31064D63;8"ᖪh"U"ij"kflmnopḄὶrs'As1sBs1uCu1sDu1u;9ᙠE-Rvcᵨᩭ⊤xlmḄvyAzyB{ᙊyC}yD6~y
10ᦪDBஹᦪrDBSஹᦪᳮrDBMSopḄᐵrADBᒹDBSDBMSBDBMSᒹDBDBSCDBSᒹDBDBMSDᨵᐵr;11Ḅᦪᨵ37cAஹᐵrBஹᐵrᑭ

14CஹᐵrDஹ;12ᙠ4cḄAACCESS.ᵨrᓫ¢£ᦪᵨrBACCESS(ᐹᜓ¦§¨CACCESS.ᐹᜓ©ᙽᓄ¦§¨DACCESSᐹᨵ☢ᔣ1Ḅ¦§¨c®¢£ᩖḄᦪᵨr
13(¯°Access1ḄA⊤BᦻᜳC³mD´µ;14⊤ḄDᡂᑁ¶ᒹ0A´µBC³mD·¸⊤;15ᙠᦪ⊤¹v,(A»ᦋḄB»ᦋḄ½Cᑤ◀sfDᑤ◀sᩩ;16ᦪAḄÁs789BÂÃᒹÄᦪḄ¦ÅCsᦪᵨDsᵨᩭÆAccess⊤ᔣÇᐕÉÊ⌱ÌḄ½;17ÍᨵsfÎ#£ÏḄ"ᢥÐᕒÒ´µ"³mc᝞vᡠx.Õ[³m%cᙠᦻÖ᪾ᐭ⌕´µÐᕒḄÒcÙᢥ"´µ"ᢥÚÛcÕ[sf"ᢥÐᕒÒ´µ"Ḅ´µc´µÜxAᡠ´ÐᕒḄÐᕒIDஹÒݽÞ6஺à³mḄᦻÖ᪾½_tName,¦§"ᢥÐᕒÒ´µ"cḄ¦§¹vABCD;18vᵨ´µ¦§ᘤ!ᡂḄ´µcâ´µÞãḄSQLäAselectåæcᦪåfromscwhereᦪåç
selectavg;ᦪå·fromscBselectåæwhereᦪåு;selectavg;ᦪå·fromscCselectᦪåavg;ᦪå·fromscDselectᦪåç
selectavg;ᦪå·fromsc;19ᙠvcU´µ¦§ᘤḄé⌱᪗ëᡠ¦ÅḄé⌱ìíîḄ⊤ïRAᡂð⊤.ñᔠᡂð=80ANDᡂð⊤.ñᔠᡂð=90Bᡂð⊤.ñᔠᡂð80ANDᡂð⊤,ñᔠᡂð90C80=ᡂð⊤.ñᔠᡂð=90D80;ᡂð⊤.ñᔠᡂð90;20vᡠxḄ´µóôḄA(ᒹ80ᑖ90ᑖB(ᒹ80ö90ᑖᦪCᒹ80ö90ᑖᦪDᡠᨵḄ;21᣸Û᝞^⌱ø©ufcᑣAF^Aᢥ¦ÃḄùᐜú?[᣸BᢥᨬüýḄᑡþ᣸CᢥÊÿᔣ
ᐜ᣸D᣸22Ḅᢥᓫ᪗Ḅ!"⌱$ᐸ&ឋ()᪾ḄA+,⌱⚗ᓱB/0⌱⚗ᓱC1⌱⚗ᓱDᦪ3⌱⚗ᓱ
23⌕ᦋ678ᦻ:᪾;0Ḅᦪ3?

15(25)᝞OcdeR7!ᐜfgḄ/0=A)Load/0B)Open/0C)Click/0D)DaClick/0(26)ᦪ3ij⚓klmᓫᙢEo=eRA)p⚓B)ᦪ3qᦻ0C)wordᦻ0D)r⊤(27)Hᵨs[ḄtḄ=A)LuvwxᩖḄsB)Luᒹ{ᜧ}~ḄsC)ᑁὑD)(Rs[ᳮ(28)l=s(mlḄ~ᑡLᎷᙠsmlḄ~ᑮḄ(ᙳᙠ!WLḄsml7"fTest"8QRᢥḄᓫ/0&ឋ!ᑣᡭ7"fTestl"!ᓫᢥ!smlḄ஺sml!¡R~ᐜᡭ7("fTest2"⊤("tStud"஺¢£᡻Close~!A)¥ᐵ§7("fTestl”B)¥ᐵ§⊤(“tStud”C)ᐵ§7(“fTest2”⊤("tStud”D)ᐵ§7"fTestl""fTest2”⊤("tStud”(29)VBAḄᩩ©ªklᑏᙠe!ᐸᑖ◞®¯°Hᵨ®±A)B)!C);D),(30)VBA⊤Y,3*3\²Ḅ³u´O=A)0B)1C)3D)9(31)ᨵeR¶·¸Ḅ7!7ᨵeᢥ!ᓫ¹ᢥ!Wᡭ"tEmployee"⊤!᝞OºᵨVBA»ṹ½ᡂ!☢©ª¿ÀḄ=A)docmd.openformwtEmployee"B)docmd.openview!rtEmployee"C)docmd.opentable"tEmployee"D)docmd.openreport"tEmployee”(32)AccessḄ;0(klQR&ឋᩭ;ᑴ(=ᔲkᵨ(ÃkᵨÄÅᮞ⁐È᝱)஺◤⌕Ḅ&ឋ=A)DefaultB)CancelC)Enabled(33)lT´Ì!6}xḄFx=2y=4Dox=x*yy=y+iLoopWhiley<4A)2B)408D)20(34)ᙠ78ÍceRᢥ(ÎCommand஺!ᯠÐᑏ᝞/0ÑPrivateSubCommandl_Click()Fori=lTo4x=4Forj=lTo3x=3Fork=lTo2x=x+6Nextk

16NextjNextiMsgBoxxEndSubᡭ7!ᓫᢥ!Ò᪾Ḅ³u´O=A)7B)15C)157D)538(35)Ꮇᨵ᝞Ḅ᝞bÑ:Subsfun(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSubᙠ78ÍceRᢥ(ÎCommand஺!ᯠÐᑏ᝞/0ÑPrivateSubCommandl__Click()DimaassingleDimbassinglea=5b=4sfuna,bMsgBoxa&chr(10)+chr(13)&bEndSubᡭ7!ᓫᢥ!Ò᪾Ḅ¡³uᑁÔᑖÕA)11B)1.251C)1.254D)54ÖஹØÙ⚪(ÛÙ2ᑖ!ᐳ30ᑖ)ÝWÛeRÙḄ¿ÀÞᫀᑏᙠÞ⚪ᓱூ1௃âூ15௃±Ḅãä8!Þᙠåᔁ8Ãçᑖ஺(1)(èé10Ḅäឋ⊤ᑈë᣸!ᨬíîï◤⌕ðñḄᦪூ1௃஺(2)ᙠ☢ᔣ(1!ூ2௃òóḄ=ᐹᨵõö&ឋ÷~Ḅe[(஺(3)ᙠᐵøùú!ûᦪ3üᡂ=Öý⊤!ÛeRÖý⊤þeRூ3௃o(4)ÿᑖ☟᝱ᑖ᪆᝱஺ᐸூ4௃ᢣ᡻ᦻ▅!"#ᑖ᪆$%Ḅ┯(஺(5)ᦪ+,-ឋᑖ/0,-ឋ1ᱥᳮ,-ឋ஺4ᦪ+Ḅ567᪀ᦋ:;ᐸ/07᪀<=:>?@A/07᪀ḄBᵨDEᦋFூ5௃o(6)7ᔠHᦻ᪾<=J⊤ஹMᡈூ6௃OPᡠ◤ḄᑁT஺(7)ᙠVWX/Z[\]^D_`aூ7௃]bḄᐵd஺(8)eᦪRight("ghijkὃ”4)Ḅ᡻7n8௃஺(9)o[\ᨵqrsᢥuᙠ[\vwᓫy?rsᢥuᡭ{q|M◤⌕᡻Ḅ~ூ9௃஺(10)ᙠᵨDimᦪ;ᙠḕᦪ᪗Ḅ▲10஺11)ᙠ[\|rsᢥuFCommand1,ᯠᑏ᝞PrivateSubCommandl_Click()Dims,iFori=lTo10s=s+iNexti

17MsgBoxsEndSub[\ᡭ{ᓫyrsᢥuᑣ᪾Ḅ7n[111஺(12)ᙠ[\q|FCommandlḄrsᢥuᯠᑏ᝞,PrivateSubs(ByVaipAsInteger)p=p*2EndSubPrivateSubCommandl_Click()DimiAsIntegeri=3Calls(i)Ifi>4Theni=iA2MsgBoxiEndSub[\ᡭ{ᓫyrsᢥuᑣ᪾Ḅ7n[12]o(13)`ᨵ᝞ṹ:x=ldox=x+2loopuntil[13]⌕£¤¥\᡻3¦7§¤¥ᙠ¨©ᜐ«ᐭ〉4஺(14)[\ᨵ®|rsᢥu஻°±஻(²³cmdDisplay)஻"(²³cmdTest)஺=´³Ḅµ¶ᓫy஻஻ᢥu;[\·¸|᪾஺᝞nᓫy᪾Ḅ“º஻ᢥu◚¼[\·Ḅ஻°±"rsᢥu½ᓫy஻¾஻ᢥuᐵ¿[\஺ᢥ᯿µ¶⌕£Á⊡ᐙÄ᦮஺PrivateSubcmdTest_Click()Answer=[14]("◚¼ᢥu"vbOKCancel)IfAnswer=vbOKThencmdDisplay.Visible=[15]ÆseDocmd.CloseEndIfEndSub2006Ç4ᨴᐰÊghijkὃËkAccessᦪ+Ì`gÍᫀq.⌱Ñ⚪(l-S)DADBA(6-10)DCDAC(11-15)BDBBA(16-20)BCAAD(21-25)CBBCA(26-30)ADCAB(31-35)CCCBB[Ë.«¨⚪(1)45(2)Ó(3)ᐵd(4)☟᝱ᑖ᪆(5)/0,-ឋযSQLMÕ⊤Öjkὃ(9)OpenQuery(10)0(11)55(12)36(13)x=7(14)Msgbox(15)False07Ç9ᨴᐰÊghijkὃËk×ᔁaccessὃ⚪qஹ⌱Ñ⚪(1Ù35ÚÛ⚪2ᑖᐳ70ᑖ)1.Þ³ᢣA)B)ᦻ᫏

18Chàᦪ+7᪀Dஹᦪ+1áᐵᦻ᫏ḄÄ᦮âᔠ2.Þ³ãḄäḄA$%┯(Bᦋå┯(CᦋᗐÞ³Ḅឋ¶DçèÞ³Ḅåºឋ3.ᙠ☢ᔣëìàí%î◚ïð☠AëḄòóBëḄô᝱CëḄõöDëḄᑖÓ4.ᑡøùúᔠûü`gýþ⌕£ḄAḄᦔ᳛
ᨎ
BḄឋC⌕ᨵ⌕ḄDᐭᦪ⌕ᨵ5.ᑡ!"#$Ḅ%A᡻'Ḅᦔ᳛)ᦪḄ*+,᪀.ᑗ0ᐵB᡻'Ḅᦔ᳛2345Ḅ6ᑴ,᪀C᡻'Ḅᦔ᳛2345ᡠᜐᳮḄᦪ;D<=>?@ABCD6.ᑡ!"#$Ḅ%AᦪḄEF,᪀)*+,᪀G%DHḄBᵫ5JKL*+MN%ᔣ;PḄ*+,᪀QRᦪḄ*+,᪀G%Sឋ,᪀CTJUVḄᦪWX%Y*+,᪀QRᑭᵨᦪW2\ᜐᳮSឋ,᪀D<=>?@ABCD7.ᑈ^᣸ᙠᨬbcdḄefgᦪ%An
n+1/2Bnn2logCn
n−1/2Dn/28.hi᪛ᐳᨵ70lmn,o)80lpq1Ḅ,oᑣsi᪛Ḅt,oᦪqA219B221C229D2319.ᑡ!"#$Ḅ%Aᦪuvw%lxyḄvwC◤⌕{|vwḄ}ᢝBᦪuᢈḄ᪷᪗%⌕4ᦪḄᐳ⚪Cᦪuᳮvw%ᦪuvwD<=>?@ABCD10.ᑡ!"#$Ḅ%Aqylᐵv✌ᐜ⌕᪀⌼ᦪḄEFᐵvB⊤ᐵvḄ⊤ᔜᐗWḄlᑖ;<ᑖᡂᦪ⚗ClᐵvḄឋ⊤qᐵvPDlᐵv<ᒹ¡l⊤11.ᵨ⊤ᩭ⊤£¤¥£¤¦NὶvḄᦪ¨%A.£¤-ὶv¨B.ªg¨C.«¬¨D.ᐵv¨12.ᙠ®¯°Ḅ"°²³´”)¯°l¶"°²"Ḅὶv%A.•DὶvB.D¡ὶvC.¡D¡ὶvD.¸ὶv13.ᎷTlº»ᵨ¼º½º|ὅ¿᱐Á¿᱐ÂÃu*ᦪ;……ÅWឋᩭÆ"Ǻ<|q"ᐵÈÉ”Ḅ%A.º½B.ºC.|ὅD.¿᱐Á14.ᑡ5AccessDÊḄ%A.ᦻÌB.ᦪC.ÍÎD.ÏÐ15.ᙠAccessᦪuḄ⊤TJÑÇC\Ò'Ḅ{|%A.ÓᦋÉÕÖ¨B.T×ØÙC.ÚÛÉÕD.ᑤ◀ÍÎ

1916.ᙠAccessᦪuqÞᢝ⊤¦NḄᐵv⌕ßᙠn⊤¼à⊤ÅáÛÍÎâ᝞äå⊤æᨵ)¦0ᐵḄÍÎᑣC\ᙠn⊤¼à⊤ÅáÛᦋÍÎ஺qR◤⌕GèḄᐵv%A.ᐭéṹB.ᨵᦔឋëᑣC.ìíîD.ï᯿ñ᦮ឋ17.ó⊤AḄÍÎáÛᑮ⊤B⌕ßÞᢝ⊤BõᨵḄÍÎ<öᵨḄÏÐ%A.⌱øÏÐB.ùᡂ⊤ÏÐC.úÛÏÐD.ûüÏÐ18.ᙠAccessÏÐḄᦪý<%A.⊤B.ÏÐC.⊤þÏÐD.⊤ஹ
⊤19.ᙠAccessḄ⊤ᨵ""⌕ᒹ"”ḄḄᩩ⊤!A.=left
",2=""B.like"**"C.="**"D.Mid%&",2=""20.᝞(ᙠ
Ḅᩩ)ᵨ+,-./012Ḅ3!A.,-4567Ḅ.B.,-8ᙠ01ᑁḄ45.C.,-/01ᑁᑡ;Ḅ4ᓫ.D.┯>Ḅ)ᵨ/?21.@ᨵA
BCDE%᝞FEᡠHIJ
⌕Ḅ!A.KLᙠ160MNḄ᝕ឋᡠᨵḄᵱឋB.KLᙠ160MNḄᵱឋᡠᨵḄ᝕ឋC.KLᙠ160MNḄᡠᨵRᡈᵱឋD.KLᙠ160MNḄᡠᨵR22.ᙠTUᵨᩭWᐭᡈYZᦪ\Ḅ]^_!A.ᦻa᪾_B,᪗d_C.e⌱᪾_D.ᑡ⊤᪾_23.᝞(⌕ᙠ᦮⊤ḄᨬiW;◤⌕BkA.⚓☢⚓nB.⊤⚓nC.⚓☢⚓ḝD.⊤⚓ḝ24.pqr⊤sḄ!A.⊤B.
C.SelecttuD.MNvpM25.ᙠ⊤⌕Cw"ᦪx"ḄᨬLᑖz{_Ḅ“_ᩭs"}ឋBkrA.=Max%&ᦪx"IB.Max
ᦪxIC.=Max&ᦪx"D.=Max
ᦪxI26.{Accessᦪ\~ᦪ\ᑮinternetNpM,A.
B.TUC.ᦪ\⚓D.⊤27.ᡭ
Ḅq!A.OpenFormB.OpenQueryC.OpenTableD.OpenModule28.qSetValuepMBkA.TUᡈ⊤_ḄBkB.ᑵ_ᦪ\C.ḄD.Ḅ29.)ᵨFunctiontu3ᦪᐸḄA.!.1B.!◀ᦪ¡¢᜜Ḅ¤ᓫᦪ\C.pᙠ¥ᵨᵫ§¨©D,ᵫᦪ3Asªu«¬30.ᙠ3ᨵtuPrivateSubGetData
ByReffAsIntegerᐸ"ByRef"Ḅ3!A.®¥ᵨB.®ᙬ¥ᵨC.°±ᦪD.²▭±ᦪ31.ᙠAccessDAOḄ3!A.´ᦪ\~^µzᵨY¶·B.ᦪ\~¸¹C.Activeᦪ\¸¹D.ᦪ\~º᝱¼¶~32.ᙠTUᨵ᪗dLabel஺,᪗⚪r“ÀÁ¨”;ᨵÄÅᢥÇCommand!.,ÈÉṹ᝞FPrivateSubCommandl_Click
LabelO.Caption="᪗d”

20EndSubPrivateSubForm_Load()Form.Caption=”ËÌ”Commandl.CaptionÍ"κ“EndSubᡭTUiᓫÏÄÅᢥÇÐÑÒHABCD33.ᙠTUᨵ᪗dLblÄÅᢥÇCommandுÈÉṹ᝞FOptionCompareDatabaseDimaAsString*10PrivateSubCommandl__Click()a="1234"b=Len(a)Me.Lbl.Caption=bEndSubᡭTUiᓫÏÄÅᢥÇTUÒHḄᑁÔ!A.4B.5C.10D.4034.Fᑡ8!ᑖÕÖ᪀Ḅtu!A.lf...Then...EndlfB.While...WEndC.If...Then...Else...EndlfD.Select...Case...EndSelect35.ᙠTU)ᨵᦻa᪾(Ùrn)¶ÚWᐭḄᨵÄÅᢥÇrun,ÈÉṹ᝞FPrivateSubrun_Click()result=""Fori=lToMe!nForj=lToMe!nresult=result+"*"Nextjresult=result+Chr(13)+Chr(10)NextiMsgBoxresultEndSubᡭTUi᝞(,ᦻa᪾WᐭḄr4,ᓫÏÄÅᢥÇiW;ḄE!A.****B.****************************C****·****************************************ÍஹÜÝ⚪(ÞÝ2ᑖᐳ30ᑖ)1ஹá◤âãäå¬æzᐹᨵè᦮ឋஹéê3ឋஹឋஹpëìឋஹpíᦋឋïᱯឋᐸᨬñ⌕Ḅ!ூ1௃«

212ஹᙠõöaÀÁ/?ூ2௃ÀÁḄ÷ᑣ¢!ùìᡠÀúᙽÞüýþÿ
⌕᡻஺3ஹឋ⊤Ḅ᪀⌕ᑖ᪀᪀஺ᑡᱯḄឋ⊤!ᑡᑡḄூ3௃஺4ஹ$%ᑡ&'᪛)*+ᔊḄ-ூ4௃஺5ஹᙠE-R/*01⊤2ூ5௃஺6.ᙠᐵ567*⌕8ᐵ59*ᢣ;<=>ឋ?ᡂAḄᐵ5Bᐵ567Cூ6௃7.ᙠAccess*EFḄᦪHIᦻKḄ᡽MNூ7௃8.ᙠᔣᦪHI*PᐭᦪHR;<⌕TᡠPᐭḄVWXYVZᑣ\B]^ḄPᐭ_ṹ[8]9.abᵫdefᑖ?ᡂgefᑖC•eூ9௃10.ᵨj᡻ᢣ;SQLklḄmnoூ10௃11.ᙠVBA*pqrḄst᪗v[11]12.ᙠab*wᵨeᦻx᪾(Nx){|Pᐭ}ᨵeᢥtest,Kṹ᝞%:PrivateSubtest_Click()y=0Fori=0ToMe!xy=y+2*i+lNextiMsgBoxyEndSubᡭab<ᦻx᪾Pᐭ}3,ᓫᢥPḄ-[12]13.ᙠab*wᵨeᦻx᪾(Nnuml){|Pᐭ}ᨵeᢥrunl3,Kṹ᝞%PrivateSubrunl3_Click()IfMelnuml>=60Thenresult="”ElselfMeJnuml>=70Thenresult=”“ElselfMelnuml>=80Thenresult="ᔠ”EndIfMsgBoxresultEndSubᡭab<ᦻx᪾PᐭḄ}85,ᓫᢥP-[13]14.ᨵeab᝞%/ᡠ2஺ᡭabPᐭᵨᡝNṹno⌕Tᙠ20ᑁᡂ᝞-ᙠ20ᑁᨵᡂnoᑣ᎔Rᑮ¢஺R£¤ᐵ¥ababḄ¦%§¨2᎔RḄᦻx᪾Itime஺Kṹ᝞%⌕T©ªᡂK«஺OptionCompareDatabaseDimflagAsBooleanDIMiAsIntegerPrivateSubForm_Load()flag=[14]Me.Timerlnterval=1000

22i=0EndSubPrivateSubForm_Timer
Ifflag=TrueAndi<20ThenMelTime.Caption=20-ii=[15]ElseDoCmd.CloseEndIfEndSubPrivateSubOK_Click
,«ᶍ,᝞-ᵨᡝNṹPᐭ®¯,ᑣ:flag=FalseEndSub07°9ᨴᐰ³7´µ¶ὃ¸&¶¹¸¸ᔁaccess»ᫀ1-5DBCAA6-10DCABC11»ᫀD½᪆ᐵ59tᵨ⊤1⊤2¿bstᐸ¿bÁḄὶ5஺ᐵ59tÃÄᨬÆ⌕Ḅ9tÇEFᙠÈḄᦪÉᭆËḄÌẠÎḄ஺ᐵ59tḄÌxᦪH᪀&Ï⊤gÐ&Ï⊤Ceᐵ5஺ὃÑ3ÒஹÓÔஹᐵ59t12»ᫀB½᪆$dὶ5Õl:n᝞-¿bÖA*Ḅge¿b¿bÖB*ᨵne¿bÕ*0×Øὶ5ÙØ¿bÖB*Ḅge¿b¿bÖA*dÚᨵe¿b×Øὶ5ᑣC¿bÖA×Bᐹᨵ$dὶ5஺ὃÑ2¿bὶ59tE-R/13»ᫀA½᪆ṹÕÜCᐵÝVÞ&Ï⊤*Ḅße>ឋ<ÇḄ}àᙢ᪗vâeᐗ?ᑣCB>ឋᐵÝV஺x⚪*ÚᨵA.åæçèéêᐵÝV;ë*Ḅàឋ⌕T஺ὃÑ1ÌxᭆË14»ᫀD½᪆AccessᦪHIᵫᦪHI$ì?ífᑖ?ᡂ஺ᐸ*$ìÜᑖ7ᒹï⊤ஹðñஹabஹò⊤ஹᦪHóô⚓ஹm9ᙽ஺÷ø$ìùúᙠ᡽MN.mdbḄᦪHIᦻK*஺ὃÑ3AccessᦪHIḄ5û᪀15»ᫀD½᪆üý⊤*ᑁþḄno⌕ᒹï⌱
ஹ
ஹᦋ
ஹᑤ◀
ஹᑴ
஺ᙠᦪ⊤ᡂḄ஺ὃ3!⊤Ḅᑁ#16$ᫀD&᪆(᯿᦮ឋ,-.ᑣ012Access3ᵨ-01ᵨᩭ678ᐵ⊤Ḅ
:;ᐵ0Ḅᨵᦔឋ2>?@ABC᜜Eᑤ◀ᡈGᦋ8ᐵᦪ஺ὃ5HI⊤:;Ḅᐵ017$ᫀC&᪆J⊤AḄ
ᑴᑮ⊤B2?@ᑤ◀⊤BḄ
2LM3ᵨḄNOPNO஺ὃ4PNO18$ᫀC&᪆᡻R⌱TNOU2◤⌕XᢣḄ•-ᡈ[-ᦪ\⊤ᡈNO]^ᦪ஺_ᡃa3ᵨNOᔣcᑴNOU2dLMeᑮfgX⊤ᡈNO⌱Tᦪh2᝞jᡠl19$ᫀB&᪆Likem,-nopᔲM,-ᡈG[nors2◤⌕tuo"*"xᡈ"y"xM3Ukez{o|6Ḅ3ᵨ᝞Like"a*"Like"File???”⊤lM"a"rᜮḄnopMFilerᜮ23CḄnoᵨᦻᡈᜓᦪὃ1.ᑣḄz{o

2320$ᫀC&᪆nopḄnono⊤no⊤Ḅ,-no2᝞a-zஹ0-9no⊤@ᙠno⊤Ḅ,-no2᝞!0-9Like"PA-F###"NMPrᜮஹAᑮF;n3-ᦪnḄᦪ஺Like"a?a-f#!0-9*"NḄnop,-a,-C2-aᑮfC,-2-ᦪn2-0-9Ḅno2ᐸCnop஺ὃ1.ᑣḄz{o21$ᫀA&᪆Or¡!ᡈ᝞"¢ᕒ"Or"ᵱ"ᵱ¥ᡈ¢ᕒC,-ὃ1.ᑣḄz{o22$ᫀA&᪆ᦻ᪾§⌕ᵨᩭ¨ᐭᡈ!nªᦪ2«,¬®¯°±஺ὃ2²³Ḅ°±23$ᫀB&᪆´⊤⚓¶ᙠᡠᨵ
·¸ᜐᳮ2fᡭᓺᙠ´⊤Ḅ½¾ᜐ2ᵨᩭ¿l᦮À´⊤ḄÁÂÃÄ஺ὃ3´⊤ḄÅᡂ24$ᫀD&᪆1ᙠ"ᦪ\”²³ᓫÈ"´⊤"ÉÊ2ᙠËÌḄ²³ÍÈ”3ᵨᔣcÎH´⊤"⌱⚗஺ÐÑ¿l"´⊤ᔣc"•-ÉÒ᪾2ᙠÉÒ᪾ᒹÔᨵ⌕ÎH´⊤Ḅᦪh⌱⚗ஹ⊤ᡈNOḄLᵨnª⌱⚗2ᙠ"⊤/NO”⌱T⌕ÎH´⊤Ḅ⊤ᡈNO2ᙠ"Lᵨnª"⌱Tnª2ᓫÈ"j,Ö"ᢥØ஺ὃ23ᵨ"´⊤ᔣc"ÎH´⊤25$ᫀA&᪆ᨬᜧஹÛÜÝᦪÞ¯Max
ீnop⊤à¯ுMin
nop⊤à¯ுâgãä,ÅᢣnªḄᨬᜧஹÛÜ஺ÃÄ"nop⊤௔LM,-nªåᦪn2ᡈὅÔᨵᦪnnªḄ⊤à¯஺çᨵ-“ᡂé"nª2LMᵨMaxᡂéênªḄᨬᜧÜ2ᵨMinᡂéênªḄᨬÛÜ஺ὃ2.ᑣḄÝᦪ26$ᫀC&᪆ᦪëì⚓íîïᦪ\ᦪðîḄñ⚓2òᵨóNeôᩭõInternetᡈIntranetḄᦪᦪ7öᙠMicrosoftAccessᦪ\ᡈMicrosoftSQLServerᦪ\஺ᦪëì⚓dLgᒹÔᩭõᐸ÷ᦪhḄᦪ2WOMicrosoftExcel஺ὃ1ᦪëì⚓Ḅø27$ᫀB&᪆OpenFormùúᵨóᡭr²³OpenQueryùúᵨóᡭrNOOpenTableùúᵨóᡭr⊤OpenModuleùúᵨóᡭr⌱Ḅûᙽὃ7ýᵨþ28$ᫀA&᪆SetValueùúᵨó²³ᡈ´⊤°±Ḅÿឋ
ὃ7ᵨ29ᫀD᪆ᵨḄᵨᨵ

24Call([)ᡈ[SubᡈFunction"Ḅ#$%&ᑭᵨ(ᦪᩭ+⌴
-.ᵨḄ஺0ᦪḄᵨ1ᨵ20ᦪ([)஺ᵫ40ᦪ56728
9▭;90ᦪḄ;<ᵨ=⌕ᨵ?@2AB0ᦪ67
CD
ᡂᑖDGH8IJ9ᐸLC“IJ=0ᦪ([O])":SAB0ᦪ67
CH8ḄᡂᑖTᵨ஺ὃ5ᵨUᦪ+⌴30ᫀB᪆•ᙠᦪ0ᦪXYZ9⌕[\H8ᦪḄ"]ᔣ"+⌴9_`abcdC"+ᙬ"ᵨ஺ᐸXf⌱⚗AByRef஺31ᫀB᪆ᦪijklm(DAO)ᦪijklmAVBAnoḄ•ᦪijkpq஺ActiveXᦪilm(ADO)ActiveXᦪilmAr4stḄᦪiuvpq஺ODBC:wxᦪiuyz`ᵨvpq஺DLL:ᦪiu{᝱}puὃ6VBAḄᦪiuv32ᫀD᪆ᡭw,{ᵨForm_Load(),ZFormḄ᪗⚪C""9CommandlḄ᪗⚪C"{"9Label஺ḄᑁC"""aᓫ(ᢥ9Label஺ḄᑁC“᪗"9FormḄ᪗⚪A""9CommandlḄᑁA"{",⌱D஺33ᫀA᪆"DimaAsString*10"⊤IJaḄ¡¢C108£⁚9¥_A58¦£Ḅ¡¢§᝞©ᡠ«ᐭ£®410¯5{ᵨ°L⊡²9᝞©ᜧ410,ᑣµ¶Ḅ·ᑖᑣ5.¸ᣵ91ºᶇ¼108£஺a="1234",b=Len(a),b=4,"½ḄᑁA4஺ὃ3VBAvrẠ22JஹIJஹÀÁU⊤Â34ᫀB᪆While...WEndAÃÄÅ᪀Ḅ#$9ÇAᑖÈÅ᪀Ḅ#$஺ὃ4VBAÉÊËᑴ#$35ᫀA᪆«ᐭḄn
C4Z,Forj=lTo4᡻result=result+"*",Zresult="****",ÃÄjÅÎ9᡻result=result+Chr(13)+Chr(10),Ïa4ᙠ£Ðresult="****"☢Ò•87Óᣚ9Õ᡻iÃÄ3Ö9«×ḄØÙ`dAA஺ὃ4VBAÉÊËᑴ#$Ú°1ÛÜÝឋ2Þß⌚á3âãÅ᪀஺äÉ4ACBDFEHGP5å6ᢗç᪆ᢗç(TJ)èᐵ"ᢧ⌱ëìíឋsᡂḄᐵîCᢗç஺᝞©ᐵ"ᒹðñòᐗs9ᑣôõñòᐗs஺ᢗçÀÁöCnx(R)9ᐸ"RC28ᐵ9xC2síឋᡈíឋÉ÷஺ὃ3øùḄᐵÀÁ7mdb᪆AccessḄᦪiuA28úûḄᦻt9ᐸ᡽þCMDB஺◤⌕
ḄᵨᡝḄᦪᵫ⊤ஹஹஹ⊤ஹᦪ⚓ஹᙽᦪ᪀ᡂḄ!"#ᦪ$%&ᙠ(•*+MDB,᡽./Ḅᦪᦻ12஺ᓽᦪ567Ḅᦻ1஺89ὃ;?@A8LB᪆

25MicrosoftAccessᢥ᯿G⊤HI"KᐭMṹ"OឋQR2ḄST஺U⌕QRS☢ST!8KᐭW⊤+᜜ḄYZᐸ\ST!ᒹ^_`Ta஺U⌕bGᑡST2Ḅde*QR,S☢ST!8ᙠSTf☢ghijk
\oSTlm0ᦪS
0ᑮ9,o⌱⚗r5ᐕtuᵨga+va-wo9ᦪSᡈ_`yzo⌱⚗r5ᐕtuᵨgavaw஺#ᦪSᡈ_`yzo⌱⚗r_|bHᣚ,_`!ᐕtuᵨgavaw஺LS~yAᑮo⌱⚗w஺?S~yAᑮZ,⌱⚗w஺AS~ᡈᦪSyo⌱⚗w஺aS~ᡈᦪSy⌱⚗w஺&YeSTᡈ_`yo⌱⚗w஺CYeSTᡈ_`y⌱⚗w஺ᓝᑴᓰTᓟஹᑖ◞T஺y▭uᵨḄSTMicrosoftWindowsᑴ☢2ᢣQḄ>஺wuᐸᡠᨵḄSTHᣚ,ᑏ஺uᐸᡠᨵḄSTHᣚ,ᜧᑏ஺!uKᐭMṹyKᐭMṹe£`¤!ᵫS☢¥¦STy᝞^aஹ¨a©STwMṹSTyᵨᢣQ+KᐭᦪḄ+ªᦪ£«ஹSTᦪ¬wᡂ஺w®¯ᑮ°¥¦!±5®°ᑮ¯¥¦஺ᏉᐭMṹ2ḄST³´$®°ᑮ¯µᐭ஺+ᙠKᐭMṹ2ḄYZᙢ·ᒹ^¸¹a஺\uᐸḄST¥¦,»RST஺ᵨbW⊤2ḄYZST¥¦,»RSTy¼᝞!\A¥¦,A»½ṹb"KᐭMṹ”Oឋ>,"½ṹ”!+½ṹ⚗ᦻ;᪾஺ᦻ;᪾2ÀᐭḄYZST$ᢥS☢STÁ%!Â¥¦,Ãay*w«ὃ=4SÆOឋḄ>9⁚B᪆⁚ᵫÈ*Éᑖᡂ!Ê*ÉᑖË,e*"⁚”஺ᙠ>?ÌÍ2!ÎÈ+uᵨ5£⁚!ᑖÏ⚓ḝஹ⚓☢⚓ḝஹÑஹ⚓☢⚓Òஹ⚓Ò஺ᜧÉᑖḄÓᨵÑ⁚஺10RunSQLB᪆RunSQLÔÕᵨ᡻×ᢣQḄSQLبὃ=7ÙᵨÚÛ11DoubleB᪆DoubleyÜÝÞß=àwá¬%&,IEEE64y8*S⁚wß=ᦪâḄã¤!äḄæᙠçᦪḄ᎛®?1.79769313486231E308Î04.94O65645841247E-324,±éᦪḄ᎛®4.94065645841247E-324ᑮ1.79769313486232E308஺DoubleḄ«àêmSTᦪSTay#w஺ὃ=3VBAëìíẠeeÙ¬ஹá¬ஹïðT⊤ñ¤1216B᪆Uòóᦻ;᪾Kᐭâ,3,ᑣForõöi=0To3ᐳ᡻×4ø!ùeøy=0+2*0+l=lrùúø:y=l+2*l+l=4rùüøy=4+2*2+l=9r

26ùýøy=9+2*3+l=16rᡠ+KþḄÿ
16ὃ4VBAᑴ13᪆ᦻ᪾ᐭḄ85,ᐜ᡻"IfMe!numl>=60Then"ᑨ!"#ᩩ%ᡠ'result(""*+ᑨ,᡻"MsgBoxresult"ᡠ'-*
஺ὃ4VBAᑴ14/ᫀ14True15i+1᪆"PrivateSubForm_Timer
"
ᵨᩭ3ᡂ205ᑁ᎔89:;Ḅ!“Me.Timerlnterval=1000",ᡠ'"PrivateSubForm_Timer
”<1000>5ᓽ<5@A᡻••CD"#ᩩ%"flag=True",E"i<20"9F᡻"Me!Time.Caption=20-i”᎔89ᒕH9IJKLூ14NO"True",'PQ;R᡻"Me!Time.Caption=20-i”,TUV"i"WXᵨᡝᡭ[\X]^_`abcdḄ5ᦪᡠ'15NO"i+1"஺fᨴᐰi8jklmὃnompnnᔁrὃn9I90ᑖt"ᑖ100ᑖuvஹ⌱y⚪r<{⚪2ᑖᐳ70ᑖur1uᦪ}Ḅ~*᪀
ᢣru஺A~ᙠ᜜~Ḅᦪ}Bᦪ}ᡠᓰḄ~IVCᦪ}ᙠ8jkḄ~Dᦪ}Ḅ*᪀ᙠ8jkḄ⊤Kr2ᑡᐵ᪘Ḅ┯Ḅ
roA᪘
ᐜda-Ḅឋ⊤B᪘;~C᪘ᐹᨵW^ᵨD᪘Ḅᐭᑤ◀]^¡◤⌕ᦋU᪘¥ᢣ┐
3§¨nḄឋ⊤ᙠᨬª«¬ᑡᔜ᣸°ᡠNḄ±²Cᦪ³´Ḅ
ru,Aᑈ¶᣸n஻Bᑈ¶᣸nC¸¹᣸nD¸¹᣸n
nºAr4§¨nḄឋ⊤d»¼ᙠᨬª«¬ᡠ◤⌕Ḅ±²Cᦪru஺AIog2nBn/2CnDn+1r5ᑡឋ½⊤Ḅ³´Ḅ
ru஺A)~I¡•¾¿ÀEᔜᐗÂḄ~
ÃÄḄB)~I¡v¾¿ÀEÅ%ᐗÂv¾~ᙠa%ᐗÂḄÅ☢C)~IÇÈ¿ÀEÅ%ᐗÂv¾~ᙠa%ᐗÂḄÅ☢D)~IÇÈ¿ÀEᔜᐗÂḄ~
ÃÄḄr6ᑡÉ%ÊnḄ³´Ḅ
ru஺A)É%ÊnḄËḄ
QÌ
ᔲ³´B)É%ÊnḄËḄ
ÎÏ*³´C)É%ÊnḄËḄ
ÐÑ;ÒᙢÔÕḄ┯D)É%ÊnḄËḄ
ÎÖᔠ*᪀ᓄÙᑣr7ÛÎÜᙽÐÑ;Þß⌕àru஺A)ÜᙽḄᑁá¨⌕ÐVâ,EᔜÜᙽIḄ὚ᔠ¨⌕ÐVåB)ÜᙽḄᑁá¨⌕ÐVâ,EᔜÜᙽIḄ὚ᔠ¨⌕ÐVæC)ÜᙽḄᑁá¨⌕ÐVã,EᔜÜᙽIḄ὚ᔠ¨⌕ÐVæD)ÜᙽḄᑁá¨⌕ÐVã,EᔜÜᙽIḄ὚ᔠ¨⌕ÐVår8ᑡ³´Ḅ
ru஺Aç
É%BÉ%[Ô¡è8jkéêḄ▲ᑴ

27CÉ%ì
í`î
ᱥᳮí`DÉ%
ஹᦪ}ñᐵᦻ᫏Ḅóᔠr9ᦪ}Þßឋ
ᦪ}ôᢈöḄ÷⌕ᱯùúᡠûᦪ}Þßឋ
ᢣru஺Aᦪ}Þß~üB¡ýḄᦪ}þ~üᙠ¡ýḄᦻ%C¡ýḄᦪ};þNḄNᵨᡠÎᵨD'ÿ
10ᵨ᪛᪀⊤ὶḄ஺AᐵBCD!"
11ᙠ$%⃩'()*+,"-.⌕0᣸2"34!563+,"ᦈ89⌕:ᜓ<=ᦈ8ᕒ:ᔠ@A+ᐳCDᵨ2ᝅᦈ8FᜓGHIJK஺ᙠᦪMN*+OP22ᐵḄA"HI"R"ᦈ89"ḄᐵB"ᦈ89"R"ᦈ8ᕒ"ḄᐵC"34"R"ᦈ8ᕒ"ḄᐵD"ᦈ89"R"Fᜓ"Ḅᐵ12ᙠᦟT⊤*+᝞V⌕WXYZG"ᦟᣴ"ḄᦟT+ᡠ]ᵨḄᐵ^_A⌱aBᢗcCὶdDeᯠὶd
13ᙠSELECTgh*DᵨORDERBYGiᢣkAlmḄ⊤BlmVḄnoClmḄᩩqDlmḄr.14ᙠᦪM⊤*+ᢣkr.lWᓛ:⚗+ᢥvw"lWxyᣚ”|᪾*ḄF~ḄVAkᔊr.*ᒹir"4”ḄBkᔊr.G"4”ḄCᔠlmᑁḄ2ᩩDᔠlmᑁḄᡠᨵ15“ᦪᳮ"ᦪMN*ᨵ⊤ஹ)⊤x⌱⊤+Giᨵᦔᙢ᧜⊤*ᦪMḄὶ+ᙠᦪMN-¡F~A¢£6Bᨵᦔឋ¥ᑣC§¨D⊤Ḅᐵ
16vᑡSQLlmgh*+Rv☢lmF«¬wᡠḄlmV®ḄASELECT¯=+ឋ°+ᡠO▾+ᔊFROMtStudWHEREឋ°="᝕"ANDᡠO▾IN
"03","04"BSELECT¯=+ᔊFROMtStudWHEREឋ°="᝕"ANDᡠO▾IN
"03","04"CSELECT¯=,ឋ°+ᡠO▾,ᔊFROMtStudWHEREឋ°="᝕"ANDᡠO▾="03"ORᡠO▾="04"DSELECT¯=+ᔊFROMtStudWHEREឋ°="᝕"ANDᡠO▾="03"ORᡠO▾="04"
17᝞VᙠᦪMN*¶ᨵC=Ḅ⊤+⌕·(lm⌚¹ºᩭḄ⊤+¡¼DᵨḄlm½Aᑤ◀BÀÁCᡂ⊤DÃÄ
18ᩩq"Not@ÅÆ2000”ḄÇA⌱a@ÅÆᜧP2000ḄB⌱a@ÅÆÉP2000ḄC⌱a◀i@ÅÆᜧP2000᜜ḄD⌱a◀ir.@ÅÆ᜜Ḅr.+ËᜧP2000Ḅ
19AccessᦪMN*+GiÌᢝ⊤Ḅᐵ+⌕ÎᙠÏ⊤*ÐᦋÒᐵ-+Ó⊤ÒᐵÔ-Ãᦋ஺GÕ◤⌕kÇ×᯿Ù᦮ឋᐵḄAÛὶÃÄÒᐵr.BÛὶᑤ◀Òᐵr.CÛὶÐᦋÒᐵr.DÛὶÜᐭÒᐵr.20᝞VÞᐭßṹF~G"L",ᑣᙠÞᐭᦪMḄ-᎛+¼~!âdãḄᔠÞᐭ

28AäåÞᐭræᡈᦪrBâÞᐭræஹᦪrᡈèéCäåÞᐭræAêZDëìí21kÇr.¢£6ḄÇAîD¼r.GèBᐕðr.Ḅ6$Xñ"óCᙠôÞᐭᦪMõöe÷øùḄᦪ6Döe÷úÉᑏræüᣚGᜧᑏræ
22ᙠý!+F~þqCommand஺GâÿḄ
ឋACommando.ColoreBCommando.CaptionCCommando.EnabledDCommandO.Visible23ᦪᦪᐭḄABᦻ᪾C᪗Dᢥ24SQL!"ḄA#⊤B%&'(C⌱*'(Dᦪ+,'(25-ᵨ/Ḅᦪ012Aᦪ⊤BC/D#⊤26ᙠ4ᑡᐵ7/89ᙽḄ;<=>?@ḄA9ᙽABCDᵨḄEᦪBFG+,/HI⌱*ᡈKLᦪC/ᡈ9ᙽMᡈ#⊤NḄOPṹD/HIRSḄᦪ012>HITURSḄ%&V&27VBABCWBᑴḄYZA[Cᑴ8ᑖ]ᑴB[Cᑴ8^_ᑴC^_ᑴ8ᑖ]ᑴD[Cஹᑖ]8^_ᑴ28abcdS=Ḅe2fbcghij4fbcḄkbcdEᦪAMid$
s,2,4BLeft$
s,2,4CRigth
s,4DLeft$
s,4
29DimNewArray
lOAsIntegerḄm,A+,nof᦮qrstu10Bv+,n10f᦮ᦪ᪀ᡂḄᦪyC+,n11f᦮ᦪ᪀ᡂḄᦪyDzᦪyḄe10ᐗ|}~u᦮30ᙠAccess=>᝞⌕ᜐᳮᐹᨵᩖᩩᡈ^_᪀Ḅ%&>ᑣ-ᵨḄ12AB9ᙽC/D#⊤31
7VBATUḄBC┯ᜐᳮḄ᪀AOnErrorThen᪗BOnErrorGoto᪗COnErrorResumeNextDOnErrorGoto032ADOḄm,Agᦪ0ᵨBBᦪ012CV᝱0DActiveᦪ1233⌕ᙠkGBProclDᵨfqrḄ>4ᑡGB+,=ᨵᦔḄASubProcl
n,mBSubProcl
ByValn,mCSubProcl
n,BYValmDSubProcl
ByValn,ByVaim344ᑡ¡¢ZḄ^_}£=>^_¤ᦪᨬ¦ḄAa=5:b=8Ba=5:b=8Ca=5:b=8Da=5:b=8a=a+la=a+lDoUntilabLoopWhilea

29DimbAsIntegerDimiAsIntegerForj=lTo10num¨lnputBox
"©ᐭᦪ§"Jᐭ”,1Iflnt
num/2=num/2Thena=a+lªseB=b+1EndIfNextIMsgBox
Ҥa="&Str
a&:Str
bEndSubINOᡠ¬ᡂḄA1ᐭḄ10fᦪ®¯°8B1ᐭḄ10fᦪ®ᔜ²Ḅ³ᦪ>ᯠµ¶¯°C1ᐭḄ10fᦪᑖ·¸£ᨵ¹f᦮ᦪ>ᨵ¹fº᦮ᦪD1ᐭḄ10fᦪᑖ·¸£ᨵ»f᜻ᦪ>ᨵ»fᏔᦪ¨ஹ¾¿⚪Á¿2ᑖ>ᐳ30ᑖv1£ÃÄÅÆᵫÈÉ£ÃÄὶËᡂ>uÌÍÅÆ=£ÃÄÎḄᦪÏᣚ>⌕®£ÃÄᙠÏᣚᦪḄGB=⍳ÒÓḄÅÆÔÕ>ofÅÆÔÕᵫÖஹ8×CØf⌕|yᡂ஺2ᵯkÛBCᔣÛÝÞᘤà〈Û×>-ᵨḄÔÕo317âãḄoyäw={5,6,8,12,FGåæçÃÖ®ãḄ᡽ᐙ¨ê᪛Ḅìᩗ᜜ïðñòóuo4}ᦣᑡ⊤Ḅᙢᙬ¿Îu0ᑮ18,ᦣᑡEᦪuh
k=kmodl9,ᵨøឋ'Öùúûü஺ýa¿Ḅᦣᑡ⊤gh>þ¤ÿᐭᐵṹ190,89,217,75,ᑣᨬᐵṹ33Ḅᙢᙬ஺
5᣸ᐵṹᑡ
25,18,9,33,67,82,53,95,12,70,⌕ᢥᐵṹ⌴Ḅ᣸•ᐵṹᑖ!ᐗ#Ḅ$%᣸&'(ᡂᐵṹ33*+ᑮ-/0஺26ᙠAccess4⌕ᙠ56ᩩ849:;ᦪ==>ᓛ@ABᵨḄD@>E27ᙠFGᡂH⊤4᝞K◤⌕᪷NOᐭḄFGPQ56FGḄᡂH◤⌕BᵨḄE___________5S.
8lnt
-3.25ḄUKE஺29ᑖVU᪀ᙠX᡻Z᪷N⌱\᡻]^ḄX_`஺210ᙠVBA4abcdḄcd᪗fEo
11ᙠgb4ᨵQCommandlḄijᢥkClickl8Ḅmṹ᝞noPrivateSubCommandl_Click
f=0Forn=lTo10Step2f=f+nNextnMe!Lbl.Caption=f

30EndSubᓫqijᢥk᪗rstḄUKE஺(12)ᙠgb4ᨵQCommandl2ḄijᢥkClickl8Ḅmṹ᝞noul8ᡠ(ᡂḄwxEoyz{|OᐭḄ10ᜧ~0Ḅ᦮ᦪ6ᐸ4ḄᨬᜧḄOᐭ/0஺Nwx⌕X⊡ᐙ(᦮஺PrivateSubCommandl2_Click()max=0max__n=0Fori=lTo10num=Val(lnputBox(''Oᐭ"&i&"ᜧ~0Ḅ᦮ᦪo”))If(num>max)Thenmax=___________max__n=___________EndIfNextiMsgBoxJᨬᜧ“&max_n&“OᐭḄ"&max)EndSub(13)nᑡXḄwxEoᦪNᦻ84஻FG⊤஻ḄFG“஻loᙠXḄᙢ¡¢ᑏ〉Ḅ_`BX¥¦ᡠ◤Ḅwx஺PrivateSubSetAgePlusl_Click()DimdbAsDao.DatabaseDimrsAsDAO.RecordsetDimfdAsDAO.FieldSetdb=CurrentDb()Setrs=db.OpenRecordset(“FG⊤஺Setfd=rs.Fields(“஺DoWhileNotrs.EOFrs.Editfd=___________rs.UpdateLooprs.Closedb.CloseSetrs=NothingSetdb=NothingEndSub_20084ᨴᐰ©ª«¬®ὃ°±®²°°ᔁ´ὃµᫀஹ⌱\⚪(1)C)(2)A)(3)B)(4)B)(5)A)(6)D)(7)B)(8)C)(9)D)(10)C)(11)D)(12)A)(13)B)(14)B)(15)D)(16)B)(17)C)(18)C)(19)A)(20)C)(21)C)(22)D)

31(23)B)(24)A)(25)A)(26)D)(27)D)(28)A)(29)C)(30)B)(31)A)(32)D)(33)A)(34)C)(35)D)±ஹ¢⚪(1)O(2)16(3)24(4)ᐵ¹(5)ᦪNº»_¼(6)#(7)´ᦪ(8)-4(9)ᩩ8⊤½¾Ḅ(10)Variant(11)25(12)num(13)i(14)fd+1(15)rs.MoveNext(35)ᙠgb4ᨵijrun35,Ḅl8mṹ᝞noprivatesubrun35_enter()DimnumasintegerDimaasintegerDimbasintegerDimIasintegerFor1=1to10Num±inputbox(஻OᐭᦪNoOᐭ஻,1)Ifint(num/2)=num/2thenA=a+1ElseB=b+1EndifNextIMsgbox("¿UK:a="&str(a)&",b="&str(b))Endsub¿l8ᡠ(ᡂḄwxEAOᐭḄ10ᦪNÁBOᐭḄ10ᦪNᔜÃḄÄᦪᯠÆÁCOᐭḄ10ᦪNᑖÇȪᨵÉE᦮ᦪᨵÊEË᦮ᦪDOᐭḄ10ᦪNᑖÇȪᨵÊE᜻ᦪᨵÊEᏔᦪ20089ᨴᐰ©ª«¬®ὃ°Access±®²°°ᔁஹ⌱\⚪(ÎÏ⚪2ᑖᐳ70ᑖ)nᑡᔜ⚪A)ஹB)ஹC)ஹD)Ñ⌱⚗4Óᨵ⌱⚗EÔÕḄ஺ÔÕ⌱⚗Öᑏᙠµ⚪ᓱØ/0µᙠ°ᔁ]Ùᑖ஺(1)᪘ḄÛÜÝ᝱஺¦ᐗ#1ஹ2ஹ3ஹ4ஹ5ஹAஹBஹCஹDஹEßᐭ᪘ᯠÆß᪘ᑣᐗ#᪘ḄEA)12345ABCDEB)EDCBA54321C)ABCDE12345D)54321EDCBA(2)nᑡà4ÔÕḄEA)áâãᑡᨵãᜮãåæᢣ┐éêáâãᑡEËëឋU᪀B)ᙠáâãᑡ4Ó◤⌕ãᜮᢣ┐íxî᧜ãᑡ4ᐗ#Ḅð᝱aᓄòóC)ᙠáâãᑡ4Ó◤⌕ãåᢣ┐íxî᧜ãᑡ4ᐗ#Ḅð᝱aᓄòóD)áâãᑡ4ᐗ#ḄᦪEᵫãᜮᢣ┐ãåᢣ┐ᐳ^õº(3)ᙠö÷nḄᨵëឋ⊤4±ᑖ56ᨬøòón◤⌕ùúḄßᦪEA)0(n)B)O(n2)C)O(log2n)D)O(nlog2n)(4)nᑡà4ÔÕḄEA)ûüU᪀ḄûüºEýþḄÿ
᪀Ḅ
•ḄB)
᪀┐ឋ᪀
᪀┐ឋ᪀

32C
᪀
ᨵ⊤
᪀
ᨵ⊤D
᪀
᪀⁚ḕ
5ᦪ!"#$%ᨵ&ᜮḄ(⊤)ḄA*ᑴ"B,-./0C1ᙽ3ᵨDᦪ!"6ᙠ6.78$◤:ᑖ᪆▤(>?@ᵨḄAᐹAN-S#BDFD#CPAD#DC"C#ADEឋBᑖFឋCG᝱ឋD᪗JKDឋ
7ᙠ☢ᔣNOP$QR“N”UVᱯXḄ,஺A-EឋBᑖFឋCG᝱ឋD᪗JKDឋ8D[\>]G^_`ᑣbc[\d_`eḄὶgADDBDGCGDDGG9ᙠᦪ!hᳮᢈk8lḄm^▤($ᦪ!ᐳoᨬqḄArAhᳮ▤(Bᦻ.gt▤(Cᦪ!ugt▤(Dm^▤(vw
10ᨵm^ᐵgRஹSdT᝞{|ᵫᐵgRdS~ᑮᐵgT,ᑣᡠ@ᵨḄAᓱBCDᯠ
11Accessᦪ!u$⊤Ḅᡂ,஺A(dBd(CdcD⊤d(12(Ḅᐭṹ"####-######",¢(£¤Ḅᐭᦪ!,஺A0755-123456B0755-abcdefCabed-123456D####-######
13ᦪ!⊤¥¦§⌱©ª«,஺A¬)®ᩩ.Ḅ°®ᩩ.Ḅ±⊤$ᑤ◀B¬)®ᩩ.Ḅ°´µ¶
ᙠD^·⊤$C¬)®ᩩ.Ḅ®ᩩ.Ḅ¸◚ºD°®ᩩ.Ḅd®ᩩ.Ḅᑖ»^⊤¥¦¬)
14ᙠ¬)«¼᝞«⌕°ᦪ!⊤$Ḅ"¾¿"(À¬)“Á`ᙢ">ᙠÃÄ#$ᦋ0A᣸B(Cᩩ.D¬)
15ᙠAccessḄᦪ!⊤$ᑤ◀Dᩩ¸ᑤ◀Ḅ,஺A>?ឮÈᑮÉᩭB¸ឮÈᨬËDᩩC¸ឮÈÌDᩩDឮÈ
16ᙠAccess$Í᯿Ï᦮ឋÑᑣᒹÓ,஺AÔ·ÑᑣBÑᑣCᑤ◀ÑᑣDÕᐭÑᑣ17ᙠᦪ!u$Ö×ØÙḄÚ⌕ªᵨ,஺A⁚ḕ
BÛÜÝÞCßRhᳮD■áᦪ!âᜫ18ᎷᨵDᦪ!|Aå800ᐗçè“éê"ឋë"ᵱ"ᙠ{ᑡîï⊤ð$«"Ꮇ"Ḅ,஺AAå800ANDçè="òᦟ"ORçè="éê"Bឋë="᝕"ORNOTçè="òᦟ"CAå=800ANDçè="éê"ORឋë="᝕",DAå800ANDçè="éê"ORឋë="ᵱ'',19ᙠÖ×¼⌕§⌱Á#ö÷ø“T01"ᡈ"T02"Ḅ>?ᙠÃÄ#úᑣ¦$ᐭ,஺

33A)"TOI"or"T02"B)"TOI"and"T02"C)in("TOI"and"TO2")D)notin("TOI"and"T02")(20)ᙠAccessᦪ!u$@ᵨᔣûüÖᐸᦪ!>?ᩭ()஺A)
⊤B)⊤C)⊤Ḅ-ᑖD)⊤ᡈ(21)ᦪᙠᑣᦪᦻ"#$ᙠ()஺A){}B)()C)"D)<>(22)ᙠ+ᑡ-./SELECTTABL*FROMTABIWHEREInStr(01ᔊ3"4ᳫ")<>06789Ḅ-.:()oA)SELECTTABI.*FROMTABIWHERETABI.1ᔊLike"4ᳫ"B)SELECTTABL*FROMTABIWHERETABI.1ᔊUke"*4ᳫ"C)SELECTTABL*FROMTABIWHERETABI.1ᔊLike"*4ᳫ*"D)SELECTTABI.*FROMTABIWHERETABI.1ᔊLike"4ᳫ*"(23)ᙠAccessᦪ<=>⊤?@ᵨḄSQL-.:()஺A)CreateTableB)CreateIndexC)AlterTableD)CreateDatabase(25)⌕ᦋDEFGᦻ"᪾IJḄKLᑁN$ḄOឋ:()஺A)᪗⚪B)ᩩJC)IJᩭUD)VWU(26)ᙠ+ᡠḄEFGᨵ᪗ᨵ"Z"[᪵Ḅ]^ᢥ`(abcCommandl)deᦻ"᪾(abctextl)஺fᓫh]^ᢥ`;DjsumḄkZᙠᦻ"᪾ᑁlmḄnṹ:(A)Me!Textl.Caption=sumB)Me!Textl.Valuc=sumC)Me!Textl.Text=sumD)Me!Textl.Visiblc=sum(27)Accessp⊤qrḄᦪ

34B)DoUntilᩩJFLoopC)DoUntilFLoopᩩJD)DoFLoopWhileᩩJ(33)ᙠ}~ᨵ-.:PrivateSubGetData(ByVaidataAsInteger)ᐸ஻ByVai஻Ḅ~:()oA)¢k£ᵨB)¢ᙬ£ᵨC)¥ᦪD)▭ᦪ(34)ᙠEFᨵ]^ᢥ`(abcrun34),qḄ§Jnṹ᝞+¨PrivateSubrun34__Click()sum=0Fori=10To1Step-2sum=sum+iNextiMsgBoxsumEndSub©tG§JḄKL:()஺A)10B)30C)55D)ᐸª(35)ᙠEFᨵ•abcrun35Ḅ]^ᢥ`ᓫh?ᢥ`¬®¯ᦈ±²ᡂ´᝞KᐭḄᡂ´¶ᙠ0ᑮ100ᑖ¸¹ᑣ⌕º»>Kᐭ¼᝞KᐭḄᡂ´lmᑣ½ᐭ¾¿ᜐᳮ஺run35]^ᢥ`ḄClickḄ§Jnṹ᝞+¨PrivateSubrun35_Click()DimflagAsBooleanresult=0flag=TrueDoWhileflagresult=Val(lnputBox(”ÃKᐭ±²ᡂ´Kᐭ”))Ifresult>=0Andresult<=100ThenÄseMsgBox"ᡂ´Kᐭ┯û>Kᐭ”EndIfLoopRemᡂ´Kᐭlm¾ḄnṹᶍEndSubᨵÆÇᜐ◤⌕Éᐭᩩ-.@Êᡂᐸ67஺+ᑡ⌱⚗┯Ḅ-.:()஺A)flag=FalseB)flag=NotflagC)flag=TrueD)ExitDoÍஹÉÆ⚪(ÎÆ2ᑖᐳ30ᑖ)ÃÎÆḄlmÐᫀᑏᙠÐ⚪ᓱூ1௃Ö[151×ḄØÙGÐᙠÚᔁG¶Üᑖ஺(1)q+ᑡÍÝ᪛½ßᔊḄூ1௃«

35(2)ᢥ᯿âJãÚḄäåæçᡂãÚᙠூ2௃ãÚ¸¾½஺(3)âJèé⌕êᒹìíîஹèᐹdᐸூ3௃ðᢝâJòḄᔜ⁚ḄIᑴdõᳮ஺(4)ᦪ<=ᒹìᭆ÷ஹூ4௃dᱥᳮ஺(5)ᙠÍù⊤ᐗûḄூ5௃¶7üᑖᡂýþḄᦪ<⚗஺(6)ᙠᐵᦪḄᐵᨵ⌱ஹᢗ஺(7)ᦪ⚓ᨵ⚓஺(8)!ᡠ#Ḅ$%&ᑴ(᪀*+o(9)Accessᵨ-᡻/ᢣ1ḄSQL23Ḅ4567஺(10)89ᙠ;ឋ=>?@ABḄ;ឋ;-"☟᝱"?@FGᙠHṹ=>ᵫVBAHṹ?@ABḄ;ឋKL""?@FG஺(11)ᙠ=MNOPQ7*+Command1ḄRSᢥUᯠWXᑏ᝞![\Hṹ]PrivateSubCommandl_Click()DimxAsInteger;yAsIntegerx=12:y=32Callp(x,y)MsgBoxx*yEndSubPublicSubp(nAsInteger,ByVaimAsInteger)n=nMod10m=mMod10EndSub=Mᡭ_/WᓫaRSᢥUᑣcd᪾Ḅfg(h+o(12)ijᦪᑡḄ⌴mno᝞!]f(n)=lpn=0lqzf(n)=f(n-l)+f(n-2)?pn>lqᑣᢥ᯿⌴mnotuvᑮᦪᑡ:1,1,2,3,5,8,13,21,34,55……஺z⌕|}~fᐭn,fgA⚗Ḅ஺᝞pfᐭn+8qfg34஺%᝞!⊡ᐙ᦮஺PrivateSubrunll_Click()f0=lfl=lnumVal(lnputBox("fᐭPQᜧ-2Ḅ᦮ᦪ:"))Forn=2To___________f2=___________fO=flfl=f2NextnMsgBoxf2EndSub(13)zᨵᵨᡝ☢᝞!]=M7+usernameḄᦻ᪾ᵨ-fᐭᵨᡝ77+passḄᦻ᪾ᵨ-fᐭᵨᡝḄṹ஺

36ᵨᡝfᐭᵨᡝ7ṹWᓫa஻஻7+loginḄᢥU7+“ṹ⊤஻Ḅᦪ⊤,᝞hṹ⊤ᨵᢣ1Ḅᵨᡝ7ṹᑣ᪷ᵨᡝḄ஻ᩗ▲஻ᑖ¤¥ᐭ஻¦ᳮᕒ=M஻஻ᵨᡝ=M஻]᝞hᵨᡝ7ᡈṹfᐭ┯«ᑣ¬gḄ®#¯d஺ṹ⊤Ḅ°±ᙳ+ᦻ³´ᦪ᝞µ஺ᓫa”஻ᢥUWᐵḄ[\Hṹ᝞!⊡ᐙ᦮஺PrivateSublogin_Click()DimstrAsStringDimrsAsNewADODB.RecordsetDimfdAsADODB.FieldSetcn=CurrentProject.Connectionlogname=Trim(Me!uscrname)pass=Trim(Mc!pass)IfLen(Nz(logname))=0ThenMsgBox”fᐭᵨᡝ7“ElselfLen(Nz(pass))=OThenMsgBox"fᐭṹ”Elsestr="select*fromṹ⊤whereᵨᡝ7='"&logname&andṹ"&pass&"rs.Openstr,cn,adOpenDynamic,adLockOptimistic,adCmdTextIfThenMsgBox”ºᨵ»Qᵨᡝ7ᡈṹfᐭ┯«¼½fᐭ“Me.username"“Mc.pass=""ElseSetrs.Fields(“ᩗ▲”)Iffd”¦ᳮᕒ“ThenDoCmd.CloseDoCmd.OpenForm"¦ᳮᕒ=M"MsgBox”¾¿À,¦ᳮᕒ”ElseDoCmd.CloseDoCmd.OpenForm”ᵨᡝ=M”MsgBox“¾¿ÁᵨÂᕒ¦ᳮ”EndIfEndIfEndIfEndSub2009Ã9ᨴᐰÆÇÈÉÊὃÌÊÍÌAccessÌᔁPஹ⌱⚪(ÐÑ⚪2ᑖᐳ70ᑖ)

371.!ᑡᦪ(᪀;-ÓÔឋ(᪀ḄÕÖ஺A.×ØÙᑡB.ÚÛÙᑡC.Ü᪛D.ÚÛ᪘2.!ᑡᦪ(᪀ßàᢥ᯿"ᐜ¥Wg"âᑣãäᦪḄÕoA.×ØÙᑡB.᪘C.ÙᑡD.Ü᪛3.A-×ØÙᑡ!ᑡæçḄÕÖ஺A.Ùᜮᢣ┐ê1ëìḄB.Ùᜮᢣ┐P1ᜧ-Ùíᢣ┐C.Ùᜮᢣ┐P1Ñ-Ùíᢣ┐D.Ùᜮᢣ┐tuᜧ-Ùíᢣ┐îtuÑ-Ùíᢣ┐4.GḄïðñᩖóᢣÕÖ஺A.Gᙠ᡻/ô%ᡠ◤⌕ḄÇÈãöïðB.GᡠᜐᳮḄᦪøC.G%Ḅ2ùᡈᢣSᩩᦪD.Gᙠ᡻/ô%ᡠ◤⌕Ḅûqü6ᓫᐗᦪ5.þ\?Çᑜᑖ
ᙽḄᑣ஺A.ᑁ὚ᔠB.ᑁ὚ᔠC.ᑁ὚ᔠD.ᑁ὚ᔠ6.ᑡ⌱⚗᪀ᓄ!ᑣḄ஺A."#$B.%⚔ᔣC.
ᙽᓄD.⌲)*+7../0123Ḅ4᝞64.A.N-S4B.PAD4C.74D.E-R48.ᦪ9:;ᳮ=>஺A.?@=>Ḅ•BᑖCᙠ?@=>EᢝḄ=>./C.-HIJ=>D.•H?@=>9.ᙠE-R4Kᵨᩭ⊤OPQὶ=Ḅ4S஺A.TᙊSB.VSC.WSD.XYS10.ᨵXᐵ=R,S,T᝞\RABCa12b21c31SABCd32TABCa12b21c31d32ᐸᐵ=Tᵫᐵ=R_S`abH?@cᑮK6?@efA.⌱gB.ᢗiC.jD.k11Accessᦪ9:Ḅ᪀lmAᦪ9:;ᳮ=>noᵨn⊤Bᦪ9:nᦪ9⊤pqrstuCᦪ9⊤1qrnᦪ9⚗nᦪ9Dᦪ9⊤qrftu12bw✂ᨵᓫz{_|z{}H~Kᢥ᯿Kᐭ6w✂Ḅ~z⌕q஺w✂ᦪ9:ᨵ~⊤{K......_~z⊤KKᩭK……f᧜~zᐭ~ḄK~⊤~z⊤{Ḅὶ=of

38Aὶ=Bὶ=Cὶ=D¡ὶ=13ᙠ¢3⊤⌕£¤ᡠᨵ¦§¨20©ª«Ḅᵱ3KoᵨḄᐵ=®¯A⌱gBᢗiCὶ°D±²
14ᙠAccessK"ᵨ³ᐭ´☢Ḅ¶A·QB¸⊤C£¹D⊤
15ᑡ⌱⚗KAccessᦪ9º»ḄAᦪtBᦻ½C¸⊤D¾{/ÀÁ
16ᑡᐵOLE¶ḄÂÃKÄÅḄAᵨ³ᐭᦻ½ᦪ9BᵨᜐᳮÇÈÉ°ᦪ9Cᵨ3ᡂ%ËIᦪ9DᵨÉ°ᡈᑁÍWindowsEᢝḄ¶17ᙠᐵ=·ÎK|Ï}⊤{ḄаÑKÒÓÔAᦪ9⊤ᑖ᪆ᔣÖBᦪ9ᐵ=4·ÎCаÑ×1ØᓄDIÙᐵ=Ú᪾
18ᙠ⊤¾KܳᐭÝṹឋàf1LLL",ᑣáâ°ᦈḄ³ᐭAabedB1234CAB+CDABa919ᙠᦪ9⊤ä⌱qrK?@ḄåAæçèä⌱ᩩ/Ḅqrêᐭë⊤Bæçèä⌱ᩩ/Ḅqrìíᑮ⊤Cæçèä⌱ᩩ/ḄqrîOᙠïðñDᵨçèä⌱ᩩ/Ḅqròᦋô⊤õêᙠḄqr20õö"ø▅"⊤ᨵ"ø▅I"ஹ"¢"_"ø▅4ûI”ýtuK¢3ø▅½û3ᡂᩩqrK⌕*ᢥ¢3¢>Ó¢3Ḅø▅mᦪKᑡSQLþÿ
ḄA)Select,countfrom▅B)Select,countfrom▅groupbyC)Select,sumfrom▅D)select,sumfrom▅orderby
21ᙠᦪ
ᨵ“"⊤"▅"⊤
ᐸ""⊤ᨵ""ஹ""
"▅"⊤ᨵ"▅!"ஹ""஺#⌕%&'ᨵ(Ḅ)*
+,-ᐸ""""
ᑣḄ/0122234567
89✌ᐜ᡻=Ḅ>?(@ALoadBClickCUnloadDGotFocus23ᙠ12A⊤Ḅ(@
᝞C⌕D=Eᑴᑖ⚓
IJᵨḄLᐹN᪗24PᑡRS
〉ᔠJᵨVḄAWᦋᦪ⊤Y᪀B[\]^_(@CᡭaᡈᐵdA⊤efDᜐᳮA⊤┯j
25᡻=klmMsgBox"AAAA",vbOKCancel+vbQuetion,"BBBB"no
p&Ḅ᪾A)᪗⚪s"BBBB"ஹ᪾ᑁu-vs“wx"ஹu-ᑁys"AAAA"B)᪗⚪s"AAAA"ஹ᪾ᑁu-vs"wx"ஹu-ᑁys"BBBB"C)᪗⚪s"BBBB”ஹ᪾ᑁu-vs"z"ஹu-ᑁys"AAAA"D)᪗⚪s"AAAA"ஹ᪾ᑁu-vs"z"ஹu-ᑁys"BBBB"
2656ᨵ3{|}ᢥ
ᑖ|sCommandஹCommand2Command3஺ᓫCommandlᢥ7
Command?ᢥsᵨ
Commandsᢥs஺PᑡCommand1Ḅᓫ>?(@
ḄAprivatesubCommandl_Click

39Command2.Visible=trueCommand3.Visible=falseB)privatesubCommandl_Click()Command2.Enable=trueCommands.Enable=falseC)privatesubCommandl_Click()Command?.Enable=trueCommand3.Visible=falseD)privatesubCommandl_Click()Command2.Visible=trueCommands.Enable=false(27)ᵨvSᨬ4{vḄᦪA)Left(S,4)B)Left(S,1,4)0Leftstr(S,4)D)Leftstrম1,4)(28)56CaptionឋḄSᵨA)^56Ḅ᪗⚪B)^56ḄC)^56ḄD)^56Ḅ6(29)Pᑡ
┯jḄ஺A)V¡ᡂ£{RSB)¤¥£{V¦ᡂ{V¦C)¤ᵨ!@Ḅ§¨ᩭª«VD)V|}•ᵫ4SRS¯ᦪ¦ᡂ(30)Pᑡ@ᦪ
VBAḄA)°᦮B)²³C)6D)ᢣ┐(31)Pᑡᦪ¦¶·kl
ḄA)DimA[3,4]AsIntegerB)DimA(3,4)AsIntegerC)DimA[3;4]AsIntegerD)DimA(3;4)AsInteger(32)ᙠ56ᨵ•{ᦻ¹᪾TestL!ᑏ>?»ṹ᝞PmPrivateSubForm_Click()X=val(lnputbox("½ᐭxḄ¿஻))Y=1IfXoOThenY=2Textl.Value=YEndSubᡭa56Á=o
ᙠ½ᐭ᪾½ᐭ᦮ᦪ12,ᦻ¹᪾Textl½&ḄYCA)IB)203D)4(33)ᙠ56ᨵ{|}ᢥCommandl{ᦻ¹᪾Testi,!ᑏ>?»ṹ᝞P:PrivateSubCommandl_Click()ForI=1To4x=3Forj=lTo3Fork=1To2x=x+3NextkNextjNextITextl.Value=Str(x)

40EndSubᡭa56Á=o
ᓫ|}ᢥ
ᦻ¹᪾Textl½&ḄYCA)6B)12C)18D)21(34)ᙠ56ᨵ{|}ᢥCommandl,!ᑏ>?»ṹ᝞ÃmPrivateSubCommandl_Click()DimsAsIntegers=p(l)+pফ+pব+pভdebug.PrintsEndSubPublicFunctionp(NAsInteger)DimSumAsIntegerSum=0Fori=1ToNSum=Sum+1NextiP=SumEndFunctionᡭa56Á=o
ᓫ|}ᢥ
½&ḄYCA)15B)20C)25D)35(35)Ã.ᑡ(@ḄÈmÉ(efÊËÌÍ56ḄRecordsetឋ)*ÎÏᵨ
Ð᪾½&)*ÎḄ)*(ᓽ56)*Ò){ᦪ஺SubGetRecNum()DimrsAsObjectSetrs=Me.RecordsetMsgBox——EndSub@ÓÔÕᜐIÖᑏḄA)CountB)rs.CountC)RecordCountD)rs.RecordCount×ஹÖÔ⚪(ØÔ2ᑖ
ᐳ30ᑖ)(1)Ú×Û᪛ᵫ5{Ýs2ḄYÞ¤ß3{Ýs1ḄYÞ
ᑣà×Û᪛ᐳᨵூ1௃{YÞ஺(2)@Óã@NḄäå᪾⊤-Ḅூ2௃஺(3)æ?aç(@è⌕ᑖs◤êᑖ᪆ஹ12ஹ!ṹìíîï{▤ñ
ᐸூ3௃▤ñò”æ?◤êôõö·"஺(4)ᙠᦪᢈø
ª6ÎnùḄὶ8¤eᡈe£Ḅ
ûü"""⌱þ@"Ḅὶ8sூ4௃஺(5)ÿᕒ
ᒹஹஹឋஹ஺ᐸᐵḄ!"5#஺(6)Access$⌕&ᦪ()Ḅᦪ(*+ᑮ-./01ᵨḄ34!ூ6௃஺(7)ᙠ9:;</⌕&ᢣ>Ḅ?@ABCDE?@/0FGᵨḄHIJKL!ூ7௃஺(8)Dᦻ᪾ḄᑁP*QRᦋTU/V*ḄWXY!ூ8௃஺(9)ᙠVBAZ[\Ḅ]^Gᵨ_ᦪூ9௃஺(10)⌕&`aᦪxbᶇdefᦪ/$1ᵨInt_ᦪgᡂ/ᑣ⊤klC10஺(11)ᙠmnᨵd9ᦻ᪾ᑖCTextlᑭText2,9KLᢥsCommand"tᑏ᝞wd

419WXyzPrivateSubCommandl_Click()a=Textl.Value+Text2.ValueMsgBoxaEndSubPrivateSubForm_Load()Textl.Value="஻Text2.Value=஻஻EndSubz|}~U/ᙠᦻ᪾Textlᐭ78,ᙠᦻ᪾Text2ᐭ87,ᓫKLᢥs/᪾ḄC[11]஺(12)ᜧᝄᨵ79UCe⌱ᡭᑖ/ᣵ9ᨬᑖ9ᨬᑖ/ᐸ59ᑖᦪḄᙳCFὅḄᨬᑖ஺¡¢gᡂ£>Ḅ¤¥஺Subcommandl_click()Dimmark!,aver!,i%,maxi!,mini!aver=0Fori=1To7Mark=lnputBox("ᐭ¦஻&i&஻eCḄᡭᑖ஻)Ifi=1thenmaxi=mark:minl=markElseIfmarkmaxithen[12]EndIfEndIf[13]Nextiaver=(aver-maxi-mini)©MsgBoxaverEndSub(13)஻ªQᡂ«஻⊤¬ᨵ(ª//ᦪª/᜜¯/°±/²ᑖ)஺wᑡz|Ḅ¤¥!´µ¶ªQḄ²ᑖ(²ᑖ=ᦪª+᜜¯+°ஹ¹)஺ᙠz|¢ºᜐ¡ᐭ〉D¯½/Gz|a¾ᡠ◤⌕Ḅ¤¥஺PrivateSubCommandl_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimzongfenAsNewADODB.FileldDimshuxueAsNewADODB.FileldDimwaiyuAsNewADODB.FileldDimzhuanyeAsNewADODB.FileldDimstrSQLAsSting

42Setcn=CurrentProject.ConnectionStrSQL=//Select*fromᡂ«⊤஻rs.OpenstrSQL,cn,adOpenDynamic,adLockptimistic,adCmdTextSetzongfen=rs.FileldsÁ"²ᑖ”ÄSetshuxue=rs.FileldsÁ"ᦪª”ÄSetwaiyu=rs.FileldsÁ஻᜜¯”ÄSetzhuanye=rs.FileldsÁ஻°±஻ÄDowhile[14]Zongfen=shuxue+waiyu+zhuanye[15]rs.MoveNextLooprs.closecn.closeSetrs=NothingSetcn=NothingEndSub20099ᨴᐰÇ´µÈÉὃËÌÉÍËAccessËᔁὃÏᫀ⌱Ñ⚪1-5CBDAB6-10ACBCD11-15BBAAC16-20DDACB21-25AADCC26-30CAAAD31-35BBDBD¡¢⚪1142ÓÔᑖ᪆3◤Zᑖ᪆4Ö3Ö56ᦪ(×Ø⚓7GOTORECORD8CHARGE9Len10lnt
x*100/10011788712maxl=markaver=aver+mark13notrs.EOFrs.UPDATE⌱ÑIÏᫀCÚ᪆᪛ᙳ!ÜÝឋ᪀2ÏᫀBÚ᪆:᪘!ᐜâᡈâᐜḄÝឋ⊤3ÏᫀDÚ᪆:᝞äᜮᢣ┐ᜧçäèᢣ┐éêäᑡëìíîïðᦪ(R,᝞äᜮᢣ┐fçäèᢣ┐éêòᨵâ~íîïð4ÏᫀAÚ᪆:µóḄ¢ôõᩖ^!ᢣ᡻~µóᡠ◤⌕Ḅᑁï¢ô/ᒹµóz|ᡠᓰ¢ô/ᐭḄùúᦪ(ᡠᓰ¢ô᡻~yzᡠ◤⌕Ḅû᜜¢ô.5ÏᫀBÚ᪆:ýᙽᑁÿᔜᐗḄὶ⌕ᑁᙽḄḄ⌕,὚ᔠ᪵ᙽḄឋ.10"ᫀD$᪆:T'ᵫS⊤ᡈR⊤+Ḅᐗ,ᡂḄ2010.3ᨴ01234ὃ674Access866⚪:ஹ⌱=⚪>?@⚪2ᑖᐳ70ᑖC

43Eᑡᔜ⚪AஹBCஹDGH⌱⚗+Jᨵ:H⌱⚗'LMḄNOLM⌱⚗Pᑏᙠ"⚪ᓱTUVWX"ᙠ6ᔁXZ[ᑖ஺>1CEᑡ]^+LMḄ'A_`anḄᨵbc⊤defgᨬijkE◤⌕ḄmnoᦪanB_`anḄᨵbc⊤de_ᑖfgᨬijkE◤⌕Ḅmnoᦪa
n/2C_`anḄᨵbc⊤de_ᑖfgᨬijkq,◤⌕Ḅmnoᦪa>Iog2nD_`anḄᨵbc⊤de_ᑖfgᨬijkE◤⌕Ḅmnoᦪa>nlog2n>21rḄstᩖ'ᢣA1rḄ᡻esB1rᡠᜐᳮḄᦪ{|C1rb+Ḅ}~ᡈᢣᩩᦪD1rᙠ᡻e+ᡠ◤⌕Ḅ1oᦪ>3ᢥᑖaUᵨஹᥛ>ᡈᐹC஺E☢Ḅ'ABCᦟᳮDᘤ>4>bC6Ḅ'A¡¢ᦋLb+Ḅ┯¥B¦§ᙢ©ªb+Ḅ┯¥C©ª«ᦋLb+Ḅᡠᨵ┯¥DM¬b+┯¥Ḅឋ>5ᦪ{®¯>DFD¯C'Aᭆ⌕±0ḄᐹB²³±0ḄᐹC´᪀ᓄ·rḄ◤¸ᑖ᪆ᐹD☢ᔣ_º·rḄ◤¸ᑖ᪆ᐹ>6»¼ᕜ¾ᑖa¬¿▤Á©▤ÁÃÄ▤Á஺²³±0A¬¿▤ÁB©▤ÁCÃÄ▤ÁDX^ÅH▤Á>7ᦪ{Æᳮ+ÇÈᦪ{ɬ¿Ḅ}Ê'Aᦪ{¬¿}ÊBᦪ{ᳮ}ÊCᦪ{Ë}ÊDᦪ{Ìᑴ}Ê
8ᙠλᳮḄᐵᦪ{Æ+ÐÑ:HλÒÓḄᦪ{ᓫV'AᦻBᦪ{ÆCÖÁD×Ø>9ᦪ{Ʊ0+ᵨE-R¯ᩭÚ^ÒÓ´᪀ÛZÜÝÒÓᙠ012+Ḅ⊤Þßᦪ{Ʊ0ḄA◤¸ᑖ᪆▤ÁBà±0▤ÁCᭆá±0▤ÁDᱥᳮ±0▤Á
10ᨵãHᐵRT᝞EᑣᵫᐵR[ᑮᐵTḄ'A⌱=BᢗèCéD«>11CEᑡᐵᐵᦪ{Æ+ᦪ{⊤ḄÚ^LMḄ'Aᦪ{⊤TêÐᙠὶÛᵨḄᦻëìÐBᦪ{⊤TêÐᙠὶ'ᵨ⊤ë⊤ÞTêḄὶCᦪ{⊤TêZÐᙠὶíᐰDᦪ{⊤ïT_ðTêὶ
12Eᑡ_ᦪ{ñᐭórôᑮõöᵨḄ'Añᐭ÷ṹBᨵᦔឋúᑣCÖÁëûDᦪ{üý
13CAccess+,±WaþÿḄ
AB"ᨵᨵ”CD""
14ᐭṹ
"&"ḄA!ᐭ
"ᡈᦪ
B%⌱'ᐭ
"ᡈᦪ
C!ᐭ()*+Ḅ
ᡈ(),-D%⌱'ᐭ*+Ḅ
ᡈ(),-

44
15ᙠAccess01᝞3456ᦪ7⊤0Ḅ9:
1%;ᵨḄ=>A◚@Bᑤ◀CCDDE⌱
16FG"#"ḄAFG*+)ᦪḄ
BFG*Iᓫ)
CFG*+)ᦪḄᦪ

DFG*Iᓫ)ᦪ

17K⌕MᙠᦻO᪾0ᐭᦻOQRᑮTṹ"*"Ḅ56ᦔ31ᑣXYḄZឋA\]^BᨵᦔឋᦻOCᐭṹDTṹ
18Ꮇ"`a"⊤0ᨵbcஹefஹghi
1jk`aef0ᨵ"lm”n
Ḅ`aop1qrḄ=>ASELECT*FROM`aFORef="*lm*"BSELECT*FROM`aFORefLIKE"*lm*"CSELECT*FROM`aWHEREef="*lm*"DSELECT*FROM`aWHEREefLIKE"*lm*"19ᑭᵨuv᪾w6ᵨᡝᐭjyᩩ{1|᪵ḄjyZ~A⌱'jyBᦪjyCjyDSQLjy
20ᙠSQLjy0“GROUPBY”ḄA⌱'ᩩ{Bujy᣸C⌱'ᑡ
Dujyᑖ
21ᙠVBAQ1jᩭḄ┯Ag┯B┯C┯Dg┯┯22ᡈ⊤Ḅ{Zឋ^Ḅqr=>ASetBSetDataCSetValueDSetWarnings
23ᙠ0ᨵ(=>ᢥeCommandl,YᢥḄᓫ¡{uXḄVBA¢ṹ£PrivateSubCommandl_Click
subT.Form.Recordsource="select*from¤ᕒ”EndSubᓫYᢥ¦§Ḅ¨A;ᵨselect=>jk"¤ᕒ”⊤0Ḅᡠᨵª«B;ᵨselect=>jk¬56"¤ᕒ"⊤0Ḅᡠᨵª«CsubTḄᦪ7ᩭ®()
¯DsubTḄᦪ7ᩭ®"¤ᕒ"⊤
24ᙠ⊤°±01〉ᔠ´µḄ{A᪗·{B¸¹{CᦻO᪾{D⌱⚗{25»ᑡᐵ~u½"¾¿À”¡{ḄÁÂ01qrḄAᙠ{ᡈª«Ḅᦪ7ÃᓄÅÆÇḄ¡{Bᙠ{ᡈª«Ḅᦪ7ÃᓄÀÆÇḄ¡{CÈᡈ{ÉᦈᑮᯖÌQÆÇḄ¡{DÈᡈ{ᜫÎÏᯖÌQÆÇḄ¡{26»ᑡZ~FÐᡈÑÒᵨᡝḄ=>APrintoutBOutputToCMsgBoxDRunWarnings
27Ó¦§ÔᢣÖª«×ØᱯÖ
^ḄÚᦪANzBFindCLookupDDLookup28᝞3X()qḄ¦ᦪ1ÛᶇÝÞßᦪஹᓟᑖÞáâãᐭḄ⊤RäA0.01*lnt
x+0.05B0.01*lnt
100*
X+0.005

45C)0.01*lnt(x+0.005)D)0.01*lnt(100*(X+0.05))(29)ᙠæᙽḄèéêᑖ;ᵨ"OptionBase1"ë1ᯠÅÖníᦪA(2to5,5),ᑣYᦪḄᐗï)ᦪA)20B)24C)25D)36(30)ᵫ"Fori=lTo9Step-3”ñÖḄòóD᪀1ᐸòó᡻A)0÷B)1÷C)4÷D)5÷(31)ᙠùᨵ(•)=>ᢥCommandl()ᦻO᪾Textl,bᑏ¡{¢ṹ᝞»£PrivateSubCommandl_Click()Dimi,j,xFori=1To20step2x=0Forj=To20step3x=x+1NextjNextiTextl.Value=Str(x)EndSubᡭýÅ1ᓫ=>ᢥ1ᦻO᪾056ḄD3A)1B)7C)17D)400(32)ᙠùᨵ()=>ᢥCommandl,bᑏ¡{¢ṹ᝞»£PrivateSubCommandl_Click()DimyAsIntegery=0Doy=lnputBox(ny=")If(yMod10)+lnt(y/10)=10ThenDebug.Printy;LoopUntily=0EndSubᡭýÅ1ᓫ=>ᢥ1þ÷ᐭ10ஹ37ஹ50ஹ55ஹ64ஹ20ஹ28ஹ19ஹ-19ஹ0,ÿᓽ
ḄA)375564281919B)105020C)1050200D)3755642819(33)ᙠ
ᨵᢥCommandl,ᑏṹ᝞PrivateSubCommandl__Click()DimxAsInteger,yAsIntegerx=12:y=32CallProc(x,y)Debug.Printx;yEndSubPublicSubProc(nAsInteger,ByVaimAsInteger)n=nMod10m=mMod10EndSubᡭ
!ᓫ#ᢥ!$ᓽ
Ḅ

46A232B123022D123234ᙠ
ᨵᢥCommandl,ᑏṹ᝞&PrivateSubCommandl_Click
DimdlAsDateDimd2AsDatedl=#1^72009#d2=#1/^2010#MsgBoxDateDiff
"ww”,dl,d2EndSubᡭ
!ᓫ#ᢥ!'(᪾*ḄA1B2010D11+35ᑡ-./Ḅ0123"56"⊤*"89":/;<1DimStrAsStringStr=""Docmd.RunSQLStr=>ᜐ@AᐭḄ-.ṹA89=89+1BUpdate56Set89=89+1CSet89=89+1DEdit5689=89+1DஹA=⚪+G=2ᑖ!ᐳ30ᑖJKLG=ḄMNOᫀᑏᙠO⚪ᓱூI௃T15.UḄVW!OᙠXᔁZ[ᑖ஺+1J]ᑡḄ^_`᝱b=஺3Lᐗdef,+ᑐ,⎃ᓃ5,4,3,2,1klᐭ]!ᯠnkl⌨],ᑣᐗd⌨]Ḅq.bூI௃o
2rstu]ᑡḄvwb50,᝞ᜮᢣ┐front=45
ᢣᔣ]ᜮᐗdḄ|}~J!ᢣ┐rear=10+ᢣᔣ]ᐗdJ!ᑣtu]ᑡ*ᐳᨵ121ᐗd஺
3rD᪛᝞D᪛.ᔊḄbூ3௃஺+4ூ4௃ஹᦪᦻ᫏Ḅᔠ஺+5ᨵ56⌱Ḅᐵ!ᐸ*56Ḅᐵb56+5U!!!89J!-Ḅᐵb-+U!-!5J!ᐸ*ᐵḄᑖ5UU!ᑣᐵ⌱b⌱+5U!ூ5௃!ᡂ¢J஺
6£ᡠ¥Ḅ
ᨵᢥ+¦bCommand஺•⌱⚗©+¦bFramel,⌱⚗©ª¥“Framel”ᦻ«Ḅ᪗®¦bLabell,¯L⌱⚗©ª¥ᦻ«"Framel"ᦋb±:“ឋ!!!@´ᵨḄ¶·6o+7ᙠ¸|
!¯⌕23Lᯖ»¼½ᑮᢣ®!@´ᵨḄ¿ÀÁ71+8´ᵨᔣÂÃÄᦪÅÆ⚓!ᙠNᑖ©ÈÉ*ᨬËr~ூ8௃ᑖ©:/஺+9ᙠ
ᦻ«᪾Textl*ᐭ“456AbC"!$ᓽ
Ḅூ91PrivateSubTextl_KeyPress
KeyAsciiAsIntegerSelectCaseDeyAsciiCase97To122Debug.PrintUcase
Chr
KeyAscii;Case65To90Debug.PrintLcase
Chr
KeyAscii;Case48To57Debug.PrintChr
KeyAscii;

47CaseElseKeyAscii=0EndSelectEndSub(10)ᙠ
.ᨵ•ᢥCommand,ᑏṹ᝞PrivateSubCommandl_Click()Dima(10),p(3)AsIntegerk=5Fori=1To10a(i)=i*iNextiFori=1To3P(i)=a(i*i)NextiFori=1To3k=k+p(i)*2NextiMsgBoxkEndSubᡭ
!ᓫ#ᢥ!'(᪾*Ḅூ10௃஺(11)ᑡ-.Ḅ01ÎÏ5ஹ7◀!Ñᦪb1ḄᨬÒḄ5M᦮ᦪ஺Kᙠ-.=>ᜐAᐭ〉¸Ḅ¶·!´-.ÕÖᡂᢣḄ01஺PrivateSubForm_Click()DimNcount%,n%n=n+1If[11]ThenDebug.PrintnNcount=Ncount+1EndIfLoopUntilNcont=5EndSub(12)Õ-.Ḅ01ᙠ$ᓽ
*100ᑮ200×ØᡠᨵḄdᦪ!ÙÚÛdᦪḄᦪ஺Kᙠ-.=>ᜐAᐭ〉¸Ḅ¶·!´-.ÕÖᡂᢣḄ01஺PrivateSubCommand2_Click()Dimi%,j%,k%,t%'tbÚÛdᦪḄᦪDimbAsBooleanFori=100To200b=Truek=2j=lnt(Sqr(i))DoWhilek<=jAndbIfIModk=0Thenb=[12]EndIf

48k=[13]LoopIfb=TrueThent=t+1Debug.PrintiEndIfNextiDebug.Print"t=";tEndSub+13ᦪÜ*ᨵÝÞ⊤!ᒹà஻஻ஹ஻ÝÞ஻“â¦஻ã:/!3⌕Zäâ¦ḄâÝå<ÝÞ!æᦟᣴâ¦å<15%,éᦟᣴâ¦å<10%,ᐸêeᕒå<5%஺ᑡ-.Ḅ01ᢥ᯿íæî᦮G}âÝḄÝÞ!Ùª¥ᡠïÝÞ×ð஺Kᙠ=>ᜐAᐭ〉¸Ḅ¶·!´-.ÕÖᡂᢣḄ01஺PrivateSubCommand5_Click
DimwsAsDAO.WorkspaceDimdbAsDAO.DatabaseDimrsAsDAO.RecordsetDimgzAsDAO.FieldDimzcAsDAO.FieldDimsumAsCurrencyDimrateAsSingleSetdb=CurrentDb
Setrs=db.OpenRecordset+"ÝÞ⊤”JSetgz=rs.Fields+"ÝÞ“JSetzc=rs.Fields+“⦔Jsum=0DoWhileNot[14]rs.EditSelectCasezcCaseIs="ᦟᣴ”rate=0.15CaseIs="éᦟᣴ”rate=0.1CaseElserate=0.05EndSelectsum=sum+gz*rategz=gz+gz*rate[15]rs.MoveNextLooprs.Closedb.CloseSetrs=Nothing

49Setdb=NothingMsgBox"ïÝÞðÛ:”&sumEndSubஹ⌱ô⚪+GÒ⚪2ᑖ!ᐳ70ᑖJᑡᔜ⚪Aஹ8ஹCஹDö⌱⚗*!÷ᨵ⌱⚗MNḄ஺KLMN⌱⚗AøᙠO⚪ᓱù@}~!OᙠXᔁZ[ᑖ஺1ᑡúí*MNḄAWឋ⊤Ḅûüý᪀ÿ
᪀ᡠ◤⌕ḄḄBឋ⊤Ḅ᪀ᡠ◤⌕Ḅ•⌕
᪀Cឋ⊤Ḅ᪀ᡠ◤⌕Ḅ⌕
᪀D•:!"2#ᑡ%&'(ḄAᙠ᪘&+᪘&ᐗ-.᪘/ᢣ┐2᪘⚔ᢣ┐Ḅ4ᓄ67᝱4ᓄBᙠ᪘&+᪘⚔ᢣ┐!4+᪘&ᐗ-.᪘/ᢣ┐Ḅ4ᓄ67᝱4ᓄCᙠ᪘&+᪘/ᢣ┐!4+᪘&ᐗ-.᪘⚔ᢣ┐Ḅ4ᓄ67᝱4ᓄD9!"3:;<=Ḅ>ḄA?@:;A☠ឋBCDEᦋ'G
&Ḅ┯ICᦋ'G
&Ḅ┯IDCDG
&Ḅ┯I4#☢K&+!L:;ᓻN⊤DḄA:;OG!PB:;RCS.U᳛WC:;XYZ[\ᑴD:;ᡂ_!`ab5:;cdᕜfᢣA:;UghaiஹkDஹlᵨnoᑮqrlᵨ⌨tḄOGB:;h◤uᑖ᪆ஹxyஹkDᑮ<=zᡂḄOGC:;ḄRCOGD:;Ḅ{|noOG6☢ᔣ"~&+ᢣA•"ᡠᐹᨵḄឋXB"~ᐹᨵ"~ḄឋXCᔜ"~ḄᐳឋXDᐳLឋḄNᑴ7ஹᐵᦪᑜᑖᑣA¡

50Bᦻ;Ḅᜧ¤CὶḄ¦ᩖG¡DᦪḄὶ
8¨©ᕒA[lᵨ«y¬N+6«yNA®©lᵨ+ᑣk¯¨©ᕒஹ2k¯y¬NḄὶA"B"C"D"
9ᦪxy&°᧜ᵨᡝ³ᦪ⌕uḄ´Aᑁ´Bᭆ·´C᜜´Dxy´
10ᨵ9ᐵRஹST᝞º.:ᑣᵫᐵRS¼ᑮᐵTḄA½ᯠ¿ÀBÁCᢗÃDE
11ᙠAccess&⌕ÄÅ“ᦟÈ⊤”&ÊËÌÍḄÎÏ+ÐÑᵨḄᐵ{¬A⌱ÓBᢗÃC¿ÀDᐵὶ
12Ô᪥Ö×✂PÙ+ËÚÛc³ÜÝÞß×+Ëᙠ᪥c³A[Þ5_×+•ËᦟȳA[Þ10_×+ᙠàáâ•F,ãὅ2Ö×åᡂæÞ▅è+àÞ▅ᐵA)"ὶB)"éὶC)"ºὶD)"ὶ
13AccessᦪᨬẠḄ"~A⊤BìCí⊤Dîï

51(14)#ᑡᐵñòᦪḄ%&+┯IḄA)ñòóôᙠᦪ⊤&ᓰ8ó⁚ḄB)ñòóôA[2ᦪóᦪ÷ᔠy¬+ùúñòC)ᔣñòóôûᐭᦪ³+ý½7þᐸ
4ᦪD)ᔣᐭᦪᐭᓟᑖ◞(15)ᦻḄᐭ!ṹ
ᑣ$%Ḅᐭᦪ&A)0755-abcdetB)07712345C)acd-123456D)####-######(16)᝞(ᙠ*+ᩩ-./ᵨ12“4”ᐸ78&A)┯:Ḅ/ᵨ;

52BᡂBetween80To90CᡂBetween79And91DᡂBetween79To9122“⊤”.ᨵ“”ஹ“c”ஹ“ឋ”“ᐭᡂ”஺᡻W᝞xSQLlḄi(&SelectavgᐭᡂFrom⊤GroupbyឋAhOᡠᨵḄᙳᐭᡂBhOᡠᨵḄឋᙳᐭᡂCᢥឋhOᡠᨵḄᙳᐭᡂDᢥឋᑖhOឋḄᙳᐭᡂ23ᙠ“├¡¢ᦪ”£¤.ᨵ“¥¢ᦪ”ᦻ᪾¦-U§$%ᵨ¦-jḄ&AForms¨├¡¢ᦪ¥¢ᦪ©BForms!ª├¡¢ᦪI.ª¥¢ᦪ©CForms.ª├¡¢ᦪ¬¥¢ᦪ©DForms!ª├¡¢ᦪ¥¢ᦪ©24®_ᦋᦻ᪾.Ḅᦪ¯°±Ḅ²-&AChangeBEditCGetfocusDLostFocus
25ᙠ³⊤.⌕hO“ᦪ”Ḅᨬµᑖ{¦-Ḅ“¦-ᩭ·”}ឋ
A=Minªᦪ©B=MinᦪC=Minªᦪ©DMinᦪ26⌕•Eᦪ¸¹ᣚᡂ»{Ḅᦪj{/ᵨḄ¼ᦪ&AVaiBSingleCAscDSpace27xᑡ½¾c.ᔠ<Ḅ&A4ABA-lCABC_1Dprivate28½¾iḄÀj8,ᑣÁbᑡÂÃFH.ÂäḄ᡻WÄᦪDoWhilei<=17i=i+2Loop

53A)3ÄB)4ÄC)5ÄD)6Ä(29)InputBox¼ᦪḄÆÇja&A)ᦪjB)¸C)½¤D)RᐭḄᦪ¯z(30)xᑡU§Èᣚ½¾XÉḄÊ&A)Y=X:X=YB)Z=X:Y=Z:X=YC)Z=X:X=Y:Y=ZD)Z=X:W=Y:É=Z:X=Y(31)£¤.ᨵᢥËCommandl,²-ÌÊ᝞ÁÍPublicFunctionf(xAsInteger)AsIntegerDimyAsIntegerx=20y=2f=x*yEndFunctionPrivateSubCommandl_Click()DimyAsIntegerStaticxAsIntegerx=10y=5y=f(x)Debug.Printx;yEndSubNWÊᓫÎᢥËᑣtᓽ£4.ḄᑁÏ&A)105B)1040C)205D)2040(32)£¤.ᨵᢥËCommandlᦻ᪾Textl,²-ÌÊ᝞xÍFunctionresult(ByVaixAsInteger)AsBooleanIfXMod2=0Thenresult=TrueElseresult=FalseEndIfEndFunction

54PrivateSubCommandl_Click()x=Val(InputBox(“ÐᐭbE᦮ᦪ”))If______ThenTextl=Str(x)&"&ᏔᦪElseTextl=Str(x)&“&᜻ᦪEndIfEndSubNWÊᓫÎᢥËᐭ19,ᙠTextl.Õ“19&᜻ᦪ”.Ö×ᙠÊḄØÙᜐ{ÛᑏA)result(x)="Ꮤᦪ"B)result(x)C)result(x)="᜻ᦪ”D)NOTresult(x)(33)£¤ÝᢥËCommandlᦻ᪾Textl,»{Ḅ²-Þṹ᝞xÍPrivateSubCommandl_Click()Fori=llb4x=3Forj=lTo3Fork=lTo2x=x+3NextkNextjNextiTextl.Value=Str(x)EndSubNWßà²-ÌÊᦻ᪾.Ḅ&A)6B)12C)18D)21(34)£¤.ᨵᢥËrun34,»{Ḅ²-Þá᝞xÍPrivateSubrun34_Enter()DimnumAsInteger,aAslnteger,bAsInteger,!AsIntegerFori=lTo10num=lnputBox("Ðᐭᦪ:""ᐭ”)IfInt(num/2)=num^Thena=a+lElseb=b+lEndIfNextiMsgBox(“NWi(:a="&Str(a)&",b="&Str(b))EndSub

55NWßà²-ÌÊᡠãᡂḄäU&A»ᐭḄ10EᦪåæçB»ᐭḄ10EᦪåᔜḄéᦪᯠlëVWæçC»ᐭḄ10Eᦪᑖìh᜻ᦪᏔᦪḄEᦪD»ᐭḄ10Eᦪᑖìh᦮ᦪIF.᦮ᦪḄEᦪ
35NWxᑡÊᐭᦪ8,9,3,0l£¤.i(&PrivateSubForm_click
DimsumAslnteger,mAsIntegersum=0Dom=lnputBox"ᐭm"sum=sum+mLoopUntilm=0MsgBoxsumEndSubA0B17C20D21:ஹÛØ⚪îØ2ᑖᐳ30ᑖ1bE᪘ḄÀñò᝱Ø஺✌ᐜᐗ÷54,3,2,1øÄᐭ᪘ᯠl⌨᪘bÄëᐗ÷A,B,C,DøÄᐭ᪘úlᡠᨵᐗ÷ᐰü⌨ᑣᡠᨵᐗ÷⌨᪘ᒹ=.þ⌨᪘Ḅᐗ÷Ḅ
112ᙠABnḄÿឋ⊟ᨬᜧ⚗◤⌕ூ2௃஺3᪛ᨵ101Ḅ72Ḅᑣ!"᪛ᐳᨵூ3௃஺4$ᵫ&'ஹ⌱*ᑖ,-./012-᪀᪀ᡂḄ5'645'஺5ᦪ89:;Ḅ<▤>6◤?ᑖ᪆ᭆB:;,DE:;.5.6᝞G⌕?ᙠ᡻JKLMNOPᐭḄRSKLRTUVWXYᵨூ6௃KL஺7Access[TḄᦪ8\]⚓_`aᙠbcᦻeᐸᦻegh67
8WXNOijkl᡻JmᙠᐸnmoᵨmpᙠVBA5'oᵨmpூ8௃qTMrqm஺9ᙠVBA⌕ᑨtuv>Ḅw6ᔲNull,yzᵨḄ{ᦪ69௃஺10|ᑡ5'Ḅ~6?k5x2ᓝ2=1000Ḅᡠᨵ᦮ᦪ“ᙠᜐᐭ〉Ḅz5'ᡂᢣḄ~஺PrivateSubCommandl_Click
DimXasintegecyasinteger

56Forx=-34To34Fory=-34To34If[10]ThenDebug.Printx,yEndIfNextyNextxEndSub
ID|ᑡ5'Ḅ~6?h1+ᝢ+3!+9!+……10⚗Ḅ.ᐸn!Ḅ"6nḄ▤ᙠᜐᐭ〉Ḅz5'ᡂᢣḄ~஺PrivateSubCommandl_Click
Dimia$integer.sassingle,aassinglea=l:s=0Fori=lTo10a=
11]s=s+aNextiDebug.Print"1+1/2!ᓝḄ!+.,=”»EndSub12ᙠ¡¢ᨵ£Commandl2Ḅ¤¥ᢥ§Click¨e~6©ᦈ«¬PᐭḄ10ᜧ®0Ḅ¯°᦮ᦪ,±ᐸḄᨬᜧw.²yḄPᐭ³´஺ᙠᜐᐭ〉z5'WXᡂᢣḄ~஺PrivateSubCommandl2_Click
max=0maxn=0fori=lTo10num=Val
InputBoxPᐭµ“&i&”ᜧ®0Ḅ᦮ᦪ”--If[12]Thenmax=nummaxn=[13]EndIfNextiMsgBox
"ᨬᜧwµ“&maxn&"PᐭḄ"&maxEndSub13ᦪ89Ḅ”¶I·¸¹º⊤“ᨵ”¼£“.”¶½”¾v>⌕ᑖ¿À;ᦟᣴஹÃᦟᣴ.ᐸnÄᕒḄᦪÆ஺ᙠᜐᐭ〉z5'WXᡂᢣḄ~஺PrivateSubCommands_Click
DimdbAsDAO.DatabaseDimrsAsDAO.RecordsetDimzcAsDAO.FieldDimCountlAsIntegerCount2Aslnteger;Count3AsInteger/Setdb=CurrentDb
Setrs=db.OpenRecordset"¶È·¸¹º⊤”-Setzc=rs.Fields“¶½"-

57Countl=0:Count2=0:Count3=0DoWhileNot[14]SelectCasezcCasels="ᦟᣴ"Countl=Countl+lCasels="Ãᦟᣴ"Count2=Count2+lCaseElseCourit3=Count3+lEndSelect(151Looprs.CloseSetr$=NothingSetdb=NothingMsgBox”ᦟᣴ"&Countl&”,Ãᦟᣴ“&Count2,ᐸn"&count3EndSub᱐¸u:Ë\e<-ess201()Ì9ᨴÎÏÐᔁÒᫀஹ⌱⚪(1)B)(2)0(3)D)(4)3)5>\)<6)D)(7.ID(S)C)(9)0(10)A)(ll)B)(12)”)[13)\)"()(I5)B)(16)D)(IK>B)(19)\)20)Ri(21)\)(22)14(23)1))(24)A)(25)\)(2ft)\(27)()(2«)C)(29)B)(3DD)ব)ID(33)1))(34>C)(35)()ஹ⚪(1)(1)11)(1!\2345(2)(2)1(3)(3J25(4)[4)᪀ᓄᱥᳮᱥ“(6)[6]ᔁᦪ(7(8)[X]jffl(9)[9]lsNiill(10,\*\+\♦x-HXXI(II)a/i(12)[12]in.

58᱐¸ஹ⌱⚪প(5)BCDAA(6)~(10)DDCAA(11)(15)BDACB(16)(20)DDBAB(21)(25)ADDAA(26)(25)ACCBC(31)(35)BBDCCஹ)*⚪(1)1DCBA2345(2)Log2(n)(3)25(4)᪀ᓄ+,-.(5)ᱥᳮ-.(ᱥᳮ᪀-.)(6)/ᦪ(7)HTML012(9)Isnull(10)x*x+y*y=1000(H)a/i(12)max6?

592ᑡB!"Ḅ$AᨵD89᪷FGḄᦪIF᪀6K$LMឋF᪀BOᨵD᪷FGḄᦪIF᪀6K$MឋF᪀CPQR⊤$LMឋF᪀DTᔣR⊤$LMឋF᪀3WX᪛ᐳᨵ7DFG\ᐸB^_FGOᨵ1D\ᑣaX᪛ḄbcdᎷf᪷FGᙠh1iA3B4C6D74ᙠlmnoB\◤qᑖ᪆▤uvwḄx⌕ᦻ᫏$Alm{ᡂ}ᑜBlmf

60ᑣᵫᐵRËSØᑮᐵTḄµ¶$AÚᯠÜÝBÞC◀Dß10K¹áâã᦮ᦪådUInt,☢Â8¶dåUIntÊêᓄëḄ$A-369B369C0.369D᦮ᦪ{ᔠî1,2,345}<11ᙠñw⊤B⌕³òᡠᨵóᜧ30õö÷Ḅᵱùñ\úaûᵨḄᐵü$A⌱BᢗþCὶÝDÚᯠὶÝ12ᑡÂ8ÿ
ḄᦪAᦻBCᜓDOLE13ᑡᐵ"#$%ឋḄ'()*+,ḄA-./Ḅ#$01“345”%ឋB78#$345Ḅ98:#$5;ᐕ=>?C@ᨵ“ᦻ”ᦪBCDᵨ“FᐭHṹᔣK”D”ᨵᦔឋMᑣ”%ឋ@ᐕ=78OPᩩR⊤TU14WX“YZ”#$)ᒹ9“\ὃ^”#᪵Ḅ`a*b:DᵨḄᩩRALike"\ὃ^”BLike"*\ὃ^஺CLike”\ὃ^*“DLike"*\ὃ^*"15ᙠAccess)⊤mn“o⌱”qrḄstAuᦪ)ᢧ⌱wxyᩩRḄ`a

61Buᦪ)ᢧ⌱wxyᩩRḄ`az{ᡂOP}⊤Cuᦪ)ᢧ⌱wxyᩩRḄ`azFwᑮOP⊤)Duᦪ)ᢧ⌱wxyᩩRḄ`azᙠOP)16ᙠ{⊤)Dᵨ“᯿ᱏ”#$ᱏ*DᵨᔣK>:⊤*᯿ᱏ#$DᵨḄ34RABC7᪾D7᪾17ᑡ⊤TUst>ḄA#2012-l-23#-#201l-2-3#Byear#2011-2-3#CDateValue"2011-2-3"DLen"20Il-2-3n18©⌕«“¬”⊤)ᡠᨵ¯°ᖪ“ABC”Ḅ¬ᓫ³´50,ᑣ+,ḄSQL¸¹AUPDATE¬SETᓫ³=50WHERE¯°ᖪ="ABC”BUPDATE¬SETᓫ³=ᓫ³-50WHERE¯°ᖪ="ABC”CUPDATEFROM¬SETᓫ³=50WHERE¯°ᖪ="ABC”DUPDATEFROM¬SETᓫ³:ᓫ³-50WHERE¯°ᖪ="ABC”19©WXḄ0᝞*ᑣWXḄÆBA0ÇÈᡂ*ÉÊmnËBËÌÍÎÏ9Null?5Ḅ`aPᦪCËÌÍÎ;ᒹÑNull?5Ḅ`aPᦪDËÌÍÎᒹÑNull?5ᐰÓ`aPᦪ20ᙠᦟÕÍÎFᐭ)*>Ö×#$د“ᦟᣴ”ஹ“Ûᦟᣴ”ஹ“ÜÕ''\⌱⚗¯ᵨᡝà⌱á*bDᵨḄRA᪗ãBä⌱᪾

62C)ᦻ᪾D)æᔠ᪾(21)ᙠ⊤)⌕éU>“ᐳNë*ìN⚓”Ḅ⚓ṹ*+,Ḅ⚓ṹéU01A)="ᐳ"+Pages+”⚓*ì"+Page+”⚓”B)="ᐳ"+[Pages]+"ë*ì"++"⚓”C)ò"ᐳ"&Pages&”⚓,ì”&Page&”⚓”D)ò"ᐳ"&[Pages௃&“⚓*ì⚓”(22)õöᨵOP÷øᢥú*⌕ûᓫü:ᢥúý´ᵨþᡭ
ᵨWord,ᑣ
⌱ḄA)RunAppB)RunCodeC)RunMacroD)RunCommand(23)(ᑡ⊤+,-./01⊤2ᩩ4“x7y9᜻ᦪ”ḄA)xMod2=0AndyMod2=0B)xMod2=0OryMod2=0C)xMod2=1AndyMod2=1D)xMod2=1OryMod2=1(24)BᙠDEF-.ᢥHCommand஺ḄJ4KឋM᝞(Oᡠ2.ᑣQRA)S/T“Uᐭ“J47“ᓫX”J4YᑏJ4FB)[/T“Uᐭ“J47“ᓫX”J4YᑏJ4Fc)“Uᐭ”J47“ᓫX”J4᡻]Ḅ^--J4FD)`aT“Uᐭ”J47“ᓫX”J4YᑏbJ4F(25)BDEFrml-ᨵghᢥHCmdl,ᑣDE7ᢥHḄClickJ4FkᑖmTA)Form_Click()CommandI_Click()B)Frml_Click()Commandl_Click()C)Form_Click()Cmdi_Click()D)Frml_Click()Cmdl_Click()

63p26rᙠVBA-./tuvwxᩭḄ┯{Ar|}┯{Br~┯{Cr]┯{Dr┯{p27r.ᑡxḄ⌱⚗-.IF•}ḄkArSumBrlnteger_2CrRemDrFormlp28r᝞ᙠᵨḄF-ᦋbḄ[.ᦪ⌴¢,£TArᢥ⌴Brᢥᙢᙬ⌴CrByRef⌴Drᢥ⌴p29r⊤+,“B=INTpA+0.5r”Ḅ«/Ar¬Aᶇ¯ᦪ°±1²Br¬A³´µᐭ¶᦮Cr¬Aᶇ¯ᦪ°±5²Dr´¸AḄ¯ᦪ¹ᑖp30rVBA|º"DimNewArrayplOrasInteger”ḄQRAr¾R10h᦮¿ᦪ᪀ᡂḄᦪÂNewArrayBr¾RIIh᦮¿ᦪ᪀ᡂḄᦪÂNewArrayCr¾R1hT᦮¿ᦪḄNewArrayplOrDr¾R1hT10ḄNewArrayp31r](ᑡÃ.ÄForm=10to1step0k=k+3NextmArᡂÅÆÇBrÆÇE[᡻]ᓽÄÉÆÇCrxÊ|}┯{DrÆÇE᡻]g˱ÄÉÆÇp32r](ᑡ.ÄPrivateSubCommand32_ClickprfO=l:fl=l:k=lDoWhilek<=5f=fpr+flfO=fl

64fl=fk=k+lLoopMsgBox"f="&fEndSubA)f=5B)f=7C)f=8D)f=13(33)ᨵ᝞.J4.]±ÕxÄPrivateSubCommand33_Click()DimxAsInteger,yAsIntegerx=l:y=0DoUntily<=25y=y+X*XX=X+1LoopMsgBox"x=,,&x&",y="&yEndSubA)x=1,y=0B)x=4,y=25C)x=5,y=30D)ÕxᐸÚÄ(34)(ᑡḄ«/Ûsum=l+(l+3)+(1+3+5)+...,+(1+3+5+...+39)PrivateSubCommand34_Click()t=0m=lsum=0Dot=t+msum=sum+tm=______LoopWhilem<=39MsgBox"Sum="&sumEndSubTÜ01ÝᡂÞß«/.àáᜐ
ãᐭḄ|ºA)m+1B)m+2C)t+1D)t+2p35r(ᑡḄ«/äåæçDEḄèéêSubGetRecNumO

65DimrsAsObjectSetrs=______MsgBoxrs.RecordCountEndSubTÜÕxèéê(DEèéì)Ḅèéᦪ.àáᜐ
ãᐭḄ|ºA)RecordsetB)Me.RecordsetC)RecordSourceD)Me.RecordSourceíஹãà⚪(Dᨵðឋ⊤/U]íᑖwñḄçòðឋ⊤óôூ1௃÷øḄ஺(2)gùíú᪛Ḅ-üᔊÄTDBEAFC,üᔊÄTABDECF,ᑣ±üᔊÄTூ2௃஺(3)þÿ
Ḅᨬᓫ(ᙽᡈᓫᐗ)Ḅூ3௃஺(4)᦮ឋ!⌕#ᐵ%ᦪ'()ᐗ*Ḅ4
+ឋ,-./஺(5)ᙠᐵ%A(S,SN,D)1ᐵ%B(D,CN,NM))2AḄ3ᐵ456S,BḄ3ᐵ456D,ᑣ5
6ᐵ%AḄ᜜ṹ஺(6)ᙠAccess:;Ḅᩩ⊤>?)⌕⊤@ABᓫC5D2EFᵨHDூ6௃஺(7)ᙠSELECTIJ)2HAVINGKJLMNூ7௃KJOPFᵨ஺(8)Q⌕ᙠR)ᡭTUCᦪ'⊤2EFᵨḄRVW68௃o(9)ᙠVBA)⌕Xᦪ,⊤>?Ḅ,Yᣚ5D[2EFᵨ\ᦪூ9௃஺(10)]^ᑡ2`ᐭ᝞^cdHi,Iamhere.efḄg)Ḅh@ij6ூ10௃஺PrivateSubCommand!l_Click()DimabcAsString,sumAsstringsum=,,HDo

66abc=InpuெBox("`ᐭabc")IfRighKabc,1)^'."ThenExitDosum=sum+abcLoopMsgBoxsumEndSub(11)]^ᑡ2g)Ḅh@ij6dx=[II]஺OptionCompareDatabaseDimxAsIntegerPrivateSubForm_Lx)ad()x=3EndSubPrivateSubCommandIl_Click()StaticaAsIntegerDimbAsIntegerb=xA2funlx,bfunlx,bMsgBox"x="&xEndSubSubfunl(ByRefyAsInteger,ByValzAsInteger)y=y+zz=y-zEndSub

6712“£⊤”g)ᨵcCᢥ§¨“Tª/¬“ᢥ§bOKJᨚ¬/¯°“ᢥ§bPus±OCh@²Ḅ᪗´INumdgḄ“²ᘤ¶◞”
100²¸¹0.1£஺⌕#dᡭTg᝞º1ᡠ@±¼O½ᓫ¾“Tª¿”ᢥ§2À0TªÁÂh@²¨Ãº2±10£²ᓫ¾“ᨚ¬/¯°”ᢥ§2h@ᨚ¬¨Ãº3,IJÅᙠ¯°±Q20£Æǽᓫ¾“ᨚ¬/¯°”ᢥ§2²ÈÀ30£Tª¯°ÁÂh@±¼É½ᓫ¾“Tª/¬”ᢥ§2²¬2h@ᨬʲ¶¨Ãº4Ë஺Qǽᓫ¾“Tª/¬”ᢥ§ÌÍÎÀ0Tª²஺ÏᐵḄÐ᝞^஺Ñᙠ/ÒᜐÔᐭ〉ÖḄIJ2FÌ×ᡂᢣÚḄÛ.஺OptionCompareDatabaseDimflag.pauseAsBooleanPrivateSubbOKClick()flag=[12]Me!bOK.Enabled=TrueMe!bPus.Enabled=flagEndSubPrivateSubbPus_Click()pause=NotpauseMe!bOK.Enabled=NotMe!bOK.EnabledEndSubPrivateSubFormOpen(CancelAsInteger)flag=Fa!sepause=FalseMe!bOK.Enabled=TrueMe!bPus.Enabled=FalseEndSub

68PrivateSubFormTimer()StaticcountAsSingleIfflag=TrueThenIfpause=FalseThenMe!1Num.Caption=Round(count,1)EndIfcount=(13]Elsecount=()EndIfEndSub(13)ᦪ'()ᨵ“ÜÝᡂÞ⊤”2ᒹà“áâ”ஹ“ä²ᡂÞ”ஹ“ὃᡂÞ”1“æçèé”ê5ë஺ì⌕᪷'“ä²ᡂÞ”1“ὃᡂÞ”îÜÝ“æçèéïÚd“ä²ᡂÞ''ð"ὃᡂÞ”ᜧòêò85ᑖ,ᑣæçèé“ô”2“ä²ᡂÞ”ð“ὃᡂÞ”ò60ᑖ,ᑣæçèé“-õö“2ᐸøùúæçèé“ᔠö”஺ü.☢Ḅᢥ᯿I:ÿ⌕
Ḅ஺ᙠᜐᐭ〉Ḅᡂᢣ"Ḅ#$஺PrivateSubCommand()_Click()DimdbAsDAO.DatabaseDimrsAsDAO.RecordsetDimpscj,kscj,qmzpAsDAO.FieldDimcountAsIntegerSetdb=CurrentDb()Setrs=db.OpenRecordset("ᡂ'⊤")Setpscj=rs.Fields(“+,ᡂ'”)Setkscj=rs.Fields("ὃ/ᡂ'”)Setqmzp=rs.Fields("")count=()DoWhileNotrs.EOF[14]Ifpscj+kscj>=85Thenqmzp="0"Elselfpscj+kscj<60Thenqmzp="123"Elseqmzp="ᔠ3”EndIfrs.Updatecount=count+l[15]Looprs.Closedb.CloseSetrs=NothingSetdb=Nothing

69MsgBox"6ᦪ8"&countEndSub