全国二级历年考试真题

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

ᐰ
ᔊὃᔁ•⚪ஹ⌱⚪1~35⚪2ᑖᐳ70ᑖᑡᔜ⚪AஹBஹCஹD⌱⚗ᨵ⌱⚗"#$Ḅ&'#$⌱⚗(ᑏᙠ+⚪ᓱ-./01+ᙠᔁ123ᑖ஺51ᦪ7Ḅ89:᪀"ᢣ5>஺A.89ᙠ᜜8Ḅᦪ7B.ᦪ7ᡠᓰḄ89BCDC.ᦪ7ᙠḄEF89GHD.ᦪ7ḄIJ:᪀ᙠḄ⊤L2ᑡᐵN᪘ḄPQ┯SḄ"5>஺A.᪘"ᐜUVWḄXឋ⊤B.᪘ZEF89C.᪘ᐹᨵ\]^ᵨD.`᪘Ḅaᐭcᑤ◀f^2◤⌕ᦋj᪘kᢣ┐53`NmnonḄXឋ⊤ᙠᨬqrsᑡᔜ᣸Fuᡠ`.Ḅvwxᦪ#$Ḅ"5A.ᑈz᣸Fon/2B.ᑈz᣸FonC.{|᣸FonD.{|᣸Fonn-l/254`mnonḄXឋ⊤U}EF~ᙠᨬqrsᡠ◤⌕Ḅvwxᦪo5>஺A.Iog2nB.n/2C.nD.n+l5ᑡ`NXឋ⊤ḄPQ#$Ḅ"5>஺A.89BC2"ᔜᐗḄ89EF"ḄB.89BC2"ᐗ89ᙠVᐗḄ☢C.89BCᐗ•89ᙠVᐗḄ☢D.89BCᔜᐗḄ89EF"Ḅ56ᑡ`NḄPQ#$Ḅ"5>஺A.ḄḄ"F"ᔲ#$B.ḄḄ"F}:#$C.ḄḄ"ZᙢFḄ┯SD.ḄḄ"Fᔠ:᪀ᓄ¡ᑣ7o£¤ᙽZ¦§⌕¨5>஺A.¤ᙽḄᑁªn⌕D«ᔜ¤ᙽCḄ὚ᔠn⌕DB.¤ᙽḄᑁªn⌕D«ᔜ¤ᙽCḄ὚ᔠn⌕D®C.¤ᙽḄᑁªn⌕D¯ᔜ¤ᙽCḄ὚ᔠn⌕D®D.¤ᙽḄᑁªn⌕D¯ᔜ¤ᙽCḄ὚ᔠn⌕D8ᑡPQ#$Ḅ"5>஺A.F°"B.±2²³´Ḅ▲ᑴC.·"IJ¸¹º"ᱥᳮ¸¹D."Fஹᦪ7c-ᐵᦻ᫏Ḅᔠ59ᦪ7¦§ឋ"ᦪ7¿ᢈÁḄÂ⌕ᱯÄÅ஺ᡠÆᦪ7¦§ឋ"ᢣ5oA.ᦪ7cF¦§8ÇB.2ÈḄᦪ7É8Çᙠ2ÈḄᦻC.2ÈḄᦪ7ZÉ`.Ḅ.ᵨFᡠᵨD.Ê1ËÌÍuÎ2`10ᵨ᪛Ð:᪀⊤L¸¹ÅCὶ³Ḅ¤Ò"5>஺A.ᐵ³¤ÒB.ÓÔ¤ÒC.Õx¤ÒD.Ê1ËÎ"11ᙠÖ¹5×ØoForml1Ù×ØoTextlḄᦻÚ᪾Ü×ØoCommand1ḄÝÞᢥàᯠVâᑏãä஺F}V᝞ᙠᦻÚ᪾æᐭçᑣèÝÞᢥàḄ᪗⚪ê0o“ìὃ”஺ÊZ¸1Qf^Ḅãä"5oA.PrivateSubTextl_ChangeCommand1.Caption="ìὃ”

1EndSubB.PrivateSubCommand1_Click()Caption="ìὃ"EndSubC.PrivateSubForml_Click()Textl.Caption="ìὃ”EndSubD.PrivateSubCommand1__Click()Textl.Text="ìὃ”EndSub(12)êa=5,b=4,c=3,d=2ᑡ⊤ïHḄð"()஺3>2*bOra=cAndb<>cOrc>dA.1B.TrueC.FalseD.2(13)êa"MicrosoftVisualBasic"ᑣÊjDbḄðo“VisualBasic”Ḅóô"()஺A.b=Left(a,10)B.b=Mid(a,10)C.b=Right(a,10)D.b=Mid(a,11,10)(14)Ꮇᨵ᝞ḄÖ¹ãäüPrivateSubForm_Click()a$="MicrosoftVisualBasic"b$=Right(a$,5)c$=Mid(a$,1,9)MsgBoxa$,34,b$,c$,5EndSubF}Vᓫÿ
ᑣᙠḄ᪾Ḅ᪗⚪Ḅ()஺A.MicrosoftVisualB.MicrosoftC.BasicD.5(15)a="a”,b=nb",c="cM,d=MdM,᡻x=Uf((aD."A"B")xḄ()oA."a"B."b"C."B"D."A”(16)!"ᢥ$(%&Commandl)'(200,)ᵨḄ()஺A.Commandl.Move-200B.Command1.Move200

2C.Command1.Left=Command1.Left+200D.Command1.Left=Command1.Left-200(17)ᙠ
=>?@ᦻB᪾ᯠDᑏ᝞GHIJKLPrivateSubForm_Click()x=InputBox]^ᐭ?@᦮ᦪ”)Printx+Text1.TextEndSubKefgᙠᦻB᪾^ᐭ456,ᯠᓫm
ᙠ^ᐭno᪾^ᐭ123,ᓫm“rs”ᢥ$ᙠ
=Ḅᑁu()஺A.123B.456C.479D.123456(18)ᙠ
=>?@ᦻB᪾y?@zgᘤ|I%&ᑖ~TextlyTimerl,ᙠឋzgᘤḄIntervalឋ1000,EnabledឋFalse஺Kef᝞ᓫm!"ᢥ$ᑣ◞•ᙠᦻB᪾•Ḅg஺G=ḄKeLPrivateSubCommand1_Click()Timer1.()EndSubPrivateSubTimerl_Timer()Textl.Text=TimeEndSubᙠGᑜᜐ)ᐭḄᑁu()OA.Enabled=TrueB.Enabled=FalseC.Visible=TrueD.Visible=False(19)Ꮇsᙠᱏ᪾Picture1ᐭ•@◀¢(£ᑤ◀ᱏ᪾))¥ᵨḄ¦r§¨()஺A.⌱ªᱏ᪾ᯠᢥDel«B.᡻Picture1.Picture=LoadPicture("")C.᡻Picturel.PictureD.⌱ªᱏ᪾ᙠឋ⌱ªPictureឋᩩᯠᢥ®¯«(20)ᙠ
=>?@%&ListlḄᑡ⊤᪾?@%&LabellḄ᪗²ᑡ⊤᪾³´@⚗¶஺ᓫmᑡ⊤᪾Ḅ·@⚗¶gᙠ᪗²¸⌱⚗¶Ḅ%&஺Gᑡ¹¦r=ḄKe:A.PrivateSubListl_Click()Label1.Caption=Listl.ListindexEndSubB.PrivateSubListl_Click()Label1.Name=List1.ListindexEndSubC.PrivateSubListl_Click()Labell.Name=List1.Text

3EndSubD.PrivateSubListl_Click()Label1.Caption=List1.TextEndSub(21)ᙠ
=>?@!"ᢥ$ᐸ%&Comma,ᯠDᑏ᝞GHIJKLPrivateSubCommandl_Click()DimiAsInteger,xAsIntegerFori=1To6Ifi=1Thenx=iIfi<=4Thenx=x+1Elsex=x+2EndIfNextiPrintxEndSubKefᓫm!"ᢥ$ᐸ^Å()஺A.9B.612D.15(22)ᙠ
=>?@%&Commandl!"ᢥ$ᯠDᑏ᝞GHIJKLPrivateSubCommand1_Click()c="ABCD”Forn=1To4Print()NextEndSubKefᓫm!"ᢥ$⌕Çᙠ
=᝞GᑁuDCDBCDABCDᑣᙠ()ᜐᐭḄᑁu஺A.Left(c,n)B.Right(c,n)Mid(c,n,l)D.Mid(c,n,n)(23)᡻GKeÈDimiAsInteger,xAsInteger

4x=0Fori=20To1Step-2x=x+i\5NextPrintxXḄ()஺A.16B.17C.18D.19(24)ᙠVisualBasicÉKÊ“ËÌnÍ”ḄKe(A.ÎÏ
ᡈ᪗ÑÒᙽB.ÎÏ
ᡈJKC.SubMainJKᡈᐸÔÎÏÒᙽD.SubMainJKᡈÎÏ
(25)ᎷsÕÖ?@%CommandlḄ!"ᢥ$ᦪ×ᑣGب┯ÚḄ()஺A.ᦪ×@!"ᢥ$Ḅ%&(Nameឋ)ᙳCommandlB.ᦪ×@!"ᢥ$Ḅ᪗⚪(Captionឋ)Ü?᪵C.ᦪ×ᡠᨵ!"ᢥ$Êᵨà?@HIJKD.ᵨ%&Command1(G᪗)Êáâᦪ×Ḅ@!"ᢥ$(26)
ḄKeyPreviewឋTrue,ᯠDᑏ᝞GHIJKPrivateSubForm_KeyPress(KeyAsciiAsInteger)DimchAsStringch=Chr(KeyAscii)KeyAscii=Asc(UCase(ch))PrintChr(KeyAscii+2)EndSubKefᢥ«ã=Ḅ“A”«ᑣᙠ
=Ḅᑁu()oA.AB.BC.CD.D(27)ᙠ
=>?@!"ᢥ$y?@ᦻB᪾%&ᑖäIåCommandlyTextl,ᯠDᑏ᝞GKe:PrivateSubCommand1_Click()a=InputBox(“]^ᐭæç(1~31)”)tè”éêëì/_&IIf(a>OAnda<=10,wîï“&Ilf(a>10Anda<=20,^ᦑñ“&IIf(a>20Andav=31,“⚢yó”å'")Text1.Text=tEndSubKef᝞õ«ã=^ᐭ16,ᑣᙠᦻB᪾Ḅᑁu()஺A.éêëìLîïᦑñB.éêëìLîï⚢yó

5C.éêëìL⚢yóD.éêëìLᦑñ(28)ᙠ
=>?@%&Label1Ḅ᪗²ᯠDᑏ᝞GHIJKLPrivateSubForm_Click()Dimarr(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=2To4Forj=2To4arr(i,j)=i*jNextjNextiLabel1.Caption=Str(arr(2,2)+arr(3,3))EndSubKefᓫm
ᙠ᪗²Ḅᑁu()஺A.12B.1314D.15(29)ᙠ
=>?@%&Command1Ḅ!"ᢥ$ᯠDᑏ᝞GöᵨJKy!"ᢥ$ḄHIJK:PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=2Elsefun=1EndIfEndFunctionPrivateSubCommandl_Click()DimiAsInteger,sAsIntegers=0Fori=1To5s=s+fun(i)NextPrintsEndSubKefᓫm!"ᢥ$ᙠ
=Ḅ()0A.6B.7C.8D.9(30)▅øKeLOptionBase1Dimarr()AsInteger

6PrivateSubForm_Click()DimiAsInteger,jAsIntegerReDimarr(3,2)Fori=1To3Forj=1TO2arr(i,j)=i*2+jNextjNextiReDimPreservearr(3,4)Forj=3To4arr(3,j)=j+9NextjPrintarr(3,2)+arr(3,4)EndSubKefᓫm
^ᐭÅ()஺A.21B.13C.8D.25(31)ᙠ
=>?@%&Command1Ḅ!"ᢥ$ᯠDᑏ᝞GKe:OptionBase1PrivateSubCommand1_Click()DimcAsInteger,dAsIntegerd=0c=6x=Array(2,4,6,8,10,12)Fori=1To6Ifx(i)>cThend=d+x(i)c=x(i)Elsed=d-cEndIfNextPrintdEndSubKef᝞ᓫm!"ᢥ$ᑣᙠ
=^Ḅᑁu()஺A.10B.16C.12D.20(32)ᨵ᝞GKeLPrivateSubCommand1_Click()DimcAsInteger,dAsIntegerc=4

7d=InputBox("]^ᐭ?@᦮ᦪ")DoWhiled>0Ifd>cThenc=c+1EndIfd=InputBox஺]^ᐭ?@᦮ᦪ”)LoopPrintc+dEndSubKefᓫm!"ᢥ$᝞ᙠ^ᐭno᪾ù^ᐭ1ஹ2ஹ3ஹ4ஹ5ஹ6ஹ7ஹ8ஹ9ஹ0,ᑣ^Å()஺A.12B.1110D.9(33)ᙠ
=>•@%&CommandlḄ!"ᢥ$y•@%&TextlḄᦻB᪾ᙠᦻB᪾^ᐭGûüýLMicrosoftVisualBasicProgrammingᯠDᑏ᝞GHIJKLPrivateSubCommand1_C1ick()Open"d:\temp\outf.txt"ForOutputAs#1Fori=1ToLen(Textl.Text)c=Mid(Textl.Text,i,1)Ifc>=nAnAndc<=HZHThenPrint#1,LCase(EndIfNextiCloseEndSubKefᓫm!"ᢥ$ᦻIoutf.txtḄᑁu()஺A.MVBPB.mvbpC.MD.mVvBbPp(34)ᙠ
=>?@%&CommandlḄ!"ᢥ$ᯠDᑏ᝞GKeLDimSWAsBooleanFunctionfunc(XAsInteger)AsIntegerIfX<20ThenY=XElse

8Y=20+XEndIffunc=YEndFunctionPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SW=FalseEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SW=TrueEndSubPrivateSubCommandl_Click()DimintNumAsIntegerintNum=InputBox(,H')IfSWThenPrintfunc(intNum)EndIfEndSubKefᓫm!"ᢥ$þ?@^ᐭno᪾᝞ᙠ^ᐭno᪾^ᐭ25,ᑣKeḄ᡻Å(),A.^0B.^25^45D.ÁÎÏ^(35)ᨵ᝞GöᵨJKLPublicSubFun(a()AsInteger,xAsInteger)Fori=1To5x=x+a(i)NextEndSubᙠ
=>@%&TextlḄᦻB᪾y•@%&CommandlḄ!"ᢥ$஺ᯠDᑏ᝞GḄHIJKLPrivateSubCommand1_Click()Dimarr(5)AsInteger,nAsIntegerFori=1To5arr(i)=i+iNextFunarr,nText1.Text=Str(n)EndSubKefᓫm!"ᢥ$ᑣᙠᦻB᪾Ḅᑁu()஺A.30B.25C.20D.15èஹÿ⚪(2ᑖᐳ30ᑖ)

9Ḅᫀᑏᙠ⚪ᓱூ1௃T15UḄᙠᔁᑖ஺(1)!"᪛$%&2Ḅ'(ᨵ18*ᑣ,!"᪛$ᨵூ1௃*-.'(஺(2)ᙠ☢ᔣ1234$5Ḅ678&ூ2௃஺(3)9:;ᦋ=$┯?Ḅ@ABC8&ூ3௃஺(4)ᙠᐵEᦪGH$IᦪG⊤Kᡂ!M⊤N*!M⊤8&ூ4௃o(5)O⚪ᜐᳮ3ᫀḄRS᦮ḄUV8&ூ5௃஺(6)WXYZ[\']^T6௃஺PrintInt(12345.6789*100+0.5)/100(7)ᙠ_`aN*ᦻc᪾;N*eᱏ᪾ᯠhiᑏ᝞Xk*lmn=oPrivateSubForm_Click()Textl,Text="VB=xy"EndSubPrivateSubTextl_Change()Picture1.Print"VBProgramming"EndSub={|hᓫ~_`ᑣᙠᦻc᪾$KḄᑁ^ூ7URᙠeᱏ᪾$KḄᑁ^T8௃o(8)▅X☢Ḅ=oPrivateSubForm_Click()DimCheckAsBoolean,CounterAsIntegerCheck=TrueCounter=5DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounterEndSub={|hᓫ~_`[\']&ூ9௃o(9)xᨵ᝞X=oPrivateSubForm_Click()DimnAsInteger,sAsIntegern=8s=0Dos=s+nn=n-1LoopWhilen>0

10PrintsEndSubW=Ḅ^ூ10௃o={|hᓫ~_`[\']&[11]O(10)xᨵ᝞X=oOptionBase1PrivateSubCommandl_Click()DimarrlDimMinAsInteger,iAsIntegerarrl=Array(12,435,76,-24,78,54,866,43)Min=[12]Fori=2To8Ifarrl(i)

1131-35CDDDA⚪o[1]19[2]12[3]=±[4]ᐵE[5]¨4[6]12345.68[7]VB=xy[8]VBProgramming[9]10[10]²1-8Ḅ;[11]36[12]arrMl)[13]min=arrl(i)[14]EOF(1)[15]textl.text(HKwhole$)['´]07¤4ᨴ!«VBY¬⚪·ᫀ¸¹º»:11-04⚓ᦪo7⚓N¾:06¤¿ᨴᐰ§ª«ὃ!«VBY¬ὃÀÁᔁ(N)XN¾:02¤9ᨴ!«VBY¬⚪·ᫀ2007¤4ᨴᐰ§y¨©ª«ὃ!«ᔁVisualBasicY¬=xyNஹ⌱°⚪(Ã⚪2ᑖᐳ70ᑖ)Xᑡᔜ⚪A)ஹB)ஹC)ஹD)¿*⌱⚗$ÆᨵN*⌱⚗^Ḅ஺⌱⚗Çᙠ⚪ᓱÈÉÊᙠᔁᑖ஺(1)ËᑡÌV$Ḅ^(B)

12A¨4Ḅᦔ᳛ÆÏO⚪ḄÐÑᨵᐵRÏᦪGḄ¡Ò'᪀tᐵB¨4Ḅº»Ôᩖ%^ᢣ᡻|¨4ᡠ◤⌕Ḅy¨@AÛCᦪGḄÜÝ'᪀Ï¡Ò'᪀^NN1ÉḄD¨4Ḅº»Ôᩖ%Ï»Ôᩖ%NÞÈᐵ2ᙠ'᪀ᓄ=xy$ÑᙽᑜᑖḄâᑣ^DAᔜÑᙽÉᒹäåÛæḄBᔜÑᙽḄÐÑÉåÛᜧCᔜÑᙽè»ḄὶEÉåÛêÁDÑᙽᑁᐹᨵìᑁí%ஹÑᙽ»ᐹᨵî὚ᔠ%বËᑡÌV$Ḅ^AAòmóḄô⌕õḄ^¸ö=$Ḅ┯?BòmóḄô⌕õḄ^Þ=$┯?ḄÊC&÷øìòmóḄᦔ᳛ᨬùᵫ=iᑴὅsýᩭSᡂòmḄó@ADòmó^þÿ
ᨵ┯4☢⌱⚗☢ᔣᱯḄCAឋB᝱ឋCឋD!ឋ5ᑡ#ᑡḄ$%&'ḄDA#ᑡ()ឋ⊤B#ᑡᢥ“ᐜ./0”2ᑣ45ᦪ7C#ᑡᙠ#9ᑤ◀ᦪ7D#ᑡᢥ“ᐜ.ᐜ0”2ᑣ45ᦪ7<6ᑡ=>᪛CABCDEFXYZ.@ABᔊḄDEFA)DYBEAFCZXB)YDEBFZXCAC)ABDYECFXZD)ABCDEFXYZ

13HI=>᪛ᨵnJKF2ḄDLMᑣN=>᪛ḄOPDLᦪF(A)A)n+1B)n-1C)2nD)n/2(8)ᙠᑡᐵRSTMᦋVᐵR⊤ḄឋJᦪWXYZᐗ4JᦪḄ(B)A\B)]C)ᢗ_D)`ᓱbcd(9)ᙠE-ReMᵨᩭ⊤hijklὶRḄen(C)A)onB)pᙊnC)rnD)s@tun(10)ᑡ$%┯Ḅ(A)A)ᙠᦪ7vRwMᦪ7ḄᱥᳮD᪀{|}~D᪀B)ᦪ7vᢈḄ᪷᪗ᦪ7ᐳ⚪C)ᦪ7vᢈᢣᨵᦪ7ᳮRwḄẠᦪ7vD)ᦪ7vRw◤⌕RwḄᢝ(11)☢&'2J᦮nV¡¢1J£¤¥V¡Ḅ¦§Ḅ(D)A)Dimn,mASInterger,sASStringB)Dima%,b$,cASStringC)DimaASInteger,b,cASStringD)Dimx%,yASIntegersASString(12)5ᑡ⊤%Xᑨ©xᔲFᏔᦪḄ(D)A)x/2=Int(x/2)B)xMod2=0C)Fix(x/2)=x/2D)x\2=013)ᙠ¬FMyformḄ®j¯ᨵ1J¬FClḄ°±ᢥ²,☢$%&'Ḅ(B)A)®jḄClick´
µḄµ¬Myform_ClickB)°±ᢥ²ḄClick´
µ¬Cl_ClickC)°±ᢥ²ḄClick´
µḄµ¬Commandl.Click(14)®jᨵ1J¶·ᩩ,⌕¹ᓫ»¶·ᩩ¼½Ḅ/ᢥ²¿M¶·ᩩÀ·ḄÁKÂMÃÁKḄឋ(C)

14A)MaxB)MinQSmallChangeD)LargeChang(15)1J=Äᦪ4ÅÆ1Jon.ᙠÈÉᨵ¦§OptionBase0,ᑣ☢Ḅᦪ4&ÊÅÆ1J4*3o▣(ᓽ¯ᨵ12JᐗÎ)Ḅ(B)A)Dima(-2To0,2)ASIntegerB)Dima(3,2)ASIngegerC)Dima(4,3)ASIngegerD)Dima(-lTo-4,-1To-3)ASIngeger(16)ÐÑÒᦻ᪾ḄឋPasswordChar="$”MᑣS@Öᔣᦻ᪾×ᐭ8JÙÚ£¤/,ᦻ᪾ÛhḄ(A)A)8J“$"B)1J“$"C)8J“*”D)ÞÙßᑁá(17)ᙠ®jᨵ1J¬FCombo1Ḅ4ᔠ᪾Mãᨵ5J⚗M⌕ᑤ◀ᨬ/⚗,&'Ḅ¦§(B)A)Combol.RemoveitemCombo1.TextB)Combo1.Removeltem4C)Combo1.RemoveitemCombo1.ListCountD)Combo1.Removeltem5(18)åᨵ2J®jM¬ᑖçFForml.Form2,FormlFè·®j,N®jᨵ°±ᢥ²Commandl,⌕¹S@/ᓫ»N°±ᢥ²ÖÛhForm2,ᑣᢥ²ḄClick´
µéN(A)A)PrivateSubCommandl_Click()B)PrivateSubCommandl_Click()Form2.ShowForm2.VisibleEndSubEndSubC)PrivateSubCommand1_Click()D)PrivateSubCommandl_Click()LoadForm2Form2.LoadEndSubEndSub(19)ÐᙠI®jêᙽᨵ᝞´
µ(D)PrivateSubCommandl_Click(IndexASInteger)EndSubᑣ$%&'ḄA)Iô
µ}íîᦪḄ´
µᨵïçB)ᨵ1J¬FCommand1Ḅ®jMᓫ»Ã®jᑣ᡻@ô
µC)ᨵ1J¬FCommand1Ḅñ
ᦪ4,ᦪ4ᨵJòóô
D)Iᨵ1J¬FCommandlḄñ
ᦪ4,ᦪ4ᨵJõòóô
(20)ö÷¦§ᙠÙßøùúûZ᡻@¿ö÷jḄ(C)

15A)DoWhile[ᩩ
üB)Whileீᩩ
>ö÷j
LoopWendC)DoD)DoUntilீᩩ>ö÷j
LoopUntilீᩩ
ுLoop(21)ᙠᨵ1CdlḄᵨ᪾ᙠᡭᦻ᪾ᑣᙠ!"#ᵨḄ$%&(A)A)Cdl.Action=2B)Cdl.Action=lC)Cdl.ShowSave=TureD)Cdl.ShowSave=0(22)'☢ᐵ*+ᓫḄ-./┯1Ḅ&(B)A)ᔜ3+ᓫ/Ḅᡠᨵ+ᓫ⚗Ḅ6789:B);:<+ᓫ/Ḅ+ᓫ⚗6789:=>;<+ᓫ/Ḅ+ᓫ⚗6?@A;C)BCD+ᓫEᵨ+ᓫFGᘤFG(23)IJᨵ'☢ḄK(D)PrivateSubproc1(aAsInteger,bAsString,OptionalxAsBoolean)EndSubLMNᵨOKḄ$%&A)Callprocl(5)B)Callprocl5,”abcn,FalseC)procl(12,,\abc"True)D)proc15,"abc”(24)ᙠᨵ:ᦻ6TextlḄᦻP᪾Q16Command1ḄRSᢥU⌕Wᙠ᡻YᓫZRSᢥU:[ᦻP᪾ᔣ]^_:`ab஺'☢deLMfg.hdḄ&(C)A)PrivateSubCommand1_Click()B)PrivateSubCommand1_Click()Textl.Left=100Textl.Left=Textl.Left-100EndSubEndSubC)PrivateSubCommand1_Click()D)PrivateSubCommand1_Click()Text1.Move.Text.Left+100Textl.Move.Text.LeftEndSubEndSub(25)ijkl1nᐸ/Ḅ6Forml;pqrst1Form2Ḅuvw᡻ᐜyzForm2{|}◤⌕Ḅn&(A)A)ᙠnឋ᪾/“_”Form2B)ᙠFormlḄLoadK/tᐭ$%LoadForm2C)ᙠForm2ḄLoadK/tᐭ$%Form2.ShowD)ᙠForm2ḄTabindexឋ1,FormlḄTabindexឋ2

16(26)ᨵ16TextlḄᦻP᪾Q16Command1ḄRSᢥU஺⌕W,ᓫZRSᢥU?@ᦻP᪾/Ḅᑁᑏᑮᦻout.txt/Y[ᑏᐭḄᑁ▬tᑮᦻᨵᑁp'☢defg.hdḄ&(C)A)PrivateSubCommandl_Click()B)PrivateSubCommandl_Click()Open“oul.txt”ForInpitAs#lOpen“out.txt"ForOutpitAs#lPrint#1,Textl.TextPrint#1,Textl.TextClose#1Close#1EndSubEndSubC)PrivateSubCommand1_Click()D)PrivateSubCommandl_Click()Open"out.txt"ForAppendAs#lOpen"out.txt"ForRandomAs#lPrint#LTextl.TextPrint#1,Textl.TextClose#1Close#1EndSubEndSub(27)1+3+5+……+99ḄijF᝞'k=ls=0Whilek<=99k=k+2:s=s+kWendPrintsᙠNgᨵ┯1◤⌕ᦋ஺'ᑡ┯1Qᦋᫀ/LMḄ&(D)A)While…Wend
$%┯1"ᦋFork=lTo99-NextkB)
ᩩ┯1"ᦋWhliekv99C)
¢Ḅ£$%k=l┯1"ᦋk=0D)
/¤ᩩ£$%Ḅ¥┯1"ᦋs=s+k:(29)ᙠᨵ16CommonDialog1Ḅᵨ᪾Q16Command1ḄRSᢥU@¦ᐸ}:§¨஺⌕WᙠᓫZCommandlᢥUᑣyzᡭᦻ᪾uᙠ⌱ªᡈ¬ᐭ1ᦻq?@ᡭᦻ஺@'&Commandl_ClickKḄ¤®¯¯1°PrivateSubCommand1_Click()CommonDialog1.ShowOpenOpenCommonDialog1.FileNameForInputAs#lEndSub¯2°PrivateSubCommand1_Click()CommonDialog1.ShowOpenIfCommonDialog1.FileNameoThenOpenCommonDialog1.FileNameForInputAs#lEndIfEndSub±☢ᐵ*²¤®¯Ḅ-./LMḄ&(B)

17A)yzᡭᦻ᪾q³´⌱ªᡈ¬ᐭµ¶ᦻᑣ¯2·C┯¯1>·B)yzᡭᦻ᪾q³´⌱ªᡈ¬ᐭµ¶ᦻᑣ¯1·C┯¯2>·C)¤®¯Ḅ᡻¸ᐰ:᪵D)¯1ᐕ¼¬ᐭḄᦻ/½ᨵ¾¿À¯2>ᐕ¼(30)ᨵ16ListḄᑡ⊤᪾ᐸ/Iìᐭ³Ä⚗Å(᝞Æᡠz)°Èᨵ2ᦻP᪾6ᑖÊTextlஹText2,16Command1ḄRSᢥUuᨵ@'PrivateSubCommand1_Click()DimstrAsString,sAsString,kAsIntegers=TextlStr="”Fork=List1.ListCount-1to0Step-1IfInStr(List.List(k),s)>0thenstr=str&List.List(k)&””EndIfNextkThenText2="ÌᨵᓛÎḄ⚗Å”ElseText2=strEndIfEndSubᙠTextl/¬ᐭ“Ï”ᓫZRSᢥUᑣᙠText2/yzḄᑁ&(C)A)ÏB)ᓅÏᓭÏC)ᓭÏD)ÌᨵᓛÎḄ⚗Å(31)ᙠÒ1:6CommandlḄRSᢥUuFᑏ@'PrivateSubCommandl_Click()Printfun("ABCDEFG")EndSubFunctionfun(stAsString)AsStringstlen=Len(st)temp=Forkfun=tempEndFunctionᓫZRSᢥUᑣyzḄ&(B)A)ABCDEFGB)AGBFCEC)GFEDCBAD)AGBFCED

18(32)ᙠᐜqÒ2Æᱏ᪾6ᑖÊPicture1Qbanana,banana/st✏ⅥÆᱏ(ÖÆ1),×Øbanana.DragModeឋ1஺⌕W?@ᵨÙ᪗bananaÛÜᑮPicture1/(ÖÆ2)஺dfgOhdḄK&(C)A)PriateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSinglebanana.MovePicture1.Left+X,Picture1.Top+Y)EndSubB)PrivateSubbanana_DragDrop(SourceAsControl,XAsSingle,YAsSingle)Source.MovePicture1.Left+X.Picture1.Top+YEndSubC)B)PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)Source.MovePicture1.Left+X.Picture1.Top+YEndSubD)B)PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)banana.Movebanana.Left+X,banana.Top+YEndSub(33)ᙠÒ16CommandlḄRSᢥUᯠqFᑏ᝞'KOptionBase1PribateSubCommand1_Click()Dima(5.5)AsIntegerFori=lTo5a(I,j)*5\10NextjNextiS=0Fori=lTo5S=s+a(i,i)NextiPrintsEndSubqᓫZRSᢥU¬C&(A)A)15B)13C)llD)9(34)ᙠÞßᑮ]ᨵTextlஹText2¤ᦻP᪾(ÖÆ)⌕WᙠText1/¬ᐭ1ᑖᦪqᢥáâãᑣᑨåᑖᦪḄᔠ¯ឋ³ᑖᦪ0~100/Ḅ1ᦪᕜèᐝ᪗^ᑮText2/êᔲᑣᐝ᪗>_uBC᪾yz“ᑖᦪ┯”'☢/LMḄ&(D)A)PrivateSubTextl_KeyPress(KeyAsciiASInteger)IfKeyAscii=13Then'áâíḄACSIIṹ&13a=Val(Textl)Ifa>=0ora<=100Then

19Text2.SetFocusElseTextl.SetFocus;MsgBox(“ᑖᦪ┯”)EndIfEndIfEndSubB)PrivateSubTextl_KeyPress(KeyAsciiASInteger)IfKeyAscii=13Then'áâíḄACSIIṹ&13a=Val(TextI)Ifa>=0Anda<=100ThenTextl.SetFocusElseText2.SetFocus;MsgBox(“ᑖᦪ┯”)EndIfEndIfEndSubC)PrivateSubTextl_KeyPress(KeyAsciiASInteger)IfKeyAscii=13Then'áâíḄACSIIṹ&13a=Val(Textl)Ifa<0Anda>100ThenText2.SetFocusElseTextl.SetFocus;MsgBox(“ᑖᦪ┯”)EndIfEndIfEndSubD)PrivateSubTextl_KeyPress(KeyAsciiASInteger)IfKeyAscii=13Then'áâíḄACSIIṹ&13a=Val(Textl)Ifa>=0Anda<=100ThenText2.SetFocusElseText1.SetFocus;MsgBox(“ᑖᦪ┯”)EndIfEndIfEndSub(35)ᙠÒ2RSᢥU6ᑖÊCommandscommand2,uFᑏ᝞'Constn=5,m=4Dima(m,n)PrivateSubCommand1_Click()K=IFori=1TomForj=lTon

20a(i,j)=kk=k+lNextjNextiPrivateSubCommand2_Click()Summ=OFori=lTomForj=lTonIfi=lOri=mThenSumm=summ+a(i,j)ElseIfj=IOrj=nThenSumm=summ+a(i,j)EndIfEndIfNextjNextiPrintsummEndSub$%Commandl_Click()Ḅ'ᵨ)*+ᦪ-a./012m3nᑡḄ5▣;$%Command2_Click()Ḅ'ᵨ)(A)A)9:5▣᜜<=ᙌᐗ@ḄABCB)9:5▣◀᜜=ᙌF᜜Ḅᡠᨵᐗ@ḄABCC)9:5▣I1ᑡCᨬK=ᑡᐗ@ḄABCD)9:5▣I13CᨬK=3ᐗ@ḄABC*ஹNO⚪(QO2ᑖSᐳ30ᑖ)WXQ=2OḄYZ[ᫀᑏᙠ[⚪_`a1ba15defḄgh`S[ᙠiᔁᓃ[ᙠiᔁ`lmᑖSnopFqrᐵtuNOḄvwᑏx᦮(1)ᙠz{|7Ḅ~*᪛.S{|2Ḅ2ᦪ|ߟ63஺(2)iᑖ|()iC()iSᑜᑖ—(ᡈ)i஺(3)ᙠᦪ.Sᔜᦪᳮ¡Ḅ᪶£¤|ᦪᳮ(DBMS)஺(4)§qᕜ©ªᑖ|«2▤S=®ᑖ|¯°▤ஹ±²▤C+³▤஺´ṹCi±²▤஺(5)ᙠ᪀ᓄᑖ᪆¹ᵨḄᦪº»(DFD).Sᑭᵨᦪuᐺ¾ᐸ.Ḅ»Àᐗ@Á3ZᑗÃÄ஺(6)1++++…….nᨬᜧḄn஺WNO

21PrivateSubCommand1—Click()Dims,m,nASIntegerm=Val(InputBox(“WÉᐭ=2ᜧ100Ḅ᦮ᦪ”))n=0s=0DoWhilesN=n+1S=s+n*nLoopPrint“~ÌlÍḄᨬᜧn)n-1EndSub(7)Î☢%eḄ¡)ÐᦻfilelLtxt.ÒÓuÔÕᣵK(ᓽØᨵ«2uÔÙÚSᑣÜÝᶇ12)ᑏᐭᦻfile2.txt஺WNO஺PrivateSubCommand1_Click()DimincharASString,tempASString,outcharASStringOutchar="”Open="filel.txt"ForInputAS#1Open=>>file2.txtvForOutputAS#2n=LOF(1)inchar=Input$(n,1)Fork=1Tontemp=Mid(inchar,k,1)IfInStr(outchar,temp)=0Thenoutchar=outchar&tempEndIfNextkprint#2,outcharclose#2close#1EndSub(8)ᙠßà`ᐜâ12ã|TextlḄᦻä᪾Cæ2ã|Label1Ḅ᪗èSéâ12ã|OP1Ḅᨵ42ᓫ⌱ᢥíᦪ-SᐸIndexឋᢥï{ðe|0s3(ñ»1)஺ᙠᦻsales.txt.ᢥᨴóðe/ᨵôõöô÷122ᨴḄ├ùú஺⌕üᙠ%e᡻3þSÿ᪗ᓫ1ᓫ⌱ᢥᑣTextlḄ├,Ḅᦻᙠ᪗஺2ᓫ“!3”ᓫ⌱ᢥ#$Ḅ%&஺'()஺Dimsales(12)AsLongPrivateSubForm_Load()openasales.txt”ForInputAS#1Fork=lTo12Input#l,sales(k)NextkClose#1EndSub

22PrivateSubOpl_Click(Index,ASInteger)DimsumASLong,kASIngeger,monthASIngegersum=0month=Index*3Fork=lTo3month=month+lsum=sum+sales(month)NextkLabel1.Caption=Opl(Index).Caption&”├,”Textl=sumEndSub(9)-./ᑏ᝞23ᦪᩭᑨ7aᔲ9:ᦪ;ᑣ3ᦪ<=True>ᔲᑣ<=FalseFunctionPrime(aAsInteger)ASBooleanDimkAsInterger,isprimeASBooleanIfa<2Thenisprime=FalseElseisprime=Truek=2DoWhilekIfaModk=0Thenisprime=FalseELSEk=k+lEndIFLOOPEndIfprime=isprimeEndFunctionᙠ?@ABCᨵ1E:ᦪFGᑨ79:ᦪH┯ᑨḄᦪ42007J4ᨴᐰMNOPQRὃ@TRVBUVW@@⚪Yᫀ⌱[⚪,1-10cdacdcabaa11-20ddbcdabadc21-30bbdcacddbc31-35bcada

23():63]^?@DBMS_B▤aᦪbcᐺ0N-I#210outcharopl_click3caption407J9ᨴᐰMNOPTRVBW@eYᫀklᑴ|oᦻplᑴq<=rstNOPTR..vᐵxyz13887330dxjzsytB⊤|,08-03-1009:50123456}~ᐹḄkᜧq᝕ksqTᚪ┡kᳮFOREVERU≆≈kᜧ$qJ¡k¢£-¢¥¦…q19¨©ª«¬᱐®¯°±...kᓭ³´zµ¶q·¸¹⌕»¼½….k¾£q¿Àὁ¾ḄÃÄkÅÆÇÈ▾Ê•.q᝞&ᡃÍᑖϽ·ÐÑ᪵..kÓÔ᧽Öq×JØᜩ2007J9ᨴᐰMNOPQRὃ@TRW@@ᔁVisualBasicUVÛÜÝN¬ὃ@AÞ90ᑖßàᑖ100ᑖá}ஹ⌱[⚪¬ãä⚪2ᑖᐳ70ᑖá2ᑡᔜ⚪AஹBஹCஹDè⌱⚗êᨵ}⌱⚗ëìḄ஺'íëì⌱⚗(îᙠY⚪ᓱðñYᙠ@ᔁòóᑖ஺¬1áôõᢣAÛÜBÛÜ÷ᦻ᫏COùúᦪb%᪀DÛÜஹᦪbüᐵᦻ᫏Ḅý᦮ÿᔠ
2ḄḄA┯Bᦋ┯CᦋᗐḄឋDḄឋ
3ᙠ☢ᔣ!◚#$☠AḄ&'BḄ(᝱CḄ*+DḄᑖ-
4.ᑡ0123ᔠ456789:;⌕=ḄA67Ḅᦔ᳛@ABᨎ@DB67ḄEFឋ5C67⌕ᨵH⌕ḄIJDKᐭᦪNO⌕ᨵPQ!5.ᑡ01ḄA67᡻SḄᦔ᳛TᦪNḄUVW᪀Yᑗ[ᐵ

24B)67᡻SḄᦔ᳛]^_`67ḄaᑴW᪀C)67᡻SḄᦔ᳛]^_`ᡠᜐᳮḄᦪNfD)ghijkl2(6).ᑡ01ḄA)ᦪNḄmnW᪀TUVW᪀HoAApḄB)ᵫ`9rsUVtuᔣfvḄUVW᪀wxᦪNḄUVW᪀AoyឋW᪀C)6789z{Ḅᦪ|A}~7UVW᪀wxᑭᵨᦪ|]ᜐᳮyឋW᪀D)ghijkl2(7)ᑈ᣸7ᙠᨬ.ḄᦪA)n(n+l)/2B)nlog2nC)n(n-l)/2D)n/2(8)AD᪛ᐳᨵ70WT801ḄWᑣD᪛ḄWᦪA)219B)221C)229D)231(9).ᑡ01ḄA)ᦪNAḄ2◤⌕Ḅ¡ᢝB)ᦪNᢈ¤Ḅ᪷¦᪗⌕¨_ᦪNḄᐳ©ª⚪C)ᦪN¬ᳮᦪND)ghijkl2(10).ᑡ01ḄA)®¯Aᐵ✌ᐜ⌕᪀⌼ᦪNḄmnᐵB)⊤QᐵḄD´⊤ᔜᐗ|Ḅ·Aᑖf¸Egᑖᡂº»ᦪN⚗C)AᐵḄ½ឋ¾⊤¿ᐵÀvD)AᐵEgᒹÂ(D´⊤(11)⌕ÄAᦻ¦᪾EgÇQ(Sᦻ¦p8ÈTrueḄ½ឋA)EnabledB)MultiLineC)MasLenfthD)Width(12)ᙠÉÊhᨵA¾TextlḄᦻ¦᪾஺Ìᐝ᪗ᙠᦻ¦᪾Î;᝞Ñᢥ.ÓÔÕ“A"ᑣÖᵨḄ×Ø6A)Form_KeyPress()B)Text1_LostFocus()C)Textl_Click()D)Testl_Change()(13)8ᙠÉÊhᨵA¾¿Command1ḄÙÚᢥÛÜA¾¿TextlḄᦻ¦᪾஺⌕=ᓫÞCommandlᢥÛÎEßᐝ᪗àᑮᦻ¦᪾஺.☢Ḅ×Ø6A)PrivateSubCommandl_Click()B)PrivateSubTextl.GotFocusCommand1.GotFocusEndSubEndSubC)PrivateSubCommand1_Click()D)PrivateSubTextl.SetFocusCommandl.SetFocusEndSubEndSub(14)᡻Sg.67âKãḄPrivateSubCommand1_Click()Ch$="AABCDEFGH”PrintMid(Righ(ch$,6),Len(left(ch$,4)),2)EndSubA)CDEFGHB)ABCDC)FGD)AB(15)8ᙠÉÊFormlhᨵAᑡ⊤᪾Listl,ᐸᨵº»⚗஺⌕=ᓫÞᑡ⊤᪾åA⚗Î;ß⚗ÇQᙠÉÊhḄ×Ø6

25A)PrvateSubListl_Click()B)PrivateSubForml_Click()PrintList1.TextPrintList1.TextEndSubEndSubC)PrivateSubListl_Click()D)PrivateSubForml_Click()PrintForm1.TextList1.PrintList1.TextEndSubEndSub(16)ºÉÊhḄæᱏ᪾ᨵAÙÚᢥÛᑣxᢥÛḄLeft½ឋᢣA)ᢥÛéêᑮÉÊéêḄëìB)ᢥÛéêᑮæᱏ᪾éêḄëìC)ᢥÛíᑮÉÊéêḄëìD)ᢥÛíᑮæᱏ᪾éêḄëì(17)Ä67îSÎïᵨð᪾CD1hÇQḄ᪗⚪“ð᪾Éò”ºïØ678È᪗⚪ᑣpÄᵨḄzôA)CDl.DialogTitle="ð᪾Éò”B)CDl.Action="ð᪾Éò”C)CD1.FileName="ð᪾Éò”D)CD1.Filter"ð᪾Éò”(18)ᙠÉÊhᨵ᝞öæᡠQḄaᔜaḄ¾¿Tᐸ᪗⚪[÷øᨵ᝞.67ùPrivateSubForm_Load()Command2.Enabled=FalseCheckl.value=lEndSubúîS67ÎûᑮḄÉÊ᜜ýù(19)8ᙠÉÊᨵA¾¿ListlḄᑡ⊤᪾ᐸᨵº»⚗(᝞æ)஺⌕=⌱å⚗âᓫÞCommand1ᢥÛᑤ◀⌱Ḅ⚗ᑣḄA)PrivateSubCommand1_Click()Listl.ClearEndSubB)PrivateSubCommand1_Click()List1.ClearListl.ListindexEndSubC)PrivateSubCommand1_Click()Listl.RemoveitemListl.ListindexEndSubD)PrivateSubCommand1_Click()Listl.RemoveitemEndSub(20)᝞ᵨᩭ7!(7Ḅ▤)PrivateSubCommand1_Click()t=0Fork=7To2Step-1t=t*kNextPr⊈tEndSub᡻"#$%&'┯)Ḅ☢Ḅ+ᦋ-ᫀ/01ᑮ&᪀Ḅ

26A)5t=0ᦋ6t=lB)5Fork=7To2Step-1ᦋ6Fork=7To1Step-1C)5Fork=7To2Stip-1ᦋ6Fork=lTo7D)5Nextᦋ6Nexik(21)789:;ᨵ7=>?@Ḅᓫ⌱ᢥC⌕5EFᦋ6G>ᓫ⌱ᢥCᦪIᙠKឋ8M◤⌕OP◤⌕Q"ḄRSA)5ᡠᨵᓫ⌱ᢥCḄIndexKឋᦋ6U@VB)5ᡠᨵᓫ⌱ᢥCḄIndexKឋᦋ6WXḄ?@VC)5ᡠᨵᓫ⌱ᢥCḄCaptionKឋVᦋ6U@D)5ᡠᨵᓫ⌱ᢥCḄYZᦋ6U@O5EFḄIndexKឋᦋ6WXḄ?@V஺(22)89\ᨵᦻ^᪾Textl`G>aᓫaᓫ᪗⚪ஹYZ᝞⊤&᪀fg஺⌕h᡻"#ᓫi“kl”aᓫ⚗ᑣ5ᐸ᪗⚪opᙠTextlᦻ^᪾஺☢qr%st/Ḅu᪗⚪YZᦻfilevwnewklsaveA)PrivateSubsave_Click()B)PrivateSubsave_Click()Textl.Text=file.save.CaptionText1.Text=save.CaptionEndSubEndSubC)PrivateSubfile_Click()D)PrivateSubfile_Click()Text1.Text=file.save.CaptionText1,Text=save.CaptionEndSubEndSub(23)ᙠ89\xG>YZ6TimerlḄ#ᘤ`G>YZ6LabḄKឋz6Enabled=True,Interval,{᝞஺|}ᙠ~2ᙠ᪗\opG#஺PrivateSubTimerl_Timer()LabelI.Caption=Time$EndSubᙠ᡻"#$%/r%I■:ḄḄ+ᦋA)Kឋ8M5#ᘤḄIntervalKឋz62000B)Kឋ8M5ᘤḄEnabledKz6FalseC)5ḄLabell.Caption=Time$ᦋ6Timerl.Interval=Tims$D)5ḄLabell.Caption=Time$ᦋ6Label1.Caption=Timerl.Time(24)ḄShapeKឋᨵ6Vᑖ⊤6g஺ᑡ?K¡¢6gḄ(25)☢ᐵ¡ᦻḄ¤┯)ḄA)¥¦ᦻᔜᩩ©ªḄ«¬U@ḄB)ᡭ¯¥¦ᦻ#°ᵨḄᦻl-±²RandomC)ᔣ¥¦ᦻᑏᦪµ¶ᵨPrint#ᦻ·D)ᡭ¯¥¦ᦻ¸ᡭ¯¹ᦻG᪵»¶ᵨOpen(26)89\ᨵG>gᱏ᪾Picturel,⌕ᙠ½"¾¿ᐭᦻᜳḄgᦻFilel.jpg,/r%st/ḄA)Picturel.Picture=''Fliel.jpgB)Picturel.Picture=LoadPicture(wFile1.jpgw)C)LoadPicture("Filel.jpg")

27D)CallLoadPicture(wFile1.jpg)(27)☢᡻"#ᙠ89\opḄPrivateSubCommandl_Click()Dima(10)Fork=1To10a(k)=11-kNextkPrinta(a(3)\a(7)Moda(5))EndSubA)3B)507(28)6Âᑮ5aஹbḄVÃᣚÅḄḄ{᝞uPrivateSubCommand1_Click()a%=10:b%=20CallswÆ(a,b)Printa,bEndSubPrivateSubswap(ByValaAsInteger,ByVaibAsInteger)c=a:a=b:b=cEndSubᙠ½"#$%&'┯◤⌕+ᦋ஺☢ᑡḄ┯)ÇÈ`+ᦋ-ᫀḄA)ÉᵨswapḄ┯)ᦋ6CallswÆa,bB)┯),ᦋ6uPrint"a““b"C)Ḅ±Ëᦪᨵ┯ᦋ6uswap(ByRefaAsInteger,ByRefbAsInteger)D)swap3ᩩÌVḄ¹┯)Ḅᦋ6a=b:b=c:c=a(29)ᨵ᝞ÍᦪuFunctionfun(aAsIntegersAsInteger)AsIntegerDimmAsIntegerWhilea>=na=a-nm=m+1Wendfun=mEndFunction²ÍᦪḄÎÏVA)aÐnḄÑB)aÒMnḄ`C)aÓnḄÔD)a◀ÐnḄᖪ(?Ö×ᦪØᑖ)(30)☢Ḅ&'PrivateSubCommand1_Click()ch$=,,ABCDEF,procchPrintchEndSubPrivateSubproc(chAsString)S=""

28Fork=Len(ch)ToIStep-1s=s&Mid(ch,k,l)Nextkch=sEndSubA)ABCDEFB)FEDCBAC)AD)F(31){ᑏG>/0ÎÏᦪIa10>ᦪᨬᜧᦪḄÍᦪṹ᝞uFunctionMaxvalue(a()AsInteger)AsIntegerDimmax%max=lFork=2To10Ifa(k)>a(max)Thenmax=kEndIfNextkMaxvalue=maxEndFunction½"#$%ÍᦪḄÎÏV┯Ḅ◤⌕+ᦋ☢Ḅ+ᦋ-ᫀḄA)max=1ᦋ6max=a(l)B)Fork=2Tol0ᦋ6Fork=lTolOC)IfḄᩩa(k)>a(max)ᦋ6a(k)>maxD)Maxvalue=maxᦋ6Maxvalue=a(max)(32)ᙠ89\xG>YZ6CommandlḄÜÝᢥC{ᑏÐuPrivateSubCommand1_Click()Dimn%,b,tt=lub=l:n=2Dob=b*nt=t+bn=n+1LoopUntiln>9PrinttEndSubsG>⊤±ḄV²⊤±A)9!B)10!C)1!+2!+…+9!D)1!+2!+-+10!(33)ᨵG>YZ6FormlḄ89\☢ÞᨵᨵÐß.(ᐸ-áPsel(X,Y)Ḅt/ᙠᙶ᪗X,YᜐxG>ä)uDimcmdmaveAsBooleanPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)cmdmave=TrueEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfcmdmaveThenForml.Pset(X,Y)

29EndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)cmdmave=FalseEndSubsḄt/A)~ᢥå᪗æGᙠå᪗ᡠᢣèzxG>äB)ᢥå᪗æᑣᙠå᪗ᡠᢣèzxG>äéê¯å᪗æᑣsäëᜫC)?ᢥå᪗æíîïå᪗ᑣðå᪗îïḄñòxGᩩóD)ᢥå᪗æîïå᪗ᑣðå᪗îïḄñòxGᩩóê¯å᪗æᑣ&ôxó(34)☢ḄÍᦪfun,t/ÎÏËᦪaᦪVḄèᦪFunctionfun(aAsInteger)AsIntegerDimn%n=1Whilea\10>=0n=n+1a=a\10Wendfun=nEndFunctionᙠÉᵨ²Íᦪ#$%ÎÏḄ&'?Íᦪ◤⌕+ᦋ☢Ḅ+ᦋ-ᫀḄA)5n=1ᦋ6n=0B)5õöᩩa\10>=0ᦋ6a\10>0C)5a=a\10ᦋ6a=aModlOD)5fun=nᦋ6fun=a(35)ᙠ89\.ᨵG>YZ6ChecklḄ÷⌱᪾ᦪI(Ö4>÷⌱᪾)øᨵG>YZ6TextlḄᦻ^᪾ùúᑁü6ý஺½"#ᓫiþ÷⌱᪾ᑣ5ᡠᨵ⌱Ḅ÷⌱᪾Å☢Ḅ-ÿᑡᙠᦻ᪾()஺☢ḄA)PrivateSubCheckl_Click(IndesAsInteger)Textl.TextFork=0To3IfCheckl(k).value=1ThenText1.Text=Text1.Text&Check1(k).Caption&""'EndIfNextkEndSubB)PrivateSubCheckl_Click(IndexAsInteger)Fork=0To3IfCheckl(k).value=1ThenTextl.Text=Textl.Text&Checkl(k).Caption&…IEndIfNextk

30EndSubC)PrivateSubCheck1_Click(IndexAsInteger)Text1.Text!"”Fork=0To3IfCheckl(k).value=1ThenText1.Text=Text1.Text&Check1(Index),Caption&""'I$$EndIfNextkEndSubD)PrivateSubCheck1_Click(IndexAsInteger)Textl.Text=,H,Fork=0To3IfCheckl(k).value=1ThenText1.Text=Text1.Text&Check1(k).Caption&ExitForEndIfNextkEndSub!ஹ&⚪((2ᑖ*ᐳ30ᑖ),-(Ḅ./0ᫀᑏᙠ0⚪ᓱ4Ḅ567*0ᙠ8ᔁ7:;ᑖ஺(1)<◤>?@ABCᐹᨵF᦮ឋ*IJKឋஹ./ឋஹLMNឋஹLOᦋឋQᱯS*ᐸᨬV⌕Ḅூ1௃o(2)ᙠZ[\]8^_*ூ2௃]8Ḅ`ᑣbcdNᡠ]fᙽ(chijklmn᡻pcq஺(3)6ឋ⊤Ḅstu᪀w⌕ᑖxy4stu᪀z{|stu᪀஺}ᑡc[ᱯ~Ḅ6ឋ⊤*}ᑡ}ᑡḄூ3௃stu᪀஺(4)ᑡ!᪛p4ᔊḄux[4]஺(5)ᙠE-R*⊤ூ5௃஺(6)7ᨵchᔠ᪾*ᐸᐭh⚗஺4p*ᓫᐸ⚗*ᓽL⚗ᨬ7☢Ḅc⚗ᣚ஺¡᝞£ᓫ1Ḅ“V¥”*ᑣ“ᓅ§”ᣚ*;ᑮ2Ḅu஺☢LḄ4*,&஺PrivateSubCombol_Click()Dimtemptemp=Combo1.Text[6]=Combol.List(O)Combol.List(O)=tempEndSub(7)©7ᨵchª«xHScroIIIḄ¬®¯ᩩ*⌕>±®¯ᙽ²¯³´µ*¶ᙠ7·²¯Ḅ¸¹(ᓽº³´`³´Ḅ»¼½b¾*ᔣÀ²¯x.ᦪ*ᔣ²¯xÃᦪ)஺☢LḄ4*,&ᑏ஺

31Dim[7]AsIntegerPrivateSubForm_Load()pos=HScroIII.valueEndSubPrivateSubHScroIII_Change()Print[8]-pospos=HScroIII.valueEndSub(8)©7ᨵchª«xCD1ḄÄᵨÆ᪾*chª«xTextlḄᦻ᪾zchª«xCommandlḄÇÈᢥÊ஺4᡻p*ᓫCommandlᢥÊ*ᑣËᡭÍᦻÆ᪾*ÎÏὅÑ⌱Óchᦻᦻ*ÔᓫÆ᪾7Ḅ“ᡭÍ”ᢥʵ*ᑣLᡭÍᦻᦻ*ÔÕᐭcpᦻ*ËᙠTextl஺☢Ḅ*,&஺PrivateSubCommand1_Click()CD1.Filter="ᦻᦻl*.txt(Wordᦻ᫏)*.doc”CDl.Filterinder=1CD1.ShowOpenIfCDl.FileNameo',nThenOpen[9]ForInputAs#1LineInput#l,ch$Close#1Textl.Text=[10]EndIfEndSub(9)☢Ḅ4᡻p*LØÑÙÚᐭch.᦮ᦪ*ᯠµᦪḄ(³ᦪÜᢥ⌮4·஺¡᝞£ᐭ7685,ᑣ·5867,ᐭ1000,ᑣ·0001஺,&஺PrivateSubCommand1_Click()DimxAsIntegerx=InputBox(“,ᐭch.᦮ᦪ”)Whilex>_[ll]—PrintxMod10;x=x\10WendPrint_[12]_EndSub(10)ᨵ᝞ᡠḄ஺4᡻pᐜᙠTextlᦻ᪾ᐭß*±ᯖá8¹ÍTextl*4âãßḄᔠ_ឋ*ßᔠ_*ᑣᯖáLعÍTextlᦻ᪾äᔲᑣ*ËæC┯èéê*Ôë¯⌱┯èḄÜì*íᯖá:¹ÍTextlᦻ᪾()஺ᔠ_ßḄᡂ£ï2hÜìᜧᑏñᦻÜò*ó3hÜì“-"*µ☢ᦪÜÜì(mn1h)஺☢4L*,&஺PrivateSubTextl_Lostfocus()Dimk%,n%

32n=Len([13])Fork=ltoif(n>3,n,4)c=Mid(Text1.Text,k,1)SelectCasekCase1,2Ifc<"A"Orc>HZnThenMsgBox(“ó“&k&”hÜìõöᜧᑏÜò÷”)SetPositionkExitForEndIfCase3ThenMsgBox("ó“&k&”hÜìõöÜì)SetPositionkExitForEndIfCaseElseIfc<"0"Orc>H9nThenMsgBox("ó“&k&”hÜìõöᦪÜ÷”)SetPositionkExitForEndIfEndSelectNextkEndSubPrivateSubSetPosition(posAsInteger)Text1.SelStart=pos-1Text.SelLength=[14]Text1.[15]EndSub2007ø9ᨴᐰûüýþQÿὃ
VBὃᫀஹ⌱⚪1-5DBCAA6-10CCABA11-15BDCCA16-20BAACA21-25DBABC26-30BDCDB31-35DCDBAஹ⚪1ஹឋ

332ஹ
3ஹ4ஹACBDFEHGP5ஹ6ஹCombol1.List(Combol1.Listindex)7ஹpos8ஹHScrollLvalue9ஹCDl.FileName10>ch11ஹ1012>x13>Text1.Text14ஹ115ஹSetFocus20049ᨴᐰ!"ὃ
VB#$%

⚪&ᫀ!ὃ
'(
)*+ᦈ-.⚓2004/ফ1512.ᦻஹ⌱⚪(প6(2078⚪2ᑖ:(21)6(30);8⚪3ᑖ:ᐳ70ᑖ=ᑡᔜ⚪A)ஹB)ஹC)ஹD)@A⌱⚗C:DᨵA⌱⚗FGHḄ:JKGH⌱⚗Lᙠ⚪ᓱOPQRS:ᙠ
ᔁSUVᑖ஺(1)XYSᨵAᦻ.᪾:[\]textl,+^_`:⌕bcᦻ.᪾Ddefgh:UdijkᐭḄgh:m=dncopḄ#qFA,Text1.MaxLength=0B.Text1.Enabled=FlaseC.Text1.Visible=FlaseD.Textl.Width=0(2)m=dᙠYFormlḄ᪗⚪sCef“VisualBasicY”Ḅ#qFA.Forml.Name=nVisualBasicY”B.Form1.Title=HVisualBasicY"C.Form1.Caption="VisualBasicY”D.Form1.Text=MVisualBasicY”(3)ᙠYSvA[\]TextlḄᦻ.᪾:ᯠ`vA[\]HScroll1Ḅxyᩩ:ᐸMin|Max}ឋᑖ~]0|100஺+^_`:᝞yxy᪾:ᑣᙠᦻ.᪾CefxyᩩḄ:᝞ᡠf஺m=dnSopḄ+FA.PrivateSubHscrolll_Change()Textl.Text=HScroll1.ValueEndSubB.PrivateSubHscrolll_Click()Text1.Text=HScroll1.ValueEndSubC.PrivateSubHscrolll_Change()Text1.Text=Hscroll1.CaptionEndSubD.PrivateSubHscrolll_Click()

34Text1.Text=Hscroll1.CaptionEndSub(4)XᓫCᨵAᓫ⚗]“Open”஺⌕]cᓫXR:ᓽᢥ=Alt&0:d᡻_“Open”:ᑣᙠᓫᘤCXR“Open”ḄFA.Caption}ឋXR]&OpenB.Caption}ឋXR]O&penC.Name}ឋXR]&OpenD.Name}ឋXR]O&pen(5)ᙠYSvA[\]CommandlḄᢥ:ᯠ`ᑏ᝞=¡¢£+¤PrivateSubCommand1_Click()x=InputBox(MInputn)SelectCasexCase1,3Print”ᑖ¥1”CaseIs>4Print”ᑖ¥2”CaseElsePrint"Elseᑖ¥”EndSelectEndSub+^_`:᝞ᙠkᐭ¦§᪾Ckᐭ2,ᑣYSefḄFA.ᑖ¥1B.ᑖ¥2C.Elseᑖ¥D.+¨┯(6)m=ᐵ«MsgBoxḄ¬C:┯ḄFA.MsgBox®ᦪ°±A᦮ᦪB.³£MsgBox®ᦪ´mXRgh᪾C᪗|ᢥḄµ¶C.MsgBox#q·ᨵ°±D.MsgBox®ᦪḄ¸AᦪFA᦮ᦪ,cᦪDdHº¦§᪾CefḄᢥᦪ»(7)ᙠYSvA[\]TimerlḄᘤ¼¢:⌕b;◞0.5¾¿ÀÁᘤ¡¢:ᑣm=GHḄ}ឋXR#qFA.Timerl.Interval=0.5B.Timerl.Interval=5C.Timer.Interval=50D.Timer1.Interval=500(8)ᙠYSvA[\]CommandlḄᢥ:ᯠ`ᑏ᝞=¡¢£+¤PrivateSubCommand1_Click()StaticxAsIntegerCisFori=lTo2y=y+Xx=x+2Next

35Printx,yEndSub+^_`:ÂÃÄÁᓫÅCommandlᢥ`:YSefḄFA.42B.1218C.1230D.46(9)m=ᐵ«ÆÇY+Ḅ¬C:┯ḄFA.ᵨHideÉUÊ´m◚-Y:ÌÍdÎ◀ᑁ2CḄYB.ᙠÆÇY+C,ᔜYḄᓫFÑÒÓÔḄC.ᙠÆÇY+C,´m᪷Ö◤⌕ᢣºÙyYD.¦«ÆÇY+:◤⌕ᓫÓ12;AY(10)m=ᐵ«ᦻ¢Ḅ¬C:┯ḄFA.ᦻ¢CḄÚÛAiAᙢ2ÝB.Þ!ᦻ¢CÚÛḄßàFÞ!ḄC.᡻_ᡭâᦻ¢Ḅ`:ãyÀᡂAᦻ¢ᢣ┐D.LOF®ᦪ°±æᦻ¢ᑖçḄ⁚ᦪ(11)m=¬C┯ḄFA.¡¢£+FéPᱯº¡¢Ḅ+B.UëḄ¦ì´mᐹᨵOë[\ḄÉC.¦ìḄÉF᡻_ᢣºopḄ£+D.¦ì¡¢Ḅ[\´mᵫ+ὅᢣº(12)m=ᔠÉḄVisualBasic᪗ñòFA.ForLoopB.ConstC.9abcD.a#x(13)••Aô⌱᪾õ⌱C:öḄValue}ឋḄFA.3B.2C.1D.0(14)⊤ø5Mod3+3\5*2ḄFA.0B.2C.4D.6(15)Xx=4,y=8,z=7,m=⊤øḄFxz)OrzA.1B.-1C.TrueD.False(16)ᙠYSvA[\]Command1Ḅᢥ:ᯠ`ᑏ᝞ù.¡¢£+:

36PrivateSubCommandl_Click()a$=nVisualBasicnPrintString(3,a$)EndSub+^_`:ᓫÅᢥ:ᙠYSefḄᑁüFA.VVVB.VisC.sicD.11(17)Xᨵ᝞ù+¤x=2Fori=lTo10Step2x=x+iNext^_mS+`:xḄFA.26B.27C.38D.57(18)m=¬C┯ḄFA.ᙠKeyPress¡¢£+CUdñ~ýḄᢥ=þÿB.ᙠKeyPressC.ᙠKeyDownKeyUpᐭḄ”A““a”ḄD.ᙠKeyDownKeyUpᜧᐭḄT!"ᐭḄT#Ḅ$(19)᡻&᝞()ᩩ+,-./0Ḅ1a=9.8596PrintFormat(aj$00,00.00”)A.0,009.86B.$9.86C.9.86D.$0,009.86(20)ᙠ-.345678CommandDialog1Ḅ9ᵨ;<᪾45678Command1Ḅ>?ᢥA஺ᯠDEᑏ᝞(.HPrivateSubCommand1_Click()CommonDialogl.FileName=nnCommonDialog1.Filter="AllC.P.Docl(*.Txt)l*.TxtHCommonDialog1.Filterlndex=2CommonDialog1.DialogTitle="VBTest"CommonDialogl.Action=1EndSub;IJ5KL(MN┯PḄ1A.Q;<᪾#RS8“ᡭU”;<᪾

37B.ᙠQ;<᪾ᢣXḄYZᦻ68\C.Q;<᪾Ḅ᪗⚪8VBTestD.ᙠQ;<᪾ᢣXḄYZᦻ_`8ᦻaᦻ(*.Txt)bcIHdefghὃj21)R45kᵫ)5-.mᡂᐸ67ᑖ8FormlForm2,ᙠFormlᨵ•5678Command1Ḅ>?ᢥA஺-.FormlḄKsṹ᝞(HPrivateSubCommandl_Click()DimaAsIntegera=10Callg(Form2,a)EndSubPrivateSubg(fAsForm,xAsInteger)y=IIf(x>10,100,-100)uShowf.Caption=yEndSubv&LKwxḄyz1A.FormlḄCaption{ឋ}8100B.Form2ḄCaption{ឋ}8100C.FormlḄCaption{ឋ}8-100D.Form2ḄCaption{ឋ}8100(22)ᙠ-.345678Command1Ḅ>?ᢥA~Eᑏ᝞(KHPrivateSubCommandl_Click()DimxAsIntegerStaticyAsIntegerx=10y=5Callfl(x,y)Printx,yEndSubPrivateSubfl(ByRefxlAsInteger,ylAsInteger)x1=x1+2yl=yl+2EndSubKv&Dᓫ>?ᢥAᙠ-./0Ḅᑁ1A.105B.125C.107D.127(23)Rᨵ᝞(KOptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerDimnAsInteger

38n=InputBox("ᐭᦪ”)Ifn<10ThenCallGetArray(a,n)EndIfEndSubPrivateSubGelArray(b()AsInteger,nAsInteger)Dimc(10)AsIntegerj=0Fori=1Tonb(i)=CInt(Rnd()*100)Ifb(i)/2=b(i)\2Thenj=j+lc(j)=b(i)EndIfNextPrintjEndSubL(MN┯PḄ1A.ᦪmbḄᏔᦪ#ᙠᦪmcB.Kv&yDᙠ-./0Ḅ1cᦪmᐗḄ5ᦪC.GetArrayḄᦪn1ᢥ}〈ḄD.᝞zᐭḄᦪᜧI10,ᑣ-./0/0(24)ᙠ-.345678CommandlḄ>?ᢥAᯠDEᑏ᝞(:OptionBase1PrivateSubCommand1_Click()Dimaa=Array஺,2,3,4,5)Fori=IToUBound(a)a(i)=a(i)+i-lNextPrinta(3)EndSubKv&Dᓫ>?ᢥAᑣᙠ-./0Ḅᑁ1A.4B.5C.6D.7(25)▅KOptionBase1PrivateSubForm_Click()Dimarr.SumSum=0arr=Array(1,3,5,7,9,11,13,15,17,19)Fori=lTo10

39Ifarr(i)/3=arr(i)\3ThenSum=Sum+arr(i)EndIfNextiPrintSumEndSubKv&Dᓫ-.yz8A.13B.14C.27D.15(26)ᙠ-.345678FilelḄᦻᑡ⊤᪾~Eᑏ᝞(KHPrivateSubFilel_DblClick()x=Shell(Filel.FileName,l)EndSubL(ᐵIQKḄMN┯PḄ1A.xᨵ▭ᵨ,LQ+,ᑏ8:CallShell(Filel,FileName,l)B.ᦻᑡ⊤᪾Ḅᦻ¡QC.⌕᡻&ḄᦻḄ69Filel.FileNameᢣXD.Filel/0Ḅ1£¤¥¦ᘤஹ£¤©ª(Ḅᦻ(27)ᙠ-.345678Labellஹ᪗⚪8“VisualBasicὃj”Ḅ᪗«)567ᑖ8Command1Command2ஹ᪗⚪ᑖ8“U¬”“®”Ḅ>?ᢥAᯠD345678TimerlḄd¯ᘤ°,~±ᐸInterval{ឋRS8500,᝞²ᡠ0஺Eᑏ᝞(KHPrivateSubForm_Load()Timerl.Enabled=FalseEndSubPrivateSubCommandl_Click()Timerl.Enabled=TrueEndSubPrivateSubCommand2_Click()Timerl.Enabled=FalseEndSubPrivateSubTimerl_Timer()IfLabel1.LeftLabel1.Left=Label1,Left+20ElseLabel1.Left=OEndIfEndSubKv&Dᓫ“U¬”ᢥA᪗«ᙠ-.´¦஺;IJ5KL(MN┯PḄ1A.᪗«Ḅ´¦µᔣ8·ᔣ¸B.ᓫ“®”ᢥAD¹ᓫ“U¬”ᢥA᪗«®ḄºS»¼´¦

40C.£᪗«ᐰ¾´-.D-.Ḅ¿4ÀÁ~Âô¦D.᪗«ᢥᢣXḄ¯ÄÄ◞´¦(28)᡻&L(KÆa$="abbacddcbaHFori=6To2Step-2X=Mid(a,i,i)Y=Left(a,i)z=Right(a,i)z=UCase(X&Y&z)NextiPrintzyz8A.ABAB.BBABBAC.ABBABAD.AABAAB(29)ᙠ-.345678Command1Ḅ>?ᢥAᯠDEᑏ᝞(KHOptionBase1PrivateSubCommandl_Click()DimaAsVarianta=Array(l,2,3,4,5)Sum=0Fori=lTo5Sum=sum+a(i)Nextix=Sum/5Fori=lTo5Ifa(i)>xThenPrinta(i);NextiEndSubKv&Dᓫ>?ᢥAᙠ-./0Ḅᑁ1A.12B.123C.345D.45(30)ᎷX45kᵫ45-.ᦻForml)5᪗ÈÉᙽᦻModellËModel2mᡂ஺Modellsṹ᝞(HPublicxAsIntegerPublicyAsIntegerSubS1()x=1S2EndSubSubS2()

41y=10Form1.ShowEndShowModel2Ḅsṹ᝞(HSubMain()SIEndSubᐸSubMain#RS8̦஺Kv&DᔜÉᙽḄ᡻&ÎK1AForm1fModel1-"Model2B.Model1fModel2fForm1C.Model2fModel1-FormID.Model2->Form1-ModellbcIHdefghὃjgஹÏ\⚪(Ñ\2ᑖᐳ30ᑖ)ÓÑ\ḄwxÔᫀᑏᙠÔ⚪ᓱ[1௃Øூ15௃KÚḄÛÜÔᙠjᔁÞᑖ஺পRᨵ᝞(KÆHa$=,'BeijingShanghaiMb$=Mid(a$,InStr(a$,ngn)+l)᡻&☢ḄKÆDáâb$Ḅ}8ூ1௃OফL(KÆḄyz1[2௃஺num=0Whilenum<=2num=num+1WendPrintnum(3)-.ᨵ45678ListlḄᑡ⊤᪾45678TextlḄᦻa᪾45678LabellஹCaption{ឋ8“Sum”Ḅ᪗«45678Command1,᪗⚪8“de”Ḅ>?ᢥA஺Kv&D±1-100äÄå#7᦮◀Ḅᦪèéᑮᑡ⊤᪾஺᝞zᓫ“de”ᢥAᑣ;ListlḄᦪë&ìéí~ᙠᦻa᪾/0deyz᝞²ᡠ0஺L(1ÁNîḄKÓÏ\஺PrivateSubForm_Load()Fori=lTo100IfiMod7=0Then[3]EndIfNextEndSubPrivateSubCommand1_Click()Sum=0Fori=0To[4]Sum=Sum+[5]NextTextl.Text=SumEndSub(4)aKḄî1ᑭᵨðfᦪñᦪÉòᢗôµõ1HÑöðf÷ø450ᡈ1Ḅ᦮ᦪ£I4öᢗô1s⊤w☢0s⊤ú☢஺ᙠ-.ᨵû5ᦻa᪾67ᑖ1TextlஹText2ஹText3,ᑖᵨI

42/0ᵨᡝᐭᢗôýöᦪஹÁw☢ḄöᦪÁú☢Ḅöᦪ᝞²ᡠ0஺Kv&Dᙠᦻa᪾TextlᐭýöᦪᯠDᓫ“U¬”ᢥAᢥ᯿ᐭḄöᦪÉòᢗôᑖÿ
☢ஹ☢Ḅᦪ஺Ḅ஺PrivateSubCommand1_Click()Randomizen=Clnt(Textl.Text)nl=0n2=0ForI=1To[6]r=Int(Rnd*2)Ifr=[7]Thennl=nl+1Elsen2=n2+1EndIfNextText2.Text=n1Text3.Text=n2EndSub(5)▅OptionBase1PrivateSubForm_Click()Dima(3)AsIntegerPrint”!ᐭḄᦪ#Fori=1To3aপ=InputBox("!ᐭᦪ#")Printa(i);NextPrintIfa(l)t=a(l)a(l)=a(2)a(2)=[8]EndIfIfa(2)>a(3)Thenm=a(2)ElseIfa(l)>a(3)Thenm=[9]Elsem=[10]EndIfPrint”'(ᦪ:";mEndSub*+,ᓫ./0ᙠ!ᐭ23᪾'ᑖ6!ᐭ78᦮ᦪ:!
78ᦪ'Ḅ'(ᦪ᝞

43<ᡠ஺஺(6)ᙠ/0>?8@AB“Command1"᪗⚪B“F”ḄHIᢥKL>78᪗Mᐸ'58᪗MOᡂ@ABLabel1ḄQRᦪO;@ABLabel2Ḅ᪗MᵨUFᐸCaptionVឋḄXYZB[᪗MLabel3Ḅ᪗⚪B“F\*+]^_`aᡂ58bcᦪᑖ6ᙠ᪗MQRᦪOḄᔜ8᪗M'᝞<ᡠ஺ᓫ.“F”ᢥKᑣ:᪗MᦪOᔜᐗgḄZhiᯠ,FᙠLabel2o஺PrivateSubCommandl_Click()Sum=0Fori=0To4Sum=Sum+[11]Next[12]=SumEndSub(7)ᙠ/0>k8@Aᑖ6BCommandllCommand2ஹ᪗⚪ᑖ6B“XYᓄ”l“nl”ḄHIᢥK஺*+,᝞ᓫ.“XYᓄ”HIᢥKᑣ2ᦪOaḄᔜᐗgoZ[᝞ᓫ.“nl”HIᢥKᑣn
ᦪOaḄᔜᐗgplᙠᦻr᪾'
ᩭ᝞<ᡠ஺஺OptionBase1Dima(3,2)AsIntegerPrivateSubCommand1_Click()Fori=1To3Forj=1To2[13]=i+jNextjNextiEndSubPrivateSubCommand2_Click()Forj=1To3Fori=1To2s=s+[14]NextiNextjText1.Text=[15]EndSubtuUFcvwὃy?2004{9ᨴᐰ~FcwὃyvwVByy⚪ᫀ?ஹ⌱⚪(প?(20)⚪2ᑖ(21)—(30)⚪2ᑖᐳ70ᑖ)(1)B(2)C(3)A(4)A(5)C(6)D(7)D(8)B(9)A(10)B(ll)D(12)A(13)C(14)C(15)D(16)A(17)B(18)B(19)D(20)D

44(21)B(22)D(23)C(24)B(25)C(26)A(27)A(28)B(29)D(30)Cvஹ⚪(2ᑖᐳ30ᑖ)[1]"Shanghai"[2]3ூ3௃listl.additemi[4]listl.listcounl-1[5]listl.list(i)[6]n[7]1ூ8௃t[9]a(3)[10]a(l)[11]labell(i).caption[12]label2.caption[13]a(i,j)[14]a(j,i)[15]stuUFcvwὃyVV06{9ᨴvwVByy⚪ᫀ](11-04⚓ᦪ5⚓?:06{ᨴᐰ~wὃyvwVBὃᔁ(?)?:02{9ᨴvwVByy⚪ᫀ

45(1)ᑡ⌱⚗'ᔠḄ()஺A.¡⌕ᦻ᫏ᓄB.ᦪ#¤¥Ḅ⌕¦ᓄC.¨©ªᵨgoto«D.¬ᙽ⌕®¯°὚ᔠஹ°ᑁ³(2)´µ¶ᳮ¸¹ºR?»ᑖBk¼½ᡂ¾¿()஺A.ᭆ⌕ÁÂÃB.ᦪ#ÁÄÅC.ºR᪀Áᦪ#D.ÇÁᦪ#(3)ᑡ⌱⚗'VUºRaHᕜÉÊ▤ÌÍÎḄ()஺A.ºRÏyB.ᭆ⌕C.ºRÐÑD.ÂÃ(4)ᙠᦪ#ÒÓÔ'ᵨᡝᡠÖḄᦪ#¬×B()஺A.ᭆج×B.᜜¬×C.ᑁ¬×D.ᱥᳮ¬×(5)ᦪ#ÒḄ8▤Ì◤nᑖ᪆ஹᭆØஹÝÞl()஺A.ßṹB.Ïy▤ÌC.*+▤ÌD.ᱥᳮ(6)ᨵ᝞78ᐵÓ⊤ᑡäå'æḄ()஺(7)ᑡç'æḄ()஺A.?8FèḄ(éᩖ¹ᜧᑣᐸ(éᩖ¹ëìíᜧB.?8FèḄ(éᩖ¹ᜧᑣᐸ](éᩖ¹ìíC.?8FèḄ](éᩖ¹ᜧᑣᐸ(éᩖ¹ìíD.7î¤èï2(8)ᙠð¹B64Ḅᨵñឋ⊤'ò+óôõᨬ÷øù◤⌕úûḄᦪB()A.63B.64C.6D.7(9)ᦪ#ÒᢈýḄ᪷rÿ᪗
⌕ᦪḄ()஺A.⚪B.ᐳ⚪C.ᐰ⚪

46D.⚪(10)ᑡ᪛!ᔊḄ#$
()஺A.ACBDFEGB.ACBDFGEC.ABDCGEFD.FCADBEG(11)%&'()Ḅ
()஺A.*+ḄName,ឋᢣ/*+Ḅ012ᵨᩭ᪗567*+B.*+ḄName,ឋ8
9:ᙠ*+᪗⚪<ᦻ>C.?%ᙠ@ABᦋD*+ḄName,ឋḄ8D.*+ḄName,ឋ8?%EF(12)%&'┯HḄ
()஺A.ᡭJ67KLᦻMN2OPQRSᐭUVKLᨵᐵḄ*+ᦻMB.VisualBasicLN2Yᑖ[*+ᦻM\KLᦻMC.VisualBasicYᵨL]^%_`a᡻D.*+ᦻMᒹdV*+\ᐸfMḄ,ឋ(13)ga=2,b=3,c=4,ᑡ⊤iaḄ8
()஺Nota<=cOr4*c=bA2Andb<>a+cA.-1B.1C.TrueD.False(14)jᨵ᝞Ḅᵨᡝ/mnoTypeStudentnumberAsStringnameAsStringA)geASIntegerEndTypeᑣ%()qᵨVnoᡂᕒḄtṹ
()஺A.Student.name="wx”B.DimsAsStudentC.DimsAsTypeStudentD.DimsAsTypeS.name="wx"s.name="wx”15)ga=5,b=6,c=7,d=8,᡻ᑡz{|2XḄ8E()஺X=IIf((a>b)And(c>d),l0,20)A.10B.20C.TrueD.False(16)᡻%L}|2D~c$Ḅ8E()஺A)$="VisualBassicProgramming”B)$="Quick"e$=b$&UCase(Mid$(a$,7,6))&Right$(a$,12)

47A.VisualBasicProgrammingB.QuickBasicprogrammingC.QuickBasicProgrammingD.QuickBasicProgramming(17)ᙠ*+67ᦻ>᪾(ᐸ01ETextl)67᪗(ᐸ01ELabell),L@|2᝞$ᙠᦻ>᪾ᐭᢣ/Ḅ2ᑣᓽᙠ᪗9:Ḅᑁ2%?%'ḄML
()OA.PrivateSubTextl_Click()B.PrivateSubTextl_Change()Labell.Caption=Textl.TextLabell.Caption=Textl.TextEndSubEndSubC.PrivateSubLabell_Ctrange()D.PrivateSubLabell_Click()Labell.Caption=Textl.TextLabell.Caption=Textl.TextEndSubEndSub(18)ᙠ*+☢67ᢥ67᪗2ᐸ01ᑖ[ECommandlLabell,ᯠ|ᑏ᝞MLPrivateSubCommandl_Click()Counter=0Fori=lTo4Forj=6To1Step-2Counter=Counter+1NextjNextiLabell.Caption=Str(Counter)EndSubL@|2ᓫᢥ2᪗9:Ḅᑁ
A.11B.12C.16D.20(19)ᙠ*+6701ETextlḄᦻ>᪾6701ECommandlḄᢥ2ᯠ|ᑏ᝞MLPrivateCommandl_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+1Ifi>1OThenExitForNextTextl.Text=Str(n)EndSubL@|2ᓫᢥ2ᙠᦻ>᪾9:Ḅ8
()஺A.5B.4

48C.3D.2(20)ᙠ*+67ᢥ7᪗20ᑖ[ECommandlஹLabellLabe12,ᯠ|ᑏ᝞MLPrivateSubCommandl_Chick.A)=0Fori=lTo10a=a+lb=0Forj=lTo10a=a+lb=b+2NextjNextiLabell.Caption=Str(a)Labe12.Caption=Str(B.EndSubL@|2ᓫᢥ2ᙠ᪗LabellLabel29:Ḅᑁᑖ[E()஺A.1020B.20110C.200110D.11020(21)ᙠ*+•701EListlḄᑡ⊤᪾26701ELabellḄ᪗2ᑡ⊤᪾9:¢£¤¥Ḅ01஺¦ᓫᑡ⊤᪾Ḅ§7¤¥0N2V¤¥0¨ᑡ⊤᪾©ᜫ2«ᙠ᪗9:¬ᩭ஺ᑡ^()'ḄL
()஺A.PrivaleSubListl_Click()B.PrivateSubListLClick()Labell.Caption=ListLListindexLabell.Name=Listl.ListindexListl.RemoveitemListl.TextListl.RemoveitemListLTextEndSubEndSubC.PrivateSubListI_Click()D.PrivateSubListl_Click()Labell.Caption=Listl.TextLabell.Name=Listl.TextListl.RemovltemListl.ListindexListl.RemoveitemListl.ListindexEndSubEndSub(22)ᙠ*+6701ECommandlḄᢥ2ᯠ|ᑏ᝞LPrivateSubCommandlClick()DimiAsInteger,jAsIntegerDima(lOJO)AsIntegerFori=lTo3Forj=iTo3a(i,j)=(i-l)*3+jPrinta(i,j);

49NextjPrintNextiEndSubL@|2ᓫᢥ2*+9:Ḅ
®A.123B.123C.123D.123&246345258456369456

50369789(23)ᙠ*+67ᢥ201ECommand1,ᯠ|ᑏ᝞tṹOptionBase0PrivateSubCommandl_Click()D)imA(4)AsInteger,B(4)AsIntegerFork=0To2A(k+l)=InputBox(a¯ᐭ67᦮ᦪ”)B(3-k)=A(k+l)NextkPrintB(k)EndSubL@|2ᓫᢥ2ᙠᐭ±᪾ᑖ[ᐭ2ஹ4ஹ6,ᐭ#$E(A.0B.2C.3D.4(24)ᨵ%L:OptionBase1D)imarr()AsIntegerPrivateSubForm_Click()D)imiAsInteger,jAsIntegerReDimarr(3,2)Fori=lTo3Forj=lTo2arr(i,j)=i*2+jNextjNextiReDimPreservearr(1,4)Forj=3To4A)rr(3,j)=j+9NextjPrintarr(3,2);arr(3,4)EndSubL@|2ᓫ*+2¬#$E()஺A.813B.013C.712D.00

51[1]ফ[3]ভ[5][6⚓]ᡃ⌕¹ºḄ»¼½ᐭ¾¿ṹᐵᑁ02À9ᨴÂVBzÃÄÅÅ⚪\Æᫀ(11-04)04À4ᨴÂVBzÃÄÅÅ⚪\Æᫀ(11-04)03À4ᨴÂVBzÃÄÅÅ⚪\Æᫀ(11-04)04À9ᨴÂVBzÃÄÅÅ⚪\Æᫀ(11-04)06ÀÈᨴᐰÉÊÂὃÅÂVBzÃὃÌÍᔁ(6)(09-22)07À4ᨴÂVBzÃÄÅÅ⚪\Æᫀ(11-04)2006À᧡ÐÑÒÓÊÂὃÅÂVBÅᔁ⚪\Æᫀ(09-22)2004À9ᨴÂVBᢈÕÄÅÅᔁ\Æᫀ(09-22)Öx1×>ØÙx“ᩭÛÜÝ”Ḅᡠᨵß2᱐ᩗᙳ,ãäᑖäὃÅØ2᝞◤æçèᵨ2¯Ùx"ᩭÛ:äᑖäὃÅØ”஺2×>ØÙx“ᩭÛXXX(éÜÝ)”Ḅß2ᙳæçQᐸêë+2æçìḄᙠãí⌴ïð2«ñt⊤>Øòᐸóôᐸឋõö஺3᝞æᦟᦻøñùúûºḄ᱐ᩗ2¯ᩭüý2>þÿ
ᑤ◀஺III-VBIII⚪IIIᔊ⚪IIIᧇὃ᣸ᨬ20079ᨴ!"#$%ὃ&%VB20079ᨴ!"#&%VB'()20074ᨴ!"#$%ὃ&%VB20084ᨴ!"#$%ὃ&%VB069ᨴ&%VisualBasic20084ᨴ!"#$%ὃ&%VB20074ᨴᐰ,!"#$%ὃ&%20079ᨴ&%VB⚪-ᫀ(01074ᨴᐰ,!"#$%ὃVB-ᫀ20049ᨴ&%VBᢈ3)ᔁ5

52074ᨴ&%VB'()⚪5-ᫀ069ᨴ&%VB'()⚪5-ᫀ049ᨴ&%VB'()⚪5-ᫀ064ᨴ&%VB'()⚪5-ᫀ044ᨴ&%VB'()⚪5-ᫀ039ᨴ&%VB'()⚪5-ᫀ034ᨴ&%VB'()⚪5-ᫀ029ᨴ&%VB'()⚪5-ᫀ20084ᨴ!"#$%ὃ&%VB20084ᨴ!"#$%ὃ&%VB25)
6789:;Ḅ=()஺A.?@SubABCD⌕?@ExitSub'FB.?@SubABGHᨵ?@EndSub'FC.J
ᙠSubAB9LM?@FunctionABNOPQLMSubABD.Rᵨ?@FunctionABJ
TUV@WXY(26)ᨵ
6BZ[Subsubp(b()AsInteger)Fori=lTo4B.(i)=2-iNextiEndSubPrivateSubCommand1_Click()D.ima(1To4)AsIntegerA)(1)=5A)ফ=6A)ব=7A)(4)=8subpa()Fori=lTo4Printa(i)NextiEndSub^_☢ḄBZNᓫbcdᢥfNghijk()஺A.2468B.5678C.10121416D.h┯(27)mᨵ᝞6oᵨAB[PublicFunctionFun(xStrAsString)D.imtStrAsString,srtLAsIntegertStr+””strL=Len(xStr)i=lD.oWhilei<=strL/2

53tStr=tStr&Mid(xStr,i,1)&Mid(xStr,strL-i+l,l)i=i+lLoopFun=tStrEndFunctionᙠpq_r?@stkTextlḄᦻv᪾x?@stkCommand1ḄcdᢥfNᯠz{ᑏ᝞6Ḅ}~AB[PrivateSubCommand1_Click()DimSIAsStringSl=,,abcdef,Text1.Text=UCase(Fun(S1))EndSubBZ^zNᓫbcdᢥfNᑣTextl9Ḅ=()஺A.ABCDEFB.abcdefC.AFBECDD.DEFABC(28)ᙠpq_r•@stkTxtAḄᦻv᪾Nᯠz{ᑏ᝞6Ḅ}~AB[PrivateSubTxtA_KeyPress(KeyAsciiAsInteger)EndSubᎷLᯖ?ᙢᦻv᪾9NᑣQKeyPress}~Ḅ=A.ᓫb᪗B.bᦻv᪾C.᪗Aᦻv᪾D.ᢥ6_Ḅ@(29)ᙠpq_r?@cdᢥfx_ᦻqNᐸstᑖkCommand1>TextlxText2,ᯠz{ᑏ᝞6BZ[D)imSIAsString,S2AsStringPrivateSubForm_Load()Textl.Text=,,MText2.Text"'EndSubPrivateSubText!_KeyDown(KeyCodeAsInteger,ShiftAsInteger)S2=s2&Chr(KeyCode)EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)S1=S1&chr(KeyAscii)EndSubPrivateSubCommand1_Click()Textl.Text=S2Text2.Text=S1Sl="”.^7=

54EndSubBZ^zNᙠTextl9gᐭ“abc”NᯠzᓫbcdᢥfNᙠᦻv᪾TextlxText29Ḅᑁᑖk()஺A.abcxABCB.abcxabcC.ABCxabcD.ABCxABC(30)
6¡¢:;Ḅ=()஺A.£¤¥᎛§J
oA᡻“©ᐹ”«ᓫ9Ḅ“«ᓫ{¬ᘤ”cdᡭ¯«ᓫ{¬ᘤB.°ᨵ±@pqk±²³´pq¥NµQᡭ¯«ᓫ{¬ᘤC.£¤¥᎛§J
oAᓫb᪗¶©ᐹ_Ḅ“«ᓫ{¬ᘤ”ᢥfᡭ¯«ᓫ{¬ᘤD.°ᨵ±·ṹp¹k±²³´pº¥NµQ»¯«ᓫ{¬ᘤ(31)ᙠpq_r?@oᵨ¼½᪾NᐸstkCommonDialogl,ᯠzr?@cdᢥfN¾{ᑏ᝞6}~AB[PrivateSubCommand1_Click()CommonDialogl.Filter[”AUFiles(*.*)l*.*TextFiles?,&_"(*.txt)l*.txtlExecutableFiles(*.exe)l*.exe”CommonDialogl.Filterindex=3CommonDialogl.ShowOpenMsgBoxCommonDialogl.FileNameEndSubBZ^zNᓫbcdᢥfN¿?@“ᡭ¯”¼½᪾NÀ¥ᙠ“ᦻ~Á”᪾9Ḅ=()஺A.AllFiles(*.*)B.Textfiles(*.txt)C.ExecutableFiles(*.ext)D.P;L(32)
678┯ÃḄ=A.?@©B9J
ᒹÅV@pqᦻ~B.ᙠ?@pqᦻ~9ᵨPublicLMḄoᵨABPQÆᐸÇpqRᵨC.pqx᪗¶ᙽ◤⌕ᑖÊËkPÌÁÂḄÍᦻ~D.ᵨDimLMḄpqÎÏаQᙠÑpq9Òᵨ33
6789┯ÃḄ=()A.'F“Dima,bAsInteger"ÓÔÕ@᦮ÂÏÐB.PQᙠ᪗¶ᙽ9LMStaticÂÏÐC.pqÎÏÐGHᐜÓÔNzÒᵨD.ᙠ}~ABᡈoᵨABᑁLMḄÏÐ=ÙÚÏÐ34mᨵ'F[Open"d:\Text.txt"ForOutputAs#1,
6789┯ÃḄ=()A.Üd᪷Þ6ßText.txtᦻ~NᑣÑ'FàáÀᦻ~B.ᵨÑ'FáâḄᦻ~Ḅᦻ~ãk1C.Ñ'Fᡭ¯d᪷Þ6?@ËᙠḄᦻ~Text.txt,äzåJ
æᦻ~9çèD.᡻Ñ'FzNåJ
oAPrint#'Fᔣᦻ~Text.txt9ᑏᐭ35
6789┯ÃḄ=()A.êZᦻ~9Ḅᦪì°QᢥêZçᑏB.¼Ì?@ᦻ~NJ
ᵨPÌḄíîxPÌḄᦻ~ãᡭ¯

55C.᡻Close'FNJ¿ᦻ~ïðñ9Ḅᦪìᑏᑮᦻ~9D.ó#ᦻ~9ᔜõÞḄö÷=ó#Ḅ&ஹùú⚪(ûú2ᑖNᐳ30ᑖ)ý¿ûúḄ:;-ᫀᑏᙠ-⚪ᓱூ1௃~ூ15௃Ḅᙠᔁᑖ஺1ᑡ᪀Ḅூ1Jo2[2]Ḅ!"#$ᦋ&'(Ḅ┯*஺3+,ᐵ⊤Ḅ/0ூ3L4ᢥ“ᐜ456”8ᑣ:;ᦪ=Ḅᦪ=᪀![4]o5ᦪ=᪀ᑖឋ᪀$@ឋ᪀ABḄCᑡDEூ5௃஺6FG"X!HE100Ḅ@I᦮ᦪ"ḄVisualBasic⊤LM!ூ6L7ᙠNOᨵ+•,R0Command1ḄSTᢥU$+,R0TextlḄᦻW᪾஺'Y/5Command1Ἥᵨ(ᮞ⁐)`a᝞cᙠᦻW᪾(dᐭfgᑣSTᢥUCommand1hiᵨ஺jkl஺PrivateSubForm_Load()C)Ommand1Enabled=FalseEndSubPrivateSubTextl_[7]()C)ommand1Enabled=TrueEndSub8ᙠNOm+,R0"Command10ḄSTᢥUᯠ5oᑏ᝞qr'sPrivateSubCommandl_Click()D)ImaAsStringA)="123456789”Fori=lTo5PrintSpace(6-i);Mid$(a,[8],2*i-l)NextiEndSub'Y/5ᓫuSTᢥUNOḄd6c!5456345672345678123456789jkl஺9v'Ḅwx!sy•z:A(Ḅ100,ᐗ|ᑖ}~zᦪ:BḄ,ᐗ|ᡭᓺ6ᩭ,

56⌕A(1)ljA(10)~B(1,1)IB(1,10),A(11)IA(20)~B(2,1)ljB(2,10),,A(91)UA(100)~B(10,1)ljB(10,10)ojkl஺OptionBase1PrivateSubForm_Click()D)imiAsIntegerJAsIntegerD)imA(1To100)AsIntegerD)imB(1To10,1To10)AsIntegerFori=lTo100A)(i)=Int(Rnd*100)NextiFori=lTo[9]Forj=lTo[10]B)(i,j)=[11]PrintB(i,j);NextjPrintNextiEndSub10ᙠNOm-+,R0Combo1Ḅ:ᔠ᪾ᯠ5m,R0ᑖ}Label1ஹLabel2,᪗⚪ᑖ}“R0”$lḄ᪗஺'Y/5ᙠ:ᔠ᪾(dᐭ•,⚗ᢥ᝞cdᐭḄ⚗ᙠ:ᔠ᪾Ḅᑡ⊤(ᙠᑣyᐸ¢£ᑮ:ᔠ᪾Ḅᑡ⊤(ᙠLabel2(6¥¦"§ᡂw¢£dᐭ⚓஺”᝞ᡠ¦஺᝞cdᐭḄ⚗§ᙠᑣᙠLabel2(6¥¦”dᐭ⚗§ᙠ:ᔠ᪾(஺"஺jkl஺PrivateSubCombol_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0ToCombo1ListCount-1IfCombo1Text=[12]ThenLabel2Caption”dᐭ⚗§ᙠ:ᔠ᪾(஺”ExitSubEndIfNextiLabel2Caption=M§ᡂw¢£dᐭ⚗஺”C)ombo1[13]Combo1TextEndIfEndSub11ᙠNOm+,STᢥU$+,ᦻW᪾ᐸR0ᑖ}Command1$Textl,ᯠ5oᑏ᝞qr'sPrivateSubCommand1_Click()D)iminDataAsStringTextlText±'”OPennd:IIML)IIMyfiletxt"for[14]As#l

57D)oWhile[15]Input#1,inDataTextlText=TextlText+inDataLoopC)lose#1EndSub'Ḅwx!ᡭ«D¬᪷®ḄᦻWᦻmyfiletxt,¯°±Ḅᐰ³ᑁµ¶¦ᙠᦻW᪾(஺jkl2006·9ᨴᐰ¹º»¼½¾ὃ¾VBÀÁÂᫀ+ஹ⌱Å⚪1DÆ᪆sÈᙽʺ⌕ËÌÍ὚ᔠÏᑁÐ஺2AÆ᪆sÑᢈÓÔÕᩭÖʺᒹØ᪀ʺஹᦪ=ʺஹÙÚʺஹr'ʺ஺ÑÛ'ÜᳮÞʺᑖßàᡂsᭆ⌕ʺ$âãʺ஺3CÆ᪆szäDEåSᕜçḄzä▤é஺4BÆ᪆s᜜ÈM!ᵨᡝḄᦪ=ìí!ᵨᡝᡠîᑮḄᦪ=ÈM஺5D6C7D8B9B10A11AÆ᪆sNOḄCaptionDឋï!¶¦ᙠNO᪗⚪ð(ḄᦻWñNOḄNameDឋ!ò¯Dឋ,ᓽòivôrDឋNÚᦋhDឋïᙠY/axᦋhñNameDឋïxl஺12CÆ᪆sᙠVisualBasicõ᛻('ivᵨÆ÷øMY/ùivåᡂi᡻/ᦻEXEY/஺13DÆ᪆s`⚪ὃûḄ!Y»gḄüᐜ¾}஺᪷=⊤LMḄ᡻/ý$Y»gḄüᐜ¾}8Mivᑏᡂs(Not(a<=c))Or(((4*c)=(b2))AnD(bo(a+c)))ᡃÿ
ᙠᵨ
ṹPrivateSubForm_Click()

58a=2b=3c=4Print(Nota<=cOr4*c=bA2AnDb<>a+c)EnDSub14B᪆⚪ᡠḄᵨᡝ!ᙠ"#⌕%&'Ḅ()StuDent,ᡠ
⌱⚗CஹDᙳ./01ᡃ34⍝67ᡂᕒḄ:ᵨ6;ஹ<ឋ(?@)!ᡠ
A./0஺15D᪆nf(expr,truepart,falsepart)᪷D⊤FGḄH!ᩭJKLMᑖḄᐸP1ᵫ7⊤FGḄᩩSMᑖTUV“TrueAnDFalse"!ᡠ
Y@ᑨ[JKH!\TUVFalse஺ᡃ3
ᙠᵨ
ṹPrivateSubForm_Click()a=5b=6c=7D=8Printx=IIf((a>b)AnD(cEnDSub16D᪆MiD(string,start\[,length\])JKVariant(String),ᐸᒹ^_`aᢣᦪdḄ_`1Right(string,length)JKVariant(String),ᐸᒹ^e_`afghḄᢣᦪdḄ_`1UCase(String)JKVariant(String),ᐸᒹ^iᡂᜧᑏḄ_`a1ᡃ3
ᙠᵨ
ṹPrivateSubForm_Click()a$="VisualBasicProgramming”b$=',Quick,'

59Printb$&UCase(MiD$(a$,7,6))&Right$(a$,12)EnDSub17B᪆l⚪ὃnḄopḄqᵨrS1ChangerSᙠᵨᡝᔣᦻu᪾\ᐭ'xy!ᡈ{|}~Text<ឋV'Heᦋᦻu᪾ḄText<ឋ!ᵨᡝpᐭP_`!:rS1ClickrSᵨᡝ᪗ᓫᦻu᪾18B᪆l⚪ὃnḄḄᝅ!CounterḄHV0,{1=1!ᐭᑁ!ᑁ᡻!CounterḄHV31{1=2!ᐭᑁ!CounterḄHV3,ᑁ᡻!CounterḄHV61
l!|}ᐰM᡻!CounterḄHV12஺19C᪆ᙠl⚪⌕%&ExitFor!¢£!dn¤¥᡻ᦪ஺ᵫ7¢ḄᩩS1>10,IḄ¦§V3,ᡠ
¨᡻©3஺20D᪆l⚪ὃnḄᯠḄᝅ!⌕%&da«bḄᓄ஺21C᪆ᑡ⊤᪾ḄText<ឋHVᨬ⌱Ḅ⊤⚗Ḅᦻu1ᑡ⊤᪾ḄListInDex<ឋ¯⌱Ḅ⊤⚗Ḅ°஺22D23B᪆A(0)=2,A(l)=4,A(2)=6:B(2)=A(0)=2,B(l)=A(I)=4,B(0)=A(2)=6«24B᪆l⚪ὃnḄ±᝱ᦪ³!ᙠ´ᵨḄᦪ³!ᡃ3µ¶ᨵ¸¹»!¼¶ᨵ½H!ᙠ¾|ᵨReDimᐹ£ᦪ³!l⚪⌕ᑖÀLPᦪ³Ḅ¹▲஺25B᪆ᙠSub¾|ExitSub⌱Ḅ!Â.Ã◤Ḅ!ᔲ◤⌕⌕᪷DÆÇ1ᙠSub¾|ᑁ!.ÈSub¾|ᡈFunction¾|!ÉSub¾|.Èᝅ1Founction¾|¨ÈJKPH஺26A᪆Sub¾|ḄÊᵨ!%&dḄËᵨÌDima(lTo4)AsInteger

60a(D=5a(2)=6a(3)=7a(4)=8ᙠ¾|ᑁMḄ!<7ÍMd!¨ᙠ¸Ḅ¾|Îᵨ!ᡠ
TU.Ï
|}ÐḄÑÒ஺27C᪆Len(stringIvamame)JKLong,ᐸᒹ^_`aᑁ_`Ḅᦪ!ᡈÓÔdᡠ◤Ḅ_⁚ᦪ128D᪆KeyPressrSᙠÖp×ḄØPp஺29C᪆Chr(charcoDe)JKSiring,ᐸᒹ^ᨵÙᢣḄ_`ṹÚᐵḄ_`஺oSḄKeyPressrSḄKeyAsciiÜᦪᡠᢥpḄASCIIṹ1oSḄKeyDownrSḄKeyCoDeᢥpḄÞ▭ḄASCIIṹ!ṹ
“p”Vá!.
“_`”Vâ஺30B31C᪆ᦻS6ã᪾ḄFilter<ឋᵨᩭᢣᙠ6ã᪾äåḄᦻS1ᦻS6ã᪾ḄFilterlnDex<ឋᵨᩭᢣæçḄ¾èᘤ!%&FilterlnDex<ឋḄᨬêHV1஺32B᪆ᵨPublicëḄ´ᵨ¾|ìᨵ¾|!
ᙠ|}Ḅíîᙢ?Êᵨ஺᝞U{ñò£⌕Êᵨᐸóò£Ḅìᨵ¾|!⌕ôõPò£Ḅò£(ËVñö஺33A᪆{ᙠPDim÷Pd!Pdø⌕ᵨAsùúûᐸ!ᔲᑣdýþË£஺34C35D᪆ÿᦻḄ஺ஹ⚪1[1]3᪆ᙠ᪀ḄᨵᐵḄᭆ!᦮#$ᑴ&ᓽᔜ)ᡠ+Ḅ,ᙽᦪḄᨬᜧ1,ᵫ456789᪀Ḅ:3஺

612[2]<=᪆ᙠ>ᡂ@ḄA=BCDEF<=஺<=ḄGHIJKᦋMḄ┯O஺3ூ3௃ᐗS᪆ᙠᐵ8TUVᔣḄFX:ᐗSᚖZVᔣḄᑡX:\ឋ^_ᑡᨵ_`\ឋa஺4ூ4௃᪘᪆᪘▲dᙠ_eEFfᐭKᑤ◀jkḄlឋ⊤noXfᐭஹᑤ◀Ḅp_e:᪘⚔r_e:᪘s஺᪘ᢥ᯿“ᐜECx”ᡈ“CEᐜx”Ḅ{ᑣS}ᦪ~஺5[5]lឋ᪀᪆᪘ᑡlឋ⊤4ᵨ᪀஺ᡠḄᑡ\lឋ᪀஺6[6]X%>=OanDX%<100᪆4ᵨ☢oᵨᐸ᦮ᛛ%᦮&ᓫᦪᦪ#¢£@¥¦$¨⚪⌕ᙠp`⊤ª#«x3`¬஺1®100,4ᑏᡂ“<100”°2±²4ᵨ“>=0ᩭ⊤´"°ᨬC1⌕#«xX᦮ᦪᡠ4ᙠXC☢¶_`·ᑖ¹“º7[7]Change᪆^»ᵨᡝ½ᦋᡈn¾¿ṹ½ᦋᦻ¨᪾Ḅᦻ¨ᑁÃÄDÅÆᐸChangeÇ஺n¾ÈÇ4nÉÊĽᦋËᦻ¨᪾Ḅᦻ¨4ÌᵨÈÇÍÄÎ5ᦻ¨᪾Ḅᦻ¨ÏÐÑᦪ~ஹÒÓᐸÔ$Õ´Ö஺8[8]6-i᪆MiD$×¥¦ØÙÚÛ\[,`ᦪ\]ßàᦪᵨáx¥¦âᢣÚÛäÙḄ+ᢣ`ᦪ¥Ḅ¥¦஺¨⚪MiD$Ḅkᵨᙠåæáx¥¦çÚÛḄ1ஹ3ஹ5ஹ7ஹ9`¥஺ᦑᥦØÙÚÛ:6-i,ᓽåæ:5ஹ4ஹ3ஹ2ஹ1»9[9110[10]10[11]A((i-l)*10+j)

62᪆᪷~⚪êᙠëᝅíîi:᜜íîíîæᦪ:10æ$ᑴᦪSBḄF1j:ᑁíî.íîæᦪ:10æñḼᦪSBḄᑡ1ᯠC᪷~ᦪS᪗Ḅᐵ84ᑏx(i-l)*10+j⊤ªâö÷øᙢ@ᦪSBEFú1஺ûᦪSBḄᐗü_ûᦪSAḄᐗüᙠp᪵Ḅ@øᐵ8B(i,j)=A((i-l)*10+j),᝞B(1,1)=A(1)ஹB(2,1)=A(11)ஹB(10,1)=A(91).10[12]Combo1.List(i)[13]ADDItem᪆Sᔠ᪾
ḄListឋᵨᩭᑡ⊤⚗Ḅᑁ஺ឋᑡ⊤᪾
ᡠᨵᦪḄ᪗ᦪ
Ḅ(᪗!஺"#)ᐸ&'()Mᔠ᪾.\JList(᪗)ᱯ-./Ḅ0“᪗”34567ᢣ9Ḽ⊤⚗
;<⚗⊤
ᑁḄ=>?<⚗Ḅ67(0,?@⚗(1,BCDEFGHᦪIJK⌕Mḕᶍ஺C⚪QRSTi!0"#QRUVᔠ᪾
WḄ⊤⚗ᦪMXᳮZF345[☢]ᑮḄ᪗Hᦪ஺ᔠ᪾ḄADDItem_`ᵨ5ᙠᔠ᪾
bᐭ••eᦻgᐸ&'()ᔠ᪾.ADDItem⚗hijk\[,67\J஺11[14]Input[15]NotEOF(l)Z᪆)ᡭ"pqᦻrḄsg&'()OpenFileNameForMoDeAs#FileNumber஺ᐸ
FileName⊤9⌕ᡭ"ḄᦻrḄtuvMoDe(ᡭ"w'vOutPutᵨ5xஹAppenDᵨ5z{ᑏᐭஹgputᵨ5}~vFiLeNumber(ᡭ"ᦻrᢣḄ(ᓽᦻr)஺ᙠ}ᦻr,JᵨDoWhileQRInput#}ᐭᦪNotEOF(ᦻr)(QRᩩr஺EOF(ᦻr)ᵨ5ᑨ0ᔲ}ᑮᦻr.