VB计习题册2018带答案

《VB计习题册2018带答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

ᑖẠ...........................................2ᑖ⌱᪀...........................................9ᑖ᪀...........................................11ᑖ...............................................19ᑖᦪ...............................................36ᑖ...............................................55ᑖᦻ...............................................89ᑖ⚪!"..........................................93

1ᑖẠஹ⌱⚪1.&'()*+VB.Ḅ012.A:Abx45B:P1234C:89TasFFD:xy2.IntegerKLḄᦪMᵫO⁚ᡂ.A:1B:2C:3D:43.'ᑡS.T()Uᣚ01aWbḄXḄY0.A:t=b:b=a:a=tB:a=a+b:b=a-b:a=a-bC:t=a:a=b:b=tD:a=b:b=a4.⊤_`4+5\6*7/8Mod9ḄXYA:4B:5C:6D:75.i&jkᑤ◀OnopqWrstḄuᦪY().A:LtrimB:RtrimC:TrimD:Mid6.&'SḄ|}~Y()஺PrintFormat(32548.5,"0000,000.00")A:32548.5B:32,548.5C:032,548.50D:0,032,548.507.⊤_`஻xyz஻+“568”ḄXY().A:xyzB:568C:xyz568D:1208.⊤_`printLen(trim("abed8&T23")Ḅ~YA:9B:7C:abcdD:1239.᡻'☢,01c$ḄX+_____.a$=zTVisualBasicProgramming7"b$="Quick”c$=b$&Ucase(Mid$(a$,7,6))&Right$(a$,12)A:VisualBASICProgrammingB:QuickBasicProgrammingC:QUICKBasicProgrammingD:QuickBASICProgramming10.'ᑡ012ḄY().A:myfileB:vb1C:page@2D:cmd.111.'☢4⚗.ᔠḄOnᦪY().A:ABC$B:஻ABC஻C:'ABC'D:ABC12.'ᑡ¡¢n.()Ḅ£ᐜ¥ᨬ§.A:/B:\C:ModD:'+13.13.'ᑡ⌱⚗.Tª«VisualBasic6.0¬®ḄY().

2A:☢ᔣ°±ஹ²³´B:☢ᔣ°±ஹµ³´C:☢ᔣஹµ³´D:☢ᔣஹ²³´14.⊤_`Abs(-5)*5\5/5ḄXYA¶-25B:25C:5D:115.SS⌕ᙠ'¹ºᑏTºnY0.A:+B¶-C:_D:16.PrintDay(#2000T0T5#)S½¾Ḅ~YA:2000-10-15B:2000C:10D:1517.᪀ᓄᵫÀÁ᪀ᡂ,'☢ª«ÀÁ᪀ÂḄY().A:⌴Ä᪀B:⌱᪀C:᪀D:|ᐭஹ|}᪀18.Int(198.555*100+0.5)/100ḄX().A:198B:199.6C:198.56D:20019.¬x=8,y=14,z=15,⊤_`xz)Orz=3ORx<10D:3<=xAND<1022.'☢⌱⚗.஺Y¢Ñ¡¢n.A:%B:AndC:&&D;Mod23.⊤_`25\3mod3*Int(4.5)ḄX+().A:4B:8C:1D:524.KILLSᙠVBÓ.ḄÔ)YA:Õᑁ×B:ÕØÙC:ᑤ◀ÚÛÜḄᦻD:ÕÝÞ25.¬a=3,b=5,ᑣ&'⊤_`X+àḄY().A:a>=bAndb>10B:(a>b)0r(b>0)C:(a<0)Eqv(b>0)D:(-3+5>a)And(b>0)26.⌕ãäå01+ᐰç01,èéᵨ()ᐵëO.A:StaticB:PublicC:PrivateD:Sub27.'☢ḄìXSYA:x+y=30B:y=n*r*rC:y=x+30D:3y=x

328.InputBoxuᦪíîXḄKLY0.A:᦮LᦪXB:OnoC:0ðD:ᦪXᡈOno29.'ᑡ012ḄY().A:LenB:Test@qwC:6cost_lD:count2s30.᝞~å᦮L01ãäôìX,ᑣõ01ḄöḕX+().A:8B:""C:1D:031.øùúḄ¬Óûü,VisualBasicᨬý}Ḅᱯÿ().A:᪀ᓄB:᛻C:ᑴD:ᢈ32."☢()$VBḄ'()*.A:)*B:+,)*C:-.)*D:ᜧ0)*33.x=4,y=6,ᑣ8"$9ᙠ;<=>?@஻A=10”ḄEFA:PrintA=x+yB:Print"A=";x+yC:Print"A="+Str(x+y)D:Print"A=஻&x+y34."ᑡ⌱⚗-TUVVisualBasic6.0\]Ḅ().A:☢ᔣ_`ஹbB:☢ᔣ_`ஹC:☢ᔣcஹD:☢ᔣcஹb35.⊤f*val(a2000)Ḅhi().A:0B:65C:2000D:1936.msgBoxnᦪpqhḄrs().A:᦮sᦪhB:uvwC:x

4A:/B:\C:ModDU43.a="VisualBasic”,"☢¸b="Basic”ḄEF.A:b=Left(a,8,12)B:b=Left(a,8,5)C:b=Mid(a,8,5)D:b=Right(a,5,5)44.3>8-3OR10+2<=3*4AND5=2+3Ḅ().A:TrueB:FalseC:-3D:1045.8"¿⚗-TUVÀÁsḄ().A:"10/10/02"B:10/10/02C:#10/10/02#D:{10/10/02)46."☢4⚗-ᔠ]ḄᓫÄ~sxA:num!B:sum%C:xinte$D:mm#47.a=3,b=5,ᑣ8"⊤f*hiÇḄ().A:a>=bAndb>10B:(a>b)0r(b>0)C:(a<0)Eqv(b>0)D:(-3+5>a)And(b>0)48.⊤f*4+5\6*7/8Mod9Ḅh().A:4B:5C:6D:749.ᙠEFᑁᑏÌᩩEFÎ,ᵨᩭᑖ◞ÒᩩEFḄvÓ().A:,B::C:ஹD:;50.ᦪÔ⊤f*x>y>zḄÕÖVB⊤f*____.A:x>yAndy>zC:x>yAnd>zD:x>yAndy>z51."☢4⚗-$ᔠ]Ḅ᦮ᦪ().A:100B:&0100C:&H100D:152.8ᑤ◀uvwÚÛÜÝḄnᦪ().A:LtrimB:RtrimC:TrimD:Mid53.EFprintsgn(-54)+abs(-2.3)+int(2.3)Þ@iA:15Bß-38Cß-54Dß-1554."ᑡàḄ+,.PrivateSubForm_Click()DimMsgHideMsg=஻⌱â'Ö‘ᢥå஻MsgBoxMsgShow

5EndSubA:◚è;<,ᢥ'Ö'ᢥå¸;<éêB:◚è;?;<,ᢥ'Ö'ᢥå¸;<◚èD:>?;<55.Int(198.555*100+0.5)/100Ḅh0.A:198B:199.6C:198.56D:20056.ᨵ᝞"xíîDimTestDateAsDateixTestDateÕÖhḄ⊤f\*A:TestDate=#l/l/2008#B:TestDate=#Tz1/1/2008'#C:TestDate=date("1/1/2008")D:TestDate=Format("m/d/yy",“1/1/2008")57.x=8,y=14,z=15,8"⊤f*Ḅhxz)OrzIntegerஹDoubleB:ByteஹIntegerஹDoubleஹBooleanC:BooleanஹByte>Integer,LongD:BooleanஹByteஹInteger,Double59.⊤f*Abs(-5)*5\5/5ḄhA:-25B:25C:5D:160.hEF:b=12+MID(“1234”,3,2)᡻,,bx-ḄhA:“12334"B:123C:34D:4661.8"$UVVisualBasicýþᦻ
ḄA:.frmB:*.batC:*.vbpD:*.bas62.x,y,z3"#$%&'3,(☢*+Ḅ%',-A:x=3:y=3:z=3B:x=3,y=3,z=3C:x=y=z=3D:xyz=363.3>8-3OR10+2<=3*4AND5=2+3Ḅ;<().A:TrueB:FalseC-3D:1064.⊤EF25\3mod3*Int(4.5)Ḅ'().A:4B:8C:1D:565.LMNOP,VisualBasic60ᨵ3U᱐WX(ᑡZ[\3U᱐WḄWA:]^᱐B:᪗`᱐C:ab᱐D:cb᱐66.deAeT2345678”,ᑣ⊤EFVai(Left$(A$,4)+Mid$(a$,4,2))Ḅ'A:123456B:123445C:8D:667.⊤EFprintLen(trim("abed")&"123")Ḅ;<

6A:9B:7C:abcdD:12368.᝞b+cC:aWb>cD:a15Theny=x_2+lPrintyEndSubA:4B:17C:18D:253.⌱åÄï;᪀Ḅðᵨ.A:ÀᑴḄòB:óÉḄÁôC:õ\Ḅ▅÷D:ØõḄøù4.,-Ifx=lTheny=l,(ᑡú*+Ḅ.A:x=lÄy=lᙳ%',-B:x=lÄy=lᙳᐵÑ⊤EFC:x=lᐵÑ⊤EF,y=l%',-D:x=l%',-Xy=lᐵÑ⊤EF5.VBóý;᪀ᓄ¸½Ḅ3UÞW;᪀,3UÞW;᪀A:⌴ã;᪀,⌱å;᪀,ï;᪀B:⌱å;᪀X¥;᪀Xþ;᪀C:¥;᪀,ÙᐭஹÙÚ;᪀Xÿᔣ
᪀D:⌱
᪀
᪀
᪀6.☢Dimmm=Int(Rnd+l)+5SelectCasemCase6Print஻*+஻

9Case5Print஻,-஻Case4Print஻./஻CaseElsePrint஻1./஻EndSelect23Ḅ
56A:*+B:,-C:./D:1./9ஹᦋ┯1ஹ⚪?@A᪷CDᐭḄFGᡂI,ᑖL23*+M90ᑖPQR,-M75ᑖPQRTUM60ᑖPQR1TUVWXY.OptionExplicitPrivateSubForm_ClickMRCisDimiAsIntegeri=InputBoxM஻eDᐭFGᡂI஻RSelectCasei'**********FOUND**********Case0

10tuvᑖ
᪀wஹ⌱⚪1.ᙠxyz{|}Wᦻ᪾TextlText2,wWᢥCommand1,ᑏ᝞/PrivateSubCommand1_C1ick()x=0DoWhilex<10x=(x-2)*(x+3)n=n+1LoopTextl.Text=Str(n):Text2.Text=Str(x)EndSub,ᓫᢥ,ᙠ}Wᦻ᪾z23ḄᑖLoA:10B:350C:224D:4682.☢,ᙠxyz23Ḅ6.PrivateSubForm_Click()a$9஻*஻b$9஻$஻Fork=lTo3x$=String$(Len(a$)+k,b$)Printx$;NextkPrintEndSubA:*********B:*$*$*$C:l*$2*$3*$D:$$$$$$$$$3.᡻☢xḄ.x=5For1=1To20step2x=x+I\5NextIA:21B:22C:23D:244.᡻☢ḄSubForm_Click()

11Fori=lTo6Listl.AdditemiNextFori=lTo3Listl.RemoveitemiNextEndSubᑡ⊤᪾zḄᦪC⚗______.A:l,5,6B:2,4,6C:4,5,6D:l,3,55.☢For1=3To1Step-1PrintSpc(5-i)Forj=lTo2*1-1Print஻*஻NextjPrintNextiḄ
5______.A:¥1B:¥2*************C:¥3D:¥4*************6.⌱
᪀Ḅ¦ᵨ6.A:¨ᑴḄªB:«¬Ḅ®C:¯°Ḅ▅²D:³¯Ḅ´µ7.1AᑖL¶·231!ஹ2!ஹ3!ஹ4!Ḅ6A:For1=1To4N=1Forj=lToI

12N=n*jNextjPrintnNextiB:For1=1To4Forj=lToin=ln=n*jNextjPrintnNextiC:n=lForj=lTo4n=n*jPrintnNextjD:n=lJ=1DoWhilej<=4n=n*jPrintnJ=j+1Loop8.ᑡA¶º
»Ḅ6A:i=5Doi=i+lLoopUntili<0B:i=l

13Doi=i+2LoopUntili=10C:i=10Doi=i+lLoopUntilI>0D:i=6Doi=i-2LoopUntil1=19.☢½ᑁ¿ḄÀÁᦪ6.Form=1To3Forn=0Tom-1NextnNextmA:4B:5C:6D:710.ᎷýĨḄIntervalÅឋ1000,EnabledÅឋTrue,ÇÈᨵ☢Ḅ/ÊËÌÍÎÏBeepÐḄÁᦪ6.SubTimerl_Timer()Fori=lTo10BeepNextiEndSubA:1000ÁB:10000ÁC:10ÁD:PQÑ1Ò11.᡻ÓÔFori=lTo3:i=i+l:NextiiḄ6.A:3B:4C:5D:612.PḄDÏ
56.PrivateSubCommandl_Click()a=100

14Dos=s+aa=a+lLoopUntila>100printaEndSubA:100B:120C:201D:10113.PḄÁᦪ6.PrivateSubCommand1_C1ick()Forj=8To35Step3Printj;NextjEndSubA:10B:9C:27D:814.Õᨵ᝞PrivateSubCommand1_C1ick()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To54=1,i=2,i=3,i=4,i=5x=n/I'x=0,x=l/2,x=2/3n=n+1"n=l,n=2,n=3sum=sum+xsum=0+1/2+2/3+NextEndSubi./ForÊËwW⊤ÙÚḄ,ÛW⊤ÙÚ6.A:1+1/2+2/3+3/4+4/5B:1+1/2+2/3+3/4C:1/2+2/3+3/4+4/5D:1+1/2+1/3+1/4+1/515.P¶·ḄFor…Next
᪀6.A:Forx=5Step10NextxB:Forx=3To-3Step-3

15NextxC:Forx=lTo10start:NextxIfi=10ThenGoTostartD:Forx=3To10Step3Nextm16.☢DÏḄ
56PrivateSubCommand1_C1ick()x=8Fori=0To20Step5x=x+I'x=8+0+5+10+15+20Nextprint"X=";xEndSubA:X=210B:X=218C:X=50D:X=589ஹᦋ┯1ஹiàáÍDᐭḄ0-255lmḄ¶᦮ᦪãᣚᡂ9åᑴᦪOptionExplicitPrivateSubForm_Click()Constn=8Dima(n)AsInteger,sAsString,mAsInteger,xAsIntegerx=Vai(InputBox(஻eDᐭwW0-255lmḄ¶᦮ᦪ஻))Printx'**********FOUND**********Form=0Tona(m)=xMod2'**********FOUND**********x=x\2Nextm஻஻s=Form=nTo0Step-1'**********FOUND**********

16s=s+Str(a(m))NextmPrintsEndSub2ஹᵨInputBoxçᦪDᐭwWèéêᑏᢥëDᐭḄèéìíḄÁᵨMsgboxçᦪDÏÛWèê஺᝞Dᐭèéê஻abcdefgh஻ᑣDÏ஻hgfedcba஻OptionExplicitPrivateSubCommandl_Click()DimpristrAsString,outstrAsStringDimiAsIntegerpristr=InputBox()zpleaseinputastring")'**********FOUND**********Fori=0ToLen(pristr)-1'**********FOUND**********outstr=outstr+Mid(pristr,Len(pristr)-I,1)Nexti'**********FOUND**********MsgBoxoutstr,vbquestion,“TheOutputResult஻EndSub3ஹðÊwᦻtext.txtzḄñUஹèòஹᦪèᐸôèéWᦪ஺OptionExplicitPrivateSubCommand1_C1ick()DimsAsString,CAsStringDimIAsInteger,LAsInteger,spacAsInteger,characterAsInteger,digitAsInteger,otherAsInteger'**********FOUND**********OpenApp.Path&஻\text9txt஻ForinputAs#1'**********FOUND**********DoUntilEOF(l)LineInput#1,sL=Len(s)ForI=1ToL

17C=Mid(s,I,1)IfC>=஻a஻AndC<=஻z஻OrC>=஻A஻AndC<=஻Z஻Thencharacter=character+1ElselfC=஻஻Thenspac=spac+1'**********FOUND**********ElselfC>=஻O஻AndC<=஻9஻Thendigit=digit+1Elseother=other+1EndIfNextILoopClose#1Print஻èéWᦪ஻character;஻ᦪèWᦪ஻digitPrint஻ñUWᦪ஻spac;஻ᐸôWᦪ஻otherEndSub

18tVvᑖ¨wஹ⌱⚪1.õᑡ⊤᪾zḄ⚗?ᢥèò᣸ᑡ,hÕ÷øWÅឋùA:ListB:SortedC:StyleD:Text2.☢ᐵ°ᡭᓺÒþ᪾ÅឋḄÿ┯Ḅ.A:CopiesឋᢣᡭᓺḄᦪ.B:HDCឋᢣᑖᡭᓺḄ,ᵨᩭ"#$%Ḅ&ᜓ(᛻.C:FromPageឋᢣ⌕ᡭᓺᦻ᫏Ḅ⚓5.6ᵨ7ឋ89:;Flagsឋ&=>LD:MaxBMinឋᵨᩭDEFromPageBToPageḄ5GᐸIMinᢣᐕKḄLM⚓ṹ,MaxᢣᐕKḄᨬP⚓ṹ.3.᝞T⌕6UVWXYZ[\Bᑁ^I_ᐰaᜫ,ᡠ⌕6ᵨḄd.A:HideB:ShowC:LoadD:Unload4.⌕ᑨl஻noᢥq''ᔲtu᪗ᓫx,yᙠ''noᢥq஻Ḅ{|Iᑨl.A:ChangB:KeyDownC:ClickD:KeyPress5.>;WX\ḄV|>Ḅ,y᡻Ḅ().A:ᓫxWXḄ᪾B:ᓫx7|ḄᑁC:x7|D:xWX6.⌕6FormlWXḄ᪗⚪DE''6ᵨVB஻GdḄ().A:Forml.Caption="6ᵨVB"B:Forml.Caption='6ᵨVB'C:Forml.Caption=6ᵨVBD:Forml.Caption=//6ᵨVB"7.ᢣo“Circle(1000,1000),500,8,-6,-3”§¨ᑴA:ªᙊB:¬ᙊC:ᙊD:ᡧ¯8.᪗°Ḅ()ឋ&=>True8,᪗°|Ḅᜧ³´᪗⚪ᦻµ¶·᦮.A:AutoSizeB:CaptionC:AlignmentD:BackStyle9.»⌕Ἥ½WXtᵨᡝ¿,ÀÁ&=ÂÃÄ⌕ÅḄWXḄឋ().A:MaxButtonB:MoveableC:MoveD:ControlBox10.ḄឋBÈIGÂÉÊᙶ᪗ÌḄA:DrawstyleឋB:DmwWidthឋC:ScaleÈD:SealeModeឋ11.⌕ÎÏ6ᵨShiftBCtrlÑÒÓᙠᑡ⊤᪾IÖ8⌱ØÙV⚗ÛGᑣy;7ᑡ

19⊤᪾ḄMultiSelectឋ&=>ÝA:0B:1C:2D:ᐸß12.᝞Tᑡ⊤᪾(Listà)Iáᨵt⌱Ḅ⚗ÛGᑣ᡻Listl.RemoveItemListl.ListindexdḄåTA:¿æçU⚗B:¿æᨬPU⚗C:¿æᨬPèᐭᑡ⊤ḄU⚗D:\êÏ$13.☢ᐵí$%ḄîïIG┯Ḅ().A:$%Ò¶Êå᪀ñB:$%ò⊤ᙠóôḄÌõIḄUVöXC:$%UV÷᝱B(ᡈÈ)ḄúûXD:$%üýḄþÿ⌴Ḅ14.⌕᪗⌚ᐸᑁ,⌕!()$ឋ&'.A:BackColorB:BorderStyleC:ForeColorD:BackStyle15.Cis<=>?◀ABᡈDᱏ᪾GḄHA:Picture$ឋ&'ḄDᫀB:ᙠ&MN'ḄC:OP&MQRḄDSTᦻVD:WX<=Y!16.[☢4⚗G$^☢ᔣ!`abc⌕dḄ஺.A:fgB:hC:$ឋD:<=17.᪾jᑁḄᡠᨵA:m᪾jnopqஹஹᜫTtuB:m᪾jnopqஹஹᜫTtuC:vm᪾jnopqvm᪾jnoTᜫ18.xnyzO{ᨵ|yAB}ᐸGḄ~qAB().A:~qVisualBasicḄABB:nyḄABC:ᨬnyḄABD:ᙠ஻zO$ឋ''!᪾GᢣḄAB19.Ꮇ᝞ᑡ⊤᪾(Listl)ᨵ4yᦪ⚗,ᦪ⚗“China”ᑮᑡ⊤᪾Ḅᨬ}ᵨḄA:Listl.Addltem3,"China”B:Listl.Additem"China”,Listl.ListCount-1C:Listl.Additem"China”,3D:Listl.Additem"China”,Listl.ListCount20.VB6.0n¦☢ᔣ0Ḅ§O¨᛻.

20A:ªᘤB:!`C:OD:ᵨ21.W[¬┯¯ḄA:ᙠzO°±²ᳮoA´Gµ¶ᒹ{nyzOᦻ¸$^¹zOḄᐸºᦻB:nyzOG>W{ᨵ|y᪗»¼ᙽᦻC:W.bas¿᡽ÁÂḄᦻ᪗»¼ᙽᦻD:ABᦻᒹ{¹AB¸ᐸḄ$ឋ22.᝞ÃᦻÄ᪾ḄEnabled$ឋ&¿False,ᑣ_.A:ᦻÄ᪾ḄᦻÄÈfᡂᮞ⁐,ÌÍÎᵨᡝ¶Èᐝ᪗'^ᦻÄ᪾XB:ᦻÄ᪾ḄᦻÄÈfᡂᮞ⁐}ᵨᡝÑᯠ¶Èᐝ᪗'^ᦻÄ᪾X}Ó¶ᦋfᦻÄ᪾GḄᑁC:ᦻÄ᪾ḄᦻÄÈfᡂᮞ⁐,ᵨᡝÑᯠ¶ᦋfᦻÄ᪾GḄᑁD:ᦻÄ᪾ḄᦻÄÕÖ,ᵨᡝ¶Èᐝ᪗'^ᦻÄ᪾X}Ó¶ᦋfᦻÄ᪾GḄᑁ23.ᙠ×ᦋᑡ⊤᪾ᑁ,Additem<=ḄØᵨ().A:?◀ᑡ⊤᪾GḄᐰÚᑁB:ᑤ◀ᑡ⊤GᢣḄᑁC:ᙠᑡ⊤᪾Gny⚗ÜD:ᙠᑡ⊤᪾GÝᐭnᦻÄ24.[ᑡßØG¶ᔣzOGABḄ஺.A:᡻஻zO஻áᓫGḄ஻AB஻ãäB:ᓫåzᐹçXḄ''AB஻ᢥéC:êåAB,ᙠëìáᓫG⌱î஻AB''ãäD:êåzO°±²ᳮᘤ,ᙠëìáᓫG⌱î''஻ãä,ᯠᙠ[nïáᓫG⌱î“AB”ãä25.⌕ðᙠñ>,!()$ឋ&'.A:EnabledB:VisibleC:BackColorD:Caption26.[☢ᐵ^|ôABḄ¬G}ÕõḄA:Ø¿~q!`ḄMain÷Oµ¶NᙠAB¼ᙽᑁB:᝞Ã~q!`Main÷O,ᑣOP~qøùúAB}Wᵫ¹O᪷ýþÿ
ᔲC:ᨵ,᡻D:27."ᑡ$PrivateSubTextl_Change()PrintTextl8

21EndSub;ᙠᦻ>᪾@ᐭ஻1234”G4HIJKLMḄA:1234B:1234C:1121231234D:112123123428."ᙠMainFormḄ᪗⚪XYLM''[\ᳮ^_▾''ḄabA:MainForm.Name="[\ᳮ^_▾"B:MainForm.Title="[\ᳮ^_▾஻C:MainForm.Caption="[\ᳮ^_▾"D:MainForm.Text="[\ᳮ^_▾஻29.᝞iᑡ⊤᪾(Listl)Ymᨵ⚗opᵨᡝ⌱
Kᑣ᡻Debug.PrintListl.Selected(Listl.Listindex)abḄviA:ᙠDebugw@xp⌱
Ḅ⚗oḄyz{B:ᙠDebugw@xTrueC:ᙠ@xp⌱
Ḅ⚗oḄyz{D:ᙠ@xTrue30.}~ᵨᡭᓫ᡻ᓫ,ᢥḄ().A:F10ᡈAltB:Shift+F4C:CtrlᡈF8D:Ctrl+Alt31.ᨵ᝞"ṹ$PrivateSubForm_MouseDown(ButtonAsIntegr,ShiftAsInteger,XAsSingle,YAsSingle)FillColor=QBColor(Int(Rnd*15))Fi1lStyle=Int(Rnd*8)Circle(x,y),250EndSubḄ:

22A:᪗JᙠY᪀⌼ᙊB:¢£᪗JᙠY᪀⌼ᙊC:ᓫ£᪗JᙠY᪀⌼ᙊD:JᙠY᪀⌼ᙊ32.¤ᓫYᨵᓫ⚗}஻Open”.¦⌕}ᓫ¤¨©ª,ᓽᢥ"ALTH¬0JK᡻Open,ᑣᙠᓫ®¯ᘤY¤¨“Open”Ḅ²³$A:´Captionµឋ¤¨}&0penB:´Captionµឋ¤¨}O&penC:´Nameµឋ¤¨}&0penD:´Nameµឋ¤¨}O&pen33."ᑡ⌱⚗Y¸¹Ḅ0.A:ºᓫ⚗»,ᡠ½ᨵµឋ¾¿.B:ᓫ⚗ḄµឋÀᙠµឋwY¤Á.C:ºᓫ⚗mᨵClick¾¿.D:ᓫ®¯ᘤY,᪗⚪À@ᐭ,ÃÄÅÆÇ@ᐭ34.ᦻ>᪾ᡠᨵḄµឋ().A:EnabledB:VisibleC:BackColorD:Caption35.ᙠÉÄÅ}TxtAḄᦻ>᪾KᯠË®ᑏ᝞"¾¿Í$PrivateSubTxtA_KeyPress(Keyasciiasinteger)EndSub¦ᯖÐÑÒᦻ>᪾YKᑣÓÔKeyPress¾¿ḄÕÖ$A:ᓫ£᪗B:¢£ᦻ>᪾C:᪗ᑜÍᦻ>᪾D:ᢥ"ḄØ36.ᵨ᪗Ú^ᐹXYḄ^ᐹᢥÜ᡻ḄÕÖ஺.A:Þ^B:ᡭᓺàC:áD:ᡭ^37.¦ᨵᓫ⚗(Ä}Menuitem),}~ᙠáJâᓫ⚗ᜫᦔ(åᮞ)KâᵨḄabA:Menuitem.Enabled=TrueB:MenuItem.Visible=FalseC:Menuitem.Checked=TrueD:Menuitem.Enabled=False38.;âᵨLine²çÉèéËK;êᙶ᪗A$ᙠA:(0,0)B:èéìÐC:èéíÐD:îᘤḄYï39."☢ᔜòóôaõYK☢ᔣ»¤ÁaõḄ().A:VisualBasicB:C++C:PascalD:Java40.øùúûÍḄ^ü“ᦻ¿஻ᓫḄ“ýᡂ.exeᦻ¿஻®ÿᡂ.exe᡻ᦻᑮᐸᘤḄ⌕().A:Ḅᘤ!VB$%ᡠ◤Ḅ(᝱*+,13:/0.11123ᦻ1

23C:᡻ᦻᨵ78D::;<41.ᙠVB?()@AB

24Wᙠᦻ¿᪾³ᐭ"1234”Á4ÂÃÄZ23ÅÆḄA:1234B:1234C:1121231234D:112123123453.ᵨᩭᦋÉᙶ᪗ËÌᓫÍḄ()A:DrawstyleVឋB:DrawWidthVឋC:ScaleÏÐD:SealeModeVឋ54.ᙠv☢ᐵ23]ḄÔÕ?┯×Ḅ()A:ᵨHideÏÐÙ:◚Û23,ÜÝ:Þ◀ᑁá?Ḅ23B:ᙠâã23ḄXY?ᔜ23ḄåᓫæçèéḄC:<âã23,◤⌕ᓫèêáëÂ23D:Resize]ᙠ23ḄᜧîᨵᡠᦋÉZ@ïð55.ᙠvᑡᐵñᵨ<ò᪾ḄÔÕ?┯×Ḅ()A:CommonDialogl.ShowFontÅÆÃ3<ò᪾B:ᙠ஻ᡭô“ᡈ஻÷áB''<ò᪾?ᵨᡝ⌱ûḄᦻ:üFileTitleVឋýþC:ᙠ"ᡭô"ᡈ"÷áB''<ò᪾?,FileNameVឋýþᡠ⌱Ḅᦻÿᐸ
D:Actionឋ3,᪾56.ᵨᡝᢥ!"#$%&'()*+,KeyPressஹKeyUp6KeyDown89,:;'89,<Ḅ>?@0.A:KeyPressஹKeyDownஹKeyUpB:KeyDownஹKeyUpஹKeyPressC:KeyDownஹKeyPressஹKeyUpD:DᨵFG57.I⌕KLᦻN᪾ḄOPQ,ᑣSTᦋᦻN᪾Ḅឋ@()A:captionB:textC:nameD:index58.!ᑡ^_`abᔣde`fghḄ@().A:᡻j஻de஻lᓫ`Ḅ஻fgh஻noB:ᓫpdᐹrsḄ''fgh"ᢥv

25Cwxph,ᙠz{lᓫ`⌱}''fgh''noD:xpde~ᳮᘤ,ᙠz{lᓫ`⌱}''fg஻no,ᯠ)ᙠ!&lᓫ`⌱}“fgh”no59.᝞ᙠhs&'ᦻN᪾Textl,()89Lᐭ(ḄASCHṹ.A:ChangeB:LostFocusC:KeyPressD:GotFocus60.ᑡ⊤᪾`ᑡ⊤⚗Ḅᦪ¥()ឋḄL.A:CountB:ListCountC:SelcountD:Index61.!bᙠhMainFormḄ᪗⚪r`஻ᓭ¬᪍¯°±²³´µ᪥”Ḅ·¸@A:MainForm.Name="ᓭ¬᪍¯°±²³´µ᪥“B:MainForm.Title="ᓭ¬᪍¯°±²³´µ᪥“C:MainForm.Caption="ᓭ¬᪍¯°±²³´µ᪥“D:MainForm.Text="ᓭ¬᪍¯°±²³´µ᪥“62.ᙠhs¼&'½¾Label1Ḅ᪗À,ᯠ)¼&'½¾HScrolllḄÁÂᩩ,ᐸMin6MaxឋᑖÅ06100.e?Æj),᝞ÇÂÁÂ᪾,ᑣᙠ᪗À`ÁÂᩩḄÈ.!bÉÊsË^_Ḅe?Ì@()A:PrivateSubHScroll_Change()Label1.Caption=HScrolll.ValueEndSubB:PrivateSubHScroll_Click()Label1.Caption=HScroll1.ValueEndSubC:PrivateSubHScroll_Change()Label1.Text=HScroll.CaptionEndSubD:PrivateSubHScroll_Click()Label1.Text=HScroll.CaptionEndSub63.᝞ᑡ⊤᪾(Listl)`Òᨵ&'⚗¥Óᵨᡝ⌱ÔÕᑣ᡻jDebug.PrintListl.Selected(Listl.Listindex)·¸ḄÖ@A:ᙠDebugh×{Ó⌱ÔḄ⚗¥ḄØÙB:ᙠDebugh×{TrueC:ᙠhs{Ó⌱ÔḄ⚗¥ḄØÙ

26D:ᙠhs{True64.!ÛË┯ÝḄ@wA:Þpß᪗+,DblClick89B:hᡈá9Ḅ89Ḅ½¾ᵫãeäᕒæÔC:ÇÂß᪗,*+,MouseMove89D:á9Ḅ½¾ᵫãeäᕒçÔ65.ᎷÔᨵ&'lᓫ,½Menuitem,ÆjKélᓫ⚗ᜫᦔ,SKᵨḄ·¸().A:Menuitem.Enabled=TrueB:MenuItem.Enabled=FalseC:MenuItem.Visible=TrueD:MenuItem.Visible=False66.ᨵᐵíᦻ᫏ï☢ḄñË,aòæḄ@wA:íᦻ᫏ï☢@ᢣᙠ&'᱄h×!õᡭ÷í'øh×B:ùh×úû᱄h×C:᝞᱄h×ᐵüᑣᡠᨵḄøh×ᐵüD:᝞ᡠᨵøh×ᐵüÕᑣ᱄h×ᐵü67.çþ᪾ÿḄ஺ឋFalse,ᐸ᪗⚪ᮞ,᪾ᡠᨵḄᙳ.A:NameB:CaptionC:EnabledDivisible68.ឋ1234ᙠ()8ᵨ.A::;

27B:◀FClick¤¦᜜,gᓫ⚗¨4©ªᐸḄ¤,᝞DblClick¤C:ᙠ`¬᡻@<᝞®gᓫ⚗ḄVisibleឋFalse,ᑣ°gᓫ⚗D±D:ᙠ`¬᡻@<,᝞®gᓫ⚗ḄEnabledឋFalse,ᑣ°gᓫ⚗ᡂᮞ⁐,D4ᵨᡝ⌱u74.⌕Ἥ·1cᵨᡝ¸,¹º:Q»¼⌕½Ḅ1cḄឋd().A:MaxButtonB:MoveableC:MoveD:ControlBox75.ÀᙠÁᩩᑁÄÁᙽ<ÆÇ஺¤.A:KeyUpB:KeyPressC:ChangeD:Scroll76.ᦻÎ᪾Ïᨵ()ឋ.A:EnabledB:VisibleC:BackColorD:Caption77.:gᓫᨵ}gᓫ⚗"Open”.⌕°gᓫij:QÓÔÕ,ᓽᢥ[ALT×ØÙ0<4Ú᡻@Openij,ᑣᙠgᓫ=ᘤ:Q"Open஻ijḄÛdRA:ÜCaptionឋ:Q&0penB:ÜCaptionឋ:QO&penC:ÜNameឋ:Q&0penD:ÜNameឋ:QO&pen78.ᙠ1cBÞß}¹ᵨà᪾ᐸáâCommonDialogl,ᯠ|ãab}ijᢥpä=ᑏ᝞[¤º`RPrivateSubCommandl_Click()ComnionDialogl.F1ags=cd1OFNHideReakOn1yCommonDialogl.Filteré஻AllFiles(*.*)ᘤ*TextFiles஻&஻(*.txt)*.txtBatchFiles(*.bat)*.bat஻CommonDialogl.Filterlndex=2CommonDialogl.ShowOpenMsgBoxCommonDialogl.FileNameEndsub`¬?@|ᓫkijᢥpìMN}஻ᡭî஻à᪾¼<ᙠ஻ᦻïð஻᪾MNḄdA:AllFiles(*.*)B:TextFiles(*.txt)C:BatchFiles(*.bat)D:Dñò79.ᨵ᝞[`¬óṹRPrivateSubForm_MouseDown(ButtonAsIntegr,ShiftAsInteger,XAsSingle,YAsSingle)FiHColor=QBColor(Int(Rnd*15))

28FillStyle=Int(Rnd*8)Circle(x,y),250EndSub°`¬Ḅú4dRA:û᪗Äü<ᙠ1c᪀⌼}ᙊB:᪗ᙠ᪀⌼ᙊC:ᓫ᪗ᙠ᪀⌼ᙊD:ᙠ᪀⌼ᙊ80.⌕◀ᑡ⊤᪾Ḅᡠᨵᑁ$,&ᵨ()*+,-A:RemoveitemB:ClsC:ClearD::;ᙳ=&:81.ᙠ?@ABCDE᝞GHIJIᩩ;ḄJIᙽ,ᑣNOḄJIᩩPQR().A:MoveB:ChangeCrScrollD:GetFocus82.VisualBasicR`☢ᔣcdḄ&eᓄ?@ghijEkᵨl()Ḅm?nᑴ.A:PQpIB:ᢥr?s@᡻BC:uv?@wx᡻BD:ᢥyᙽs@᡻B83.᝞G⌕{u|};~ᑁᐰᜫ,ᡠ⌕{ᵨḄiR.A:HideB:ShowC:LoadD:Unload84.lcᦻ᪾QᐭḄF1-F12Ḅ,{ᵨḄPQRA:KeyPressB:KeyDownC:MouseDownD:Change85.Ꮇᙠ;l¡Q,¢ᨵQR£IḄ,lᙠ¤ឋ¦g§Ḅ¤ឋ,⚜ᐜ᡻BḄª«R().Aᓫ;¬ᨵQḄᙢ*B:ᓫ®QC:=᡻B®¯ª«D:Ḅ᪗⚪±86.Ꮇ³?ᵫForml~µ᪗¶yᙽᦻQModel1·Model2¸ᡂ஺ModellḄ»ṹ᝞½PublicxAsIntegerPublicyAsIntegerSubS10x=lS2EndSubSubS2()y=10Forml.ShowEndSub

29Mode12Ḅ»ṹ᝞½:SubMain()SIEndSubᐸSubMainÄg§ᡂÅIr?E?@ABÆEᔜyᙽḄ᡻Bs@RA:FomrIfModelIfModel2B:Modell^-Model2-*FomrlC:Model2fModel1^-FomrlD:Model2^Fomrl->Model187.:½Ḅ¤ឋ~*+E&ÍÎᙶ᪗ÐḄRA:Drawstyle¤ឋB:DmwWidth¤ឋC:Scale*+D:ScaleMode¤ឋ88.⌕Ò={ᵨShift~CtrlÓᙠᑡ⊤᪾Ô⌱Ö¡⚗ØEᑣÙÚᑡ⊤᪾ḄMultiSelect¤ឋg§A:0B:1C:2D:ᐸÛ89.ÝᡈQᜧàḄ¤ឋR().A:Width~HeightB:Width~TopC:Top~rightD:Top~Left90.&:ã᪗Qᦪ¸ḄåQ¤ឋḄRA:NameB:CaptionC:IndexD:Enabled91.MaxLength¤ឋ&:g§ᦻ᪾&:ᐭçèéḄᨬ¡ëìᦪEíᐸî0⊤é().A:=ᐕðᐭ®¯ëìEñèé=▲ᑴB:=ᐕðᐭëìC:ᐭḄëìóô=▲D::;õ=öÝ92.÷᪗øḄëìùú⁐Ḅ¤ឋRA:FontColorB:BackStyleC:BackColorD:ForeColor93.TextlQᙠAB=&ý,Rg§½ᑡ()¤ឋḄþG.A:EnabledB:CancelC:VisibleD:ControlBox94.ÿᵨᑡ⊤᪾(Listl)ᨬᦪ⚗ᵨḄ()஺A:Listl.List(Listl.ListCount)B:Listl.List(Listl.ListCount-1)C:Listl.List(ListCount)D:Listl.List(ListCount-1)95.'ᦻ)᪾Ḅ஺*ឋ,-.True23ᦻ)᪾456789,;,-()*ឋᦻ)᪾<=>?@ᩩ.A:TextEnabledB:NameLockedC:MultilineScrollbarD:CaptionLocked96.᝞PFormlR@ST,UVFormlḄloadWXYZ[ᨵform2.show,ᑣZ

30bR@A:cde9┯gB:cdhi┯gC:ᙠᡠᨵḄlmᓄoṹe9,Form1q@STD:ᙠᡠᨵḄlmᓄoṹe9,Form2q@ST97.Ꮇ,ᙠtᱏ᪾Pictruel[wᐭty,.z{◀}ty(~ᑤ◀tᱏ᪾)3ᵨḄA:⌱tᱏ᪾,ᯠᢥDelete.B:᡻9Pictruel.Pictrue=LoadPictrue("")C:᡻9Pictruel.Pictrue="D:⌱tᱏ᪾,ᙠ*ឋS⌱Pictruel*ឋ,ᯠ98.ᙠᑡᐵᓫḄ[,┯gḄ().Aᓫ⚗X,ᐸX᪵ᨵ¡Ḅ*ឋ¢WXB:◀zClickWX£᜜,ᓫ⚗¥¦§ᐸḄWX,᝞DblClickWXC:ᙠZb᡻923᝞Pᓫ⚗ḄVisible*ឋ.False,ᑣ}ᓫ⚗~4©D:ᙠZb᡻92,᝞Pᓫ⚗ḄEnabled*ឋ.False,ᑣ}ᓫ⚗ªᡂᮞ⁐,~¦®ᵨᡝ⌱99.°⌱᪾ḄValue*ឋ.123⊤7().A:°⌱᪾±®⌱[B:°⌱᪾®⌱[C:°⌱᪾ᑁᨵᮞ⁐Ḅ³D:°⌱᪾´µ┯g100.5()~R@ᓫh·ᘤḄ.A:ᓫ¹ºᐹ¼ᓫt᪗B:ºᐹ/ᓫh·ᘤ(CTRL+E)C:STÁÂᣩᓫ/ᓫh·ᘤD:ᓫ/ᓫh·ᘤ101.᝞Pᑡ⊤᪾(Listl)[Äᨵ®⌱ÅḄ⚗Æ3ᑣ᡻9Listl.RemoveItemListl.ListindexḄÉPA:ÊËÌ⚗B:ÊËᨬ⚗C:ÊËᨬÍᐭᑡ⊤Ḅ⚗D:5ÁÎ~Ï102..zᑡ⊤Ḅ⚗Æᑖ8ᑡ67,◤⌕,-Ḅ*ឋ.A:ColumnsB:StyleC:ListD:MultiSelect103.ᑡ⊤᪾[ᑡ⊤⚗ḄᦪÆ4ÕY()*ឋḄÖ×Ø.A:CountB:ListCountC:SelcountD:Index104.~ÚÛX,ᐳÝᐹᨵḄ*ឋ0.A:TextB:NameC:ForeColorD:Caption105.⌕ÞXᙠe92~467,Ï஺*ឋß9,-.

31A:EnabledB:VisibleC:BackColorD:Caption106..zSTàáâÁãᜫåæᙠᑁç[3ᡠᵨḄᡈ.().A:ShowB:HideC:LoadD:UnLoad107.᝞PᙠSTÁëìíîzᦻ)᪾ÏïTextl,45ÕY()WX×ØðᐭÖḄASCHṹ.A:ChangeB:LostFocusC:KeyPressD:GotFocus108.45Ý2ᑤ◀ôõö÷ø¢ùúûüḄýᦪ().A:LtrimB:RtrimC:TrimD:Mid109.ᙠ☢ᐵSTḄÿ
┯Ḅ஺.A:ᙠḄ᦮ᕜ
Initialize!"B:ᙠᵨShow)*+,-!.LoadC:23◤⌕67+,8.9PaintD:ResizeᙠḄᜧ?ᨵᡠᦋC+D110.HIJḄKLMNOPQR,VisualBasicᨬWXḄᱯZ().A:]᪀ᓄKLMNB:KL`a᛻C:cdeKfᑴD:KLhiᢈk111.ᙠl7!mnoTimer1ḄN+ᘤt,⌕u2◞0.1w!"N+ᘤ,ᑣyz{|Ḅ}ឋMOA:Timerl.Enabled=0.1B:Timerl.Interval=0.1C:Timerl.Enabled=100D:Timerl.Interval=100112.Cis◀ᡈᱏ᪾
ḄA:Picture}ឋMḄᫀB:ᙠMN+ḄtC:KLMN+ḄᦻD:yl113.ᦻ᪾ᨵ}ឋ.A:EnabledB:VisibleC:BackColorD:Caption114.o¢ᵨ£¤ᡭ`¦ᓫ᡻©¦ᓫª,«!¬ᢥḄ£().A:¯°£F10ᡈAltB:Shift+¯°£F4C:Ctrlᡈ¯°£F8D:Ctrl+Alt115.zᑡ⌱⚗
}·VisualBasic6.0KLMNḄ0.A:☢ᔣºஹ¼LcdB:☢ᔣºஹcdC:☢ᔣ½KஹcdD:☢ᔣ½Kஹ¼Lcd116.3Á©KL+,ÂJÃdÄdḄ½K0.

32A:LoadB:ClickC:UnLoadD:GotFocus117.VBḄeKfᑴA:ÈᓄB:☢ᔣºC:cdD:☢ᔣ½K118.ᙠzᑡÉ
{|Ḅ0.A:ʽ〉3ḄMyᙠKLÁ©ÌÍ.+ᘤ)*ᙠlB:ᙠᑡ⊤᪾
-°Ï©Ð⚗⌱ÑC:Òᘤᑁ-°ᨵÒᘤºD:᪾ÔÕᨵClickDblClick119.o¢×lḄØtCoÙdḄ,᡻©ḄÚÛ஺.A:ᓫÜḄÝ᪾B:ᓫÜÞtḄᑁßC:àÜÞtD:àÜ120.zᑡ-°ᡭ`áᐹãäḄÚÛ().A:᡻©"È”¦ᓫ
Ḅ஻áᐹã''ªB:ᢥAlt+F8£C:ᓫÜáᐹélḄ஻áᐹã஻ᢥêD:ᢥAlt+V,ᯠìᢥX£121.z☢ᐵ·ᡭᓺð᪾}ឋḄÉ┯Ḅ.A:Copies}ឋᢣ.ᡭᓺḄòᦪ.B:HDC}ឋᢣ.ᑖö÷ᡭᓺfḄø,ᵨᩭúûºḄMᜓa᛻.C:FromPage}ឋᢣ.⌕ᡭᓺᦻ᫏Ḅ⚓
.ᵨឋFlagsឋ1.D:MaxMinឋᵨᩭFromPageToPageḄ
&ᐸ(Minᢣ*ᐕ,Ḅ-.⚓ṹ,Maxᢣ*ᐕ,Ḅᨬ3⚓ṹ.122.6☢89:;Ḅ?VBBᵨCDEFᨵ>?HCᦻJ>?KLᦻJB:>?VBBᵨCDEFᨵ>?HCᦻJ>?MNᙽC:>?VBBᵨCDEFᨵ>?KLᦻJ>?᪗RNᙽD:>?VBBᵨCDEFᨵ>?᪗RNᙽ>?MNᙽ123.ᙠ6☢ᐵVKLWJḄXY(,┯[Ḅ?KLᔂ,ᨬ3Ḅ>?WJ<.

33A:DeactivateB:QueryUnloadC:UnloadD:terminate126.6ᑡCD3,ᐸ.PrivateSubForm_Click()Filename=//c:\testfile.txt”OpenfilenameForOutputAs#1Print#1,"ABCDᡃ<>?«¬”Close#1OpenfilenameForInputAs#1MsgBoxInput(8,1)Close#1EndSubA:ᙠ°ᵨu±᪾("ABCDᡃ<>?“B:ᙠ°ᵨu±᪾(“ABCDᡃ<஻C:ᙠKL(“ABCDᡃ<>?஻D:ᙠKL(“ABCDᡃ<஻127.ᙠ6ᑡ89(&:;Ḅ<().A:°¶〉Ḅ&abᙠCD¸¹º*ᘤᙠKL¼B:ᙠᑡ⊤᪾(_¾¿k⚗⌱ÂC:Ãᘤᑁ_¾ᨵÃᘤuÄD:᪾ÅÆᨵClickDblClickWJ128.ÇᵨÈÉᡭËoᓫ᡻oᓫÍÎ,Ï>ÐBᢥḄÈ<஺.A:Ó¾ÈF10ᡈAltB:Shift+Ó¾ÈF4C:CtrlᡈÓ¾ÈF8D:Ctrl+Alt129.b6XY(┯[Ḅ?÷LC:uÄ<>?ø᝱úçûᡈ^9üḄýþLD:uÄÿḄ⌴Ḅ131.ᦻḄஹஹᜧஹᦔḄឋ0.

34A:FontB:CaptionC:NameD:Text132.3⌕Ἥ678ᵨᡝ;<,>?@AB⌕CḄ7Ḅឋ஺.A:MaxButtonB:MoveableC:MoveD:ControlBox133.JᑡLMᡭOPᐹR7SḄTU().A:᡻஻Z[”]ᓫ_Ḅ஻PᐹR஻`aB:ᢥAlt+F8tC:ᓫbPᐹcḄ஻PᐹR஻ᢥeD:ᢥAlt+V,ᯠwᢥXt134.J☢ᐵijk7Ḅlm_nopḄA:Uyz<{|ḄMain}~Mᙠ7ᙽᑁB:᝞z<{|Main}~,ᑣ~z]ᓫ_ᨵ]ᓫ⚗y"Open”.3⌕y]ᓫ`a>?«¬t,ᓽᢥJALT¯0nM°᡻Open`a,ᑣᙠ]ᓫ±²ᘤ_>?“Open”`aḄµ¶·A:¸Captionឋ>?y&0penB:¸Captionឋ>?y0&penC:¸Nameឋ>?y&0penD:¸Nameឋ>?y0&pen137.ᢣa"Circle(1000,1000),500,8,-6,-3”½¾ᑴA:ÀᙊB:ÂᙊC:ᙊÃD:ᡧ138.Ꮇ᝞ᑡ⊤᪾(Listl)ᨵ4ᦪ⚗,Ê˸ᦪ⚗“China”Íᑮᑡ⊤᪾ḄᨬwnÐÑᵨḄ¢£A:Listl.Addltem3,"China”B:Listl.Additem"China”,Listl.ListCount-1C:Listl.Additem"China”,3D:Listl.Additem"China”,Listl.ListCount139.yÔᵨtÕᡭO]ᓫÖ᡻]ᓫ`a,×ØÐᢥḄt()A:ÙMtF10ᡈAltB:Shift+ÙMtF4C:CtrlᡈÙMtF8D:Ctrl+Alt

35×ÝÞᑖᦪàஹ⌱â⚪1.J~Dimaa=Array(1,2,3,4,5,6,7)Fori=Lbound(A)ToUbound(A)a(i)=a(i)*a(i)NextiPrinta(i)çè¦A:49B:0C:LpD:~è┯2.JiᔠëḄᦪàᐗí().A:x8B:x[A]C:x(3)D:x{6}3.òóᨵᦪàôõ·Dima(-lTo3,2To5)Asinteger,᝞J÷ᵨᦪà_Ḅᐗí,opḄA:a(-1,2)B:a(4)C:a[-1,2]D:a(0,6)4.ᙠ7Í`aᢥen±ᑏ᝞Jùṹ·OptionBase1PrivateSubCommandl_ClickDimaA=Array(1,2,3,4)J=1Fori=4TolStep-1S=s+a(i)*jJ=j*10NextiPrintsEndSubᓫᢥA:4321B:12C:34D:12345."᡻$%&'()ᐭ11ஹ33ஹ55,᡻-Dima(4)AsInteger,b(4)AsIntegerForK=0To2a(K+1)=Vai(InputBox(஻DᐭᦪF஻))

36b(3-K)=a(K+1)NextKPrintb(K)A:llB:33C:55D:06.⌕ᑖNOP᝞%R▣ḄᦪFU1.12.23.34.45.56.67.78.89.9ᦪYZ[\]^_`(abcde)ḄA:Dima(9)AsSingleB:Dima(3,3)AsSingleC:Dima(-1To1,-5To-3)AsSingleD:Dima(-3To1,-5To7)AsInteger7.ᨵ$%UOptionBase1Dimarr()AsIntegerPrivateSubForm_Click()DimiAsInteger,jAsIntegerReDimarr(3,2)Fori=lTo3Forj=lTo2arr(i,j)=i*10+jNextjNextiReDimPreservearr(3,4)Forj=3To4arr(3,j)=10*j+5NextjPrintarr(3,2);arr(3,4)EndSub,ᓫqr,-A:022B:3135C:3245D:008,sᨵᦪYt[\]-:Dima(10),ᑣᦪYaᒹwᐗyḄzᦪ().A:10B:22C:8D:12

379.%☢&ḄPrivateSubCommand1_C1ick()Dima(lTo3,4)AsIntegerPrintLBound(a,1),UBound(a,1),LBound(a,2),UBound(a,2)EndSubA:1304B:0314C:1314D:030410.᝞%ᦪYZ[\]~ḄA:Dima[3,4]AsIntegerB:Dima(3,4)AsIntegerC:Dima(n,n)AsIntegerD:Dima[n,n]AsInteger11.sᨵᦪYt[\]-:Dima(-3to8),ᑣᦪYaᒹwᐗyḄzᦪ().A:5B:8C:llD:1212.ᵨ%☢\]ḄᦪYḄᐗyzᦪ0DimA(-2To4)AsIntegerA:6B:5C:7D:813.$%OptionBase1PrivateSubCommandl_Click()Dima,B(3,3)a=Array(1,2,3,4,5,6,7,8,9)Fori=lTo3Forj=lTo3B(i,j)=a(i*j)If(j>=i)ThenPrintTab(j*3);format(B(i,j),஻###஻);NextjPrintNextIEndSubA:123456789B:145789C:147

38246369D:12346914."ᨵ᝞%ḄᵨᡝUTypeWorkernumberAsStringnameAsstringageAsIntegerEndTypeᑣ$%~ᵨᡂᕒḄṹA:Workername=஻஻B:DimsAsWorkers.name஻஻C:DimsAsTypeWorkers.name஻஻D:DimsAsTypes.name஻஻15.ᙠqrz-Command1Ḅᢥ,ᯠᑏ᝞%:OptionBase1PrivateSubCommandl_Click()DimaAsVarianta=Array(1,2,3,4,5)Sum=0Fori=1To5Sum=Sum+a(i)Nextix=Sum/5Fori=1To5Ifa(i)>xThenPrinta(i);NextiEndSub,ᓫᢥ,ᙠqr¡¢Ḅᑁ¤

39A:12B:123C:345D:4516.¥$¦᪗¨©ªᦪY«Ḅ¬z©ªឋḄA:NameB:CaptionC:IndexD:Enabled17.%ᑡᨵᐵ©ªᦪY±²©ªḄ³´Ḅµ¶«,ᨬᔠᳮḄA:©ªᦪYᵫ»z¼Ḅ©ªYᡂ,²©ª½ᨵz©ª¾B:©ªᦪYḄIndex-0,¿²©ªḄIndex-d¾C:©ªᦪYḄIndex-1,¿²©ªḄIndex-0;D:©ªᦪYḄÀÁÂÃDim\]Z[¿²©ªaÄZ[.18.ᵨ%☢\]ḄᦪYḄᐗyzᦪ஺DimA(-3To5)AsIntegerA:6B:5C:8D:919.ᨵ$%Ḅ\]UOptionBase1Dimxscj(3,4,5)AsStringZ[ḄᦪYxscjᨵzᦪYᐗy.A:120B:20C:12D:6020.$%ᐵÆÃÇÃÈᦪḄɶ«┯ËḄ().A:ÃḄÈᦪ¥$©ªB:ᵨᦪYÌ-ÃḄÈᦪ'ÍᵨḄ஻Îᙢᙬ''RÒC:ᢥ஻ÎÓ஻RÒÎ〈Èᦪ',ᨵ¥^Õᦋ×_▭ÈᦪḄÓ.D:qr¥$Ì-ÃḄÈᦪ21.᝞%ᦪYZ[\]:Dima(3,-2To2,5),ᑣᦪYaᒹwḄᐗyḄzᦪ-A:120B:75C:60D:1322.ᙠqrÙÚzᢥᑏ᝞%ṹUPrivateSubCommandl_ClickDimArrl(10)asInteger,Arr2(10)AsIntegerN=3Fori=lto5Arrl(i)=iArr2(n)=2*n+iNextiPrintArr2(n),Arrl(n)EndSubᓫᢥ

40A:U3B:311C:133D:31323.$%OptionBase1PrivateSubCommand1_Click()Dima%(3,3)Fori=lTo3Forj=lTo3Ifj>lAndi>lThena(i,j)=a(a(i-l,j-1),a(i,j-l))+lElsea(i,j)=i*jEndIfPrinta(I,j)NextjPrintNextiEndSubA:123231323B:123123123C:123246369D:11122233324.ᙠqrÙÚzᢥᑏ᝞%ṹUOptionBase1PrivateSubCommandlClickDima(10)AsInteger,p(3)AsInteger

41k=5Fori=lTo10a(i)=iNextiFori=lTo3p(i)=a(i*i)NextiFori=lTo3k=k+pপ*2NextiPrintkEndSubᓫᢥA:35B:28C:33D:3725.$%ḄUPrivateSubForm_Activate()Dimaa=Array(1,2,3,4,5)Fori=Lbound(((A)ToUbound(((A)A(i)=i*a(i)NextiPrinti,Lbound(((A),Ubound(((A),a(i)EndSubA:40420B:50420C:aD:┯26.ᙠqr«ÙÚzᢥ,ᯠᑏ᝞%ṹ:PrivateSubCommand1_Click()ReDimthis(4)Fori=1To4this(i)=i*3NextReDimthis(6)Fori=1To6this(i)=this(i)+i

42NextPrintthis(3);this(6)EndSubᑣqr¡¢Ḅᑁ¤-U()A:36B:106C:126D:80
ஹ1ஹÝ^UÞᵨÆ_`UßàáâᦈᦪäᑨæᐸᔲᙠᦪY«᝞ᙠᦪY«ᑣéᐸᑤ◀ᔲᑣ¡¢ᦪäaᙠᦪY«஺PrivateSubForm_Click()Dima(10)AsInteger,xAsIntegerFori=1To10a(i)=Int(Rnd*90)+10Printa(i);NextiPrintx=InputBox(஻Dᐭ⌕ᑤ◀Ḅ᦮ᦪ஻)Fori=1To10'**********SPACE**********Ifa(i)=xThen[?]Nexti'**********SPACE**********If[?]ThenFork=iTo9'**********SPACE**********[?]NextkPrint஻ᑤ◀ḄᦪYU஻Fori=1To9Printa(i);NextiElsePrint஻ᦪäaᙠᦪY«஻EndIf

43EndSub2ஹ⚪ïUᨵ12zᦻÞ᪾⊤12zóô஺-A-J10zäöᑖNᓝzóô,ø¡¢ùóᑖN஺PrivateSubForm_Load()Dimk,h,pAsIntegerDimt(12)AsStringRandomize'**********SPACE**********Fork=1To[?]t(k)="Empty”Nextk'**********SPACE**********For[?]=65To74DoWhileTruep=Int(1+12*Rnd)'**********SPACE**********Ift(p)="Empty"Thent(p)=Chr(h)ExitDoEndIfLoopNexthFork=1To12Textl(k-1).Text=t(k)NextkEndSub3ஹ$%&ᑭᵨþÿᦪᡂ1510T00Ḅ᦮ᦪᯠᵨ⌱ᐸᑮᜧ᣸஺PrivateSubForm_Click()Constn=15Dima(lTon)AsInteger

44DimiAsInteger,jAsInteger,tAsInteger,minAsIntegerRandomizeFori=1Ton'**********SPACE**********a(i)=[?]NextiFori=1TonPrinta(i);NextiPrintFori=1Ton-1'**********SPACE**********[?]Forj=i+1TonIfa(j)

45PrintX=InputBox(”kZᐭ⌕^ᐭḄ᦮ᦪ஻)'**********SPACE**********[?]i=8DoWhilea(i)>x'**********SPACE**********[?]i=i-1Loop'**********SPACE**********Ifi>0Then[?]Fori=1To9Printa(i);NextiEndSub5ஹR☢ḄTrᵨsUVtRuvWᑭᵨᑈy\`᦮ᦪᑮᜧ᣸஺PrivateSubForm_Click()Constn=15Dima(lTon)AsInteger,workAsBooleanDimiAsInteger,jAsInteger,xAsIntegerRandomizeFori=1Tona(i)=Int(90*Rnd)+10NextiFori=1TonPrinta(i);NextiPrint'**********SPACE**********Fori=nTo2[?]work=TrueForj=1Toi-1

46Ifa(j)>a(j+1)Thenx=a(j):a(j)=a(j+1):a(j+1)=x'**********SPACE**********[?]EndIfNextj'**********SPACE**********IfworkThen[?]NextiFori=1TonPrinta(i);NextiEndSub{ஹTᦋ┯1ஹ⚪WR☢Tr7᦮ᦪᑮᜧ᣸OptionExplicitPrivateSubForm_Click()Dimt%,m%,n%,w%,a(7)AsIntegerForm=1To7a(m)=Int(10+Rnd()*90)Printa(m);஻஻NextmPrintForm=1To6t=m'**********FOUND**********Forn=2To7'**********FOUND**********Ifa(t)>a(n)Thenn=tNextn'**********FOUND**********Ift=mThenw=a(m)

47a(m)=a(t)a(t)=wEndIfNextmForm=1To7Printa(m)NextmEndSub2ஹᓫ஻஻ᢥ⊤ᓫ஻஻ᢥ⊤,ᙠ᪗᪾᝞஻02ᑖ10஻஺OptionExplicitDimxAsLongDimhAsInteger,mAsInteger,sAsIntegerPrivateSubForm_Load()Forml.Caption=஻¡᝱⊤(WᑖW)஻Command1.Caption=஻[&S]஻Command2.Caption=஻[&E]஻Label1.Alignment=2Label1.Caption=஻0:0:0஻Timerl.Interval=1000Timerl.Enabled=Falsex=0EndSubPrivateSubCommandl_Click()'**********FOUND**********Timerl.Enabled=FalseEndSubPrivateSubCommand2_Click()'**********FOUND**********Timerl.Enabled=Truex£0Label1.Caption=஻஻+Str(h)+஻஻+Str(m)+஻ᑖ஻+Str(s)

48+஻஻EndSubPrivateSubTimerl_Timer()x=x+1h=x\3600m=(xMod3600)\60'**********FOUND**********s=(xMod3600)\60Label1.Caption=Str(h)+஻W"+Str(m)+஻W"+Str(s)EndSub3ஹ⚪Wᢧ⌱ᓫᦪ᣸TWTª¡ᵫ¬¡®20¯s°100,300±Ḅ᦮ᦪᓫ஻ᐰ³஻ᢥᙠForml´µ20ᦪᓫ஻᜻ᦪ஻ᢥᙠForml´ᐸaḄ᜻ᦪᓫ஻᣸஻ᢥᙠForml´µ·᜻ᦪᑮᜧ஺⌕¸¹º»¼5ᦪ½஺OptionExplicitPrivatea(20)AsInteger,b(20)AsIntegerPrivatekAsIntegerPrivateSubcmdodd_Click()DimIAsIntegerk=0ForI=1To20'**********FOUND**********Ifa(I)/2=Int(a(I)/2)Thenk=k+1b(k)=a(I)EndIfNextIForI=1TokPrintb(I);'**********FOUND**********IfInt(I/5)<>I/5ThenPrintNextI

49PrintEndSubPrivateSubcmdAll_Click()RandomizeDimIAsIntegerForI=1To20'**********FOUND**********a(I)=Int(Rnd()*20+100)Printa(I),IfInt(I/5)=1/5ThenPrintNextIPrintEndSubPrivateSubcmdsort_Click()DimIAsIntegerDimJAsIntegerDimTempAsIntegerForI=1Tok-1ForJ=ITokIfb(I)>b(J)ThenTemp=b(I):b(I)=b(J):b(J)=TempNextJNextIForI=1TokPrintb(I);IfInt(I/5)=I/5ThenPrintNextIEndSub4ஹÀTḄuvÁÂÃXYÄ\Åᦪ`aZᐭ10᦮ᦪᯠ\Åᦪ`Ḅµ·ᦪÆÇÄ\25ᑡḄ£Åᦪ`஺ᨬᙠ\ᑁZË\Åᦪ`ஹᙠᑁZË£Åᦪ`஺OptionExplicitPrivateSubForm_Click()Dima(10),b(2,5)AsInteger

50DimiAsInteger,kAsInteger,jAsIntegerFori=1To10a(i)=InputBox(஻kÌÍ10᦮ᦪÄᦪ`஻)a(i)=Vai(a(i))Nextik=0Fori=1To2Forj=1To5k=k+1b(i,j)=a(k)NextjNextiPrintTab(10);஻ᦪ`aḄÇ஻PrintTab(10);Fori=1To10'**********FOUND**********Printa(i)NextiPrintPrintTab(10);஻£Åᦪ`bḄÇÁW஻Fori=1To2PrintTab(10);Forj=1To5'**********FOUND**********Printb(j,i);Nextj'**********FOUND**********Paintb(i,j)NextiEndSub5ஹÏT\ᦪÐÑᨵÒÓᑮᜧ᣸ÔḄᦪ`aᑤ◀×ᦪ`ØÙÚcᢝᨵÛÜᐸÝᐗßᢥ᯿R᪗áÚâã஺OptionExplicit

51PrivateSubForm_Click()DimA()AsInteger,NAsInteger,FlagAsIntegerDimiAsInteger,XAsInteger,PAsIntegerFlag=0N=InputBox(஻Zᐭᐗßᦪ஻)'**********FOUND**********DimA(N)Fori=1ToNA(i)=InputBox(஻Zᐭᦪ`Ḅä஻&i&஻ᐗß஻)NextiPrint஻ᑤ◀æᐗßçḄᦪ`஻Fori=1ToNPrintA(i);NextiStart:X=InputBox(஻Zᐭ⌕ᑤ◀ḄᐗßW஻)Fori=1ToNIfX=A(i)ThenP=i:Flag=1NextiIfFlag=0ThenMsgBox(஻èᨵéᐗß஻):GoToStartFori=PToN-1'**********FOUND**********A(i+1)=A(i)Nexti'**********FOUND**********N=N+1Print஻ᑤ◀ᐗßḄᦪ`:஻Fori=1ToNPrintA(i);NextiEndSub6ஹÀTḄuvÁ¸Ë100ᑮ200ḄᐰëßᦪÜᢥ¼4ஹ¼ᦪ½ᨵ10ì¹Ḅ¹ºZË஺

52OptionExplicitPrivateSubForm_Click()DimkAsInteger,iAsInteger,jAsIntegerk=0Fori=100To200'**********FOUND**********Forj=1Toi-1IfiModj=0ThenExitForNextjIfj=iThen'**********FOUND**********Printi;Tab(10);k=k+1'**********FOUND**********IfkMod5=0ThenPrint;EndIfNextiEndSub7ஹíTḄuvÁ®Ḅ10᦮ᦪî⌴ð᣸஺OptionExplicitPrivateSubCreateRNDODimTempAsIntegerDimIAsIntegerDimNAsIntegerDimX(10)AsIntegerDimJAsIntegerN=10Print஻ᦪ½W஻ForI=1ToN'**********FOUND**********X(I)=Int(Rnd()*90)PrintX(I);NextI

53PrintPrint஻᣸W஻ForI=0ToN-1ForJ=I+1ToN'**********FOUND**********IfX(I)>X(J)Then'**********FOUND**********Temp=X(I)X(J)=X(I)X(I)=TempEndIfNextJPrintX(I);NextIPrintEndSubPrivateSubCommand1_Click()CreateRNDEndSub

54äñëᑖÃT\ஹ⌱⚪1.⌕òóÃTôᵨõö÷,R☢óÃTøùúûᔠḄÁ().A:Subf2(ByVain%,ByVaim%)B:Subfl(n%,ByVaim%)C:Subfl(n%,m%)D:Subfl(ByVain%,m%)2.᝞RTWḄ÷ÁDima%,b%,c%PublicSubpl(x%,y%)Dimc%x=2*x:y=y+2:c=c+yEndSubPublicSubp2(x%,ByVaiy%)Dimc%x=2*x::y=y+2:c=x+yEndSubPrivateSubCommandl_Click()a=2:b=4:c=6Callpl(a,((B)Printa=;a,b=;b,c=;cCallp2(a,((B)Printa=;a,b=;b,c=;cEndSubA:a=2b=4c=6a=4b=6c=10B:a=4b=4c=10a=8b=8c=16C:a=4b=6c=6a=8b=6c=6D:a=4b=6c=14a=8b=8c=63.᝞RTWPrivateSubCommandl_Click()

55Printpl(3,7)EndSubPublicfunctionpl!(x!,n%)Ifn=0ThenPl=lElseIfnMod2=1ThenPl=x*pl(x,n\2)ElsePl=pl(x,n\2)\xEndIfEndIfEndFunctionḄ÷ÁA:18B:7C:14D:274.R☢óÃTøùúûᔠḄÁ().A:Subfl(ByVain%())B:Subfl(n%)AsIntegerC:Functionfl%(f1%)D:Functionf1%(ByVain%)5.ᙠý³´3ᦻí᪾(ÿᑖText1ஹText2Text3)1ᢥ(Command1).ᑏ᝞PrivateSubForm_Load()Textl.Text஻஻Text2.Text஻஻Text3.Text஻஻EndSubPrivateSubCommand1_C1ick()x=Val(Textl.Text)y=Val(Text2.Text)Text3.Text=GCD(x,y)EndSubFunctionGCD(ByVaixAsInteger,ByVaiyAsInteger)

56DoWhiley<>0tmp=xModyx=yy=tmpLoopGCD=xEndFunction012ᙠTextlᦻ6᪾89ᐭ18,ᙠText2ᦻ6᪾89ᐭ12,ᯠ@ᓫBᢥ,ᑣᙠText3ᦻ6᪾8EFḄᑁIJA:4B:6C:12D:186.QRSTUᐰWTU,XYᵨ஺ᐵ]^.A:StaticB:PublicC:PrivateD:Sub7.fg1hSCommandlḄᢥ,ᯠ@ᑏ᝞ijklPrivateSubCommandl_Click()StaticxAsIntegerCisy=y+2x=x+2Printx,yEndSubtu@,vwxyᓫBCommandlᢥ@2fg1EFḄJA:88B:82C:28D:228.0ᐵzk{k|ᦪḄ~82┯ḄJ().A:kḄ|ᦪ0JjB:ᵨᦪkḄ|ᦪ2YᵨḄJ''ᙢᙬ''C:ᢥ''஻〈|ᦪ2ᨵᦋT▭|ᦪḄ.D:fg0kḄ|ᦪ9.ᎷQSᵫSfgForml᪗ᙽᦻjModell{Mode12ᡂModellḄṹ᝞lPublicxAsInteger

57PublicyAsIntegerSubS10x=lS2EndSubSubS2()y=10Forml.ShowEndSubMode12Ḅṹ᝞lSubMainOSIEndSubᐸ8SubMain¤¥¦ᡂ§¨k,tu@2ᔜᙽḄ᡻uJ:A:FomrlfModelIfModel2B:Modell-*Model2^-FomrlC:Model2fModel1-FomrlD:Model2->FomrlfModel110.0ᐵzk{k|ᦪḄ~2┯ḄJlA:kḄ|ᦪ0JjḄB:ᵨᦪkḄ|ᦪ,YᵨḄᙢᙬḄC:°ᨵ±ᦪk²³k8´µḄ¶·¸ᑮºᵨḄ8D:fg0kḄ|ᦪ11.SubFunctionḄᨬᜧ½ᙠz.A:Functionᨵ¾¸,¿SubÀᨵB:Function◤⌕9ᐭ|ᦪ,¿SubÃᵨC:Sub0ᵨCallÄźᵨ2¿FunctionÃuD:ὅÇÈÃÉ12.᝞tuÊËlPublicSubProc(a%())Static1%Doa(I)=a(I)+a(I+1)

581=1+1LoopWhileI<2EndSubPrivateSubCommand1_C1ick()Dimm%,1%,x%(10)ForI=0To4:x(I)=1+1:NextIForI=0To2:Cal1Proc(x):NextIForI=0To4:Printx(I);:NextIEndSubA:34756B:35795C:23445D:4567813.0ÍÎḄ~JlᙠVisualBasicXᵨ8A:kḄQR0Ïᝅ2ÑkḄºᵨÃÏᝅB:kḄQRÃ0Ïᝅ,ÑkḄºᵨÏᝅC:kḄQRkḄºᵨᙳ0ÏᝅD:kḄQRkḄºᵨᙳÃ0Ïᝅ14.ᙠfg1hSCommand1ḄᢥSTextlḄᦻ6᪾,ᯠ@ᑏ᝞lPrivateSubCommandl_Click()Dimx,y,zAsIntegerx=5y=7z=0Textl.Text=CallPl(x,y,z)Textl.Text=Str(x)&Str(z)EndSubSubPl(ByValaAsInteger,ByVaibAsInteger,cAsInteger)a=a+l

59b=b+lc=a+bEndSubtu@,᝞ËᓫBᢥ,ᑣᙠᦻ6᪾8EFḄᑁIJA:514B:614C:50D:6015.VBḄkᨵÕÖ,×ØJ().A:ijkஹÙk±ᦪkB:SubkஹFunctionkPropertykC:ijkஹ±ᦪkÚឋkD:Subkஹ±ᦪkÜᵨk16.☢ktu@EFḄÊËJPubicSubFl(n%,ByVaim%)PrivateSubCommand1_C1ick()N=nMod10Dimx%,y%M=m\10x=12:y=34EndSubCallFl(x,y)Printx,yEndSubA:234B:1234C:23D:123ஹàá1ஹâãä2åᓺᐰçèégêëìᙠSQḄíîᐵïlêë(ᔖñ)=åᓺᐰç*9.75,ᑏÜkéåᓺçäòêëḄ±ᦪóPrivateFunctionlength(flongAsSingle)'**********SPACE**********[?]=flong*9.75EndFunctionPrivateSubForm_Click()DimleAsSingle'**********SPACE**********le=[?](InputBox(஻÷9ᐭéåᓺᐰç஻))'**********SPACE**********h=[?]

60Print”ùéḄåᓺᐰçJl"&le&"ᔖñ"&"ḄêëJl"&h&ᔖñ஻EndSub2ஹ0üᑖ0Ùk±ᦪᩭäòþÿᦪ
ᑖFunctionjishul(x!,eps#)AsDoubleDimn%,s#,t#n=1:s=0:t=1DoWhile(Abs(t)>=eps)s=s+tt=t*x/nn=n+1Loop'**********SPACE**********[?]EndFunctionSubjishu2(s#,x!,eps#)Dimn%,t#n=1:s=0:t=1DoWhile(Abs(t)>=eps)s=s+tt=t*x/nn=n+1'**********SPACE**********[?1EndSubPrivateSubCommand1_C1ick()Dimfl#,f2#fl=jishul(24,0.000001)'**********SPACE**********[?]jishu2(f2,2#,0.000001)Print஻:;஻

613ஹ>?suixian@AᑨCDEFᦪGHᔲHJKLᦪMᑭᵨP>?QRSTᦪUᡠᨵJKLᦪ஺ᡠY''JKLᦪ''HᢣEF3TᦪMᐸᔜTᦪG]^_`Pᦪab஺PrivateSubForm_Click()DimiAsIntegerFori=100To999'**********SPACE**********[?]NextiEndSubPublicSubsuixian(xAsInteger)Dimi%,j%,k%'**********SPACE**********i=[?]j=(x-i*100)\10k=x-i*100-j*10'**********SPACE**********If[?]ThenPrintxEndSub4ஹAc?deᵨ`fgnḄ▤jkn!o(1!=1)PublicFunctionfac(nAsInteger)AsInteger'**********SPACE**********Ifn=[?]Thenfac=1Else'**********SPACE**********fac;n*fac([?])'**********SPACE**********[?JEndFunctionPrivateSubCommand1_C1ick()

62Print஻facভfac(4)EndSub5ஹAc?deᵨ`fgnoFᦪGḄᨬᜧrsᦪ஺OptionBase1PrivateFunctiongcd(ByValm%,ByVain%)AsIntegerIfm

63Sஹ?dᦋ┯1ஹ⚪kᑏ?dMMᓽEFᜧ`2ḄᏔᦪ@A⊤ᡂFᦪ஺kᦋ┯⚪Ḅ☢⌕¢M£⌕ᵨᩭ¥¦?dMn⚪Uᨵ§ὃ☢Mᑣª§ὃ஺PrivateSubCommand1_C1ick()DimxAsInteger,iAsIntegerx=Vai(Textl.Text)Ifx=4ThenText2=஻2+2஻Elsei=3DoWhileText2=஻஻'**********FOUND**********Ifjudge(i)ThenText2=i&஻+஻&xiElsei=i+2EndIfLoopEndIfEndSub'**********F0UND**********PrivateFunctionjudge(nAsInteger)AsStringDimiAsIntegerFori=2Ton1'**********FOUND**********IfnModi=0ThenExitForNextjudge=TrueEndFunctionPrivateSubCommand2_Click()Textl.Text=஻஻

64Text2.Text=EndSubPrivateSubCommand3_Click()UnloadMeEndSub2ஹ⚪kᑏ?dMQR᦮ᦪab±ᑁᡠᨵḄᓣdᦪ஺ᐸUa2100,'bW3000஺ᡠYᓣdᦪMHᢣ´ᨬµᦪT¶·M¸ᑮFTM'º»⌴½Ḅ᦮ᦪ஺'¾᝞134ஹ13579HᓣdᦪMÂ173,2574Hᓣdᦪ஺‘kᦋ┯⚪Ḅ☢⌕¢M£⌕ᵨᩭ¥¦?dMn⚪Uᨵ'§ὃ☢Mᑣª§ὃ஺OptionExplicitOptionBase1PrivateSubCommandl_Click()DimaAsInteger,bAsInteger,iAsIntegera=Vai(Textl.Text)b=Vai(Text2.Text)Fori=aTobIfsx(i)ThenListl.AdditemCStr(i)EndIfNextIfListl.ListCount=0ThenListl.Additem஻Äᓣdᦪ஻EndSub'**********FOUND**********PrivateFunctionsx(byvalnAsInteger)AsBooleanDima()AsInteger,kAsInteger,iAsIntegerDok=k+1'**********FOUND**********ReDimpreservea(k)

65a(k)=nMod10n=n\10LoopUntiln<=0'**********FOUND**********Fori=1ToUBound(a)-lIfa(i+1)>=a(i)ThenExitFunctionNextsx=TrueEndFunctionPrivateSubCommand2_Click()Textl.Text=஻஻Text2.Text=஻஻Listl.ClearEndSubPrivateSubCommand3_Click()UnloadMeEndSub3ஹc☢?dḄᵨHÅÆ100AᑁḄᐰ
ᦪMÈᢥÊË5Fᦪ}R஺OptionExplicitPrivateFunctionprime(ByVainAsInteger)DimiAsIntegerprime=1Ifn<=1Thenprime=0'**********FOUND**********Fori=1Ton-1IfnModi=0Thenprime=0NextiEndFunctionPrivateSubForm_Click()

66DimiAsInteger,kAsIntegerk=0Fori=1To100Ifprime(i)=1Then'**********FOUND**********PrintTab((kMod5)*8);ik=k+1'**********FOUND**********IfkMod4=0ThenPrint;EndIfNextiEndSub4ஹ⚪kc☢Ḅ?dᵨᩭÅÆÈ}RÎḄᩰÐSÑ஺11112113311464115101051OptionExplicitPublicSubreadin(a()AsInteger,nAsInteger)Dimi,jAsIntegerFori=1Ton'**********FOUND**********a(i,i)=1a(i,1)=1NextiFori=3Ton'**********FOUND**********Forj=2Toi1a(i,j)=a(i1,j)+a(i1,j1)NextjNexti

67EndSubPublicSubprintf(a()AsInteger,nAsInteger)Dimi,jAsIntegerFori=1Ton'**********FOUND**********Forj=1ToiPrintTab(5*j+10);a(i,j);NextjPrintNextiPrintEndSubPrivateSubForm_Click()Dimx(10,10)AsIntegerCallreadin(x(),6)Callprintf(x(),6)EndSub5ஹᑏ?dM}ᐭEFnTÓ᦮ᦪM¢ᐸÔdᦪÈ}R஺¾᝞M}ᐭḄÓ᦮ᦪÕ1234,}RᑣÕ4321஺᝞ÖEFᦪḄ×TᦪÕ0,ᑣPᦪØᨵÔdᦪ஺kᦋ┯⚪Ḅ☢⌕¢M£⌕ᵨᩭ¥¦?dMn⚪Uᨵ§ὃ☢Mᑣª§ὃ஺PrivateSubCommand1_C1ick()DimnAsLongn=Vai(Textl)'**********FOUND**********IfLeft(CStr(n),1)=஻0஻ThenText2=஻ÙᦪÕ0,ÄÔdᦪ஻ElseText2=nx(n)EndIfEndSub

68PrivateFunctionnx(nAsLong)AsLongDimkAsInteger,stAsStringDok=nMod10'**********FOUND**********st=k&stn=n\10'**********FOUND**********LoopUntiln<>0nx=Vai(st)EndFunctionPrivateSubCommand2_Click()Textl.Text=஻஻Text2.Text=஻஻EndSubPrivateSubCommand3_Click()UnloadMeEndSubÚஹ?dÛf1ஹᑏÜᦪfun,ÜᦪḄÝÞHkfgFÓ᦮ᦪḄ'ᨬᜧrsᦪMÈß஺᝞k'FᦪÕ15ஹ20,àÖß஻5஻'⌕¢áᵨDo...Loopâãᩭäå஺'ækçᙠᢣéḄêëᑁᑏìṹ'ìṹîÞᑏᙠË᪗ðñ'òóᦋôᨵìṹ'õö÷òóᦋøùú?ᦻëḄüýþÿ
ᔲᑣ஺PrivateFunctionfun(mAsInteger,nAsInteger)AsInteger

69Dimr%Ifm>nThenr=m:m=n:n=r'**********Program********************End**********EndFunctionPrivateSubForm_Load()ShowPrintfun(15,10)NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDima(10)AsStringDimfinAsIntegerDimfOutAsIntegerfin=FreeFileOpenApp.Path&஻\indat஻ForInputAs#flnfOut=FreeFileOpenApp.Path&஻\out.dat஻ForOutputAs#fOutFori=1To10Step2LineInput#fIn,a(i)LineInputttfln,a(i+1)PrintSfOut,Trim(Str(fun(Vai(a(i)),Vai(a(i+1)))))NextClose#flnCloseWfOutEndSub

702ஹ’⚪᝞᦮ᦪḄᡠᨵ(ᒹ1,ᒹ!")'%&'(ᦪ)*
ᑣ+,ᦪ-.ᦪ஺/᝞6=1+2+3,'ᡠ465.ᦪ஺6ᑏ8ᦪIsWs(m)ᑨ>m5ᔲ-.ᦪ,'8ᦪḄ?@A5BCD஺EFGHIJ10004ᑁḄ.ᦪ
’PrivateSubForm_Click()Dimi%,j%,sl$,s$Print"10004ᑁḄ.ᦪ-஻Fori=1To1000IfIsWs(i,si)Thensi=Left(si,Len(sl)-1)Printi;“l஻msis=s&i&஻=஻&si&vbCrLfEndIfNextiYZJ(s)EndSubFunctionIsWs(m,ByRefs$)AsBoolean'**********Program********************End**********EndFunctionPrivateSubYZJ(i$)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&஻\12.out஻ForOutputAs#OUT

71Print#OUT,iClose#OUTEndSub3ஹ⚪6ᑏ8ᦪfun,8ᦪḄ5ᑨ>5'ஹᦪ5ᐸ
)ḄIJ஺'IJ“஻'ᦪIJ஻ᦪ஻'ᐸIJ“ᐸ"'⌕ᵨSelectCaseᩭ஺PrivateFunctionfun(nAsString)AsString'**********Program***********4**1**1**1*TTv-vz-1*1*11(JEndFunctionPrivateSubForm_Load()ShowPrintfun(஻A஻)Printfun(஻9஻)PrintfunCDNJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDim1AsIntegerDima(10)AsString*1DimfinAsInteger

72DimfOutAsIntegerfin=FreeFileOpenApp.Path&"\in9dat஻ForInputAs#fInfOut=FreeFileOpenApp.Path&஻\out.dat஻ForOutputAsSfOutFori=1To10LineInput#fln,a(i)PrintSfOut,fun(a(i))NextClose#flnClose#fOutEndSub4ஹ⚪¡¢£ᜧ¥2ḄᏔᦪ§¨4'⊤Jᡂ«¬ᦪ%&஺6G6T100%®Ḅᐰ°Ꮤᦪ'⊤J-«¬ᦪ%&
±ᙠᑡ⊤᪾IJ
ᨬLabel1’IJᐳᨵ·¸¹¬ᦪ%&OptionExplicitPrivateSubCommand1_C1ick0Dimi%,j%DimsAsStringFori=6To100Step2Forj=3ToInt(i/2)Step2Ifprime(j)Andprime(i-j)ThenListl.Additemi&஻=஻&j&஻+஻&i-jEndIfNextjNextiLabel1=஻6&100%®ᨵ஻&Listl.ListCount&஻¹¬ᦪ&஻s=Label1YZJ(s)Command1.Enabled=False

73EndSubFunctionprime(mAsInteger)AsBoolean'**********Program********************End**********EndFunctionPrivateSubYZJ(iAsString)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&"\12.out"ForOutputAsWOUTPrint#OUT,iClose#OUTEndSub5ஹ⚪6ᑏ8ᦪfun,8ᦪḄ5᪷¼½ᑖᑴ'ᡂÀmark(᦮ᦪ)
IJ¹ÁÂᑴḄÃÄ஺ᩩÆ᝞Ç'markᜧ¥*¥90IJ“ÈÉ”'markË¥90Ìᜧ¥*¥80IJ"ÎÏ”'markË¥80Ìᜧ¥*¥70IJ"Ñ*”'markË¥70Ìᜧ¥*¥60IJ"ÒÓ”'markË¥60IJ''ÒÓ”'⌕ᵨSelectᩭ஺'Ô£ÕᙠᢣÄḄ×Æᑁ6ᑏØṹ'ØṹÚᑏᙠ«Û᪗Ý%®'ÞßᦋáᨵØṹ

74'âãäÞßᦋåæ&çGᦻÆḄé+Òê
ᔲᑣ஺PrivateFunctionfun(markAsInteger)AsString'**********Program***********1**1**1**1**1**1**1*TT*1**1**1*£311(JEndFunctionPrivateSubForm_Load()ShowPrintfun(90)NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDimsAsStringDima(10)AsIntegerDimfinAsIntegerDimfOutAsIntegerfin=FreeFileOpenApp.Path&஻\indat஻ForInputAs#flnfOut=FreeFileOpenApp.Path&஻\out.dat஻ForOutputAs#fOutFori=1To10LineInput#fIn,sa(i)=Vai(s)PrintSfOut,fun(a(i))NextClose#flnCloseWfOutEndSub

756ஹ⚪(×Æ)ᓫìíîᢥð஺(ñ)s=l+(l+2)+(1+2+3)+(1+2+3+4)+…+(1+2+3+4+…+n).'ᵨUntil·⚗ó
ôᑮ&ᜧ¥5000-ö஺'±ãᐭøùSÑPrivateSubCommand1_C1ick()Dimi%,sum%,t%DimsAsString'**********Program**********cx|cLabel1.Caption="ú"&i-1&"⚗Ḅ&="&sums=Label1.CaptionYZJ(s)EndSubPrivateSubYZJ(iAsString)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&"\12.out"ForOutputAs#OUTPrint#OUT,iClose#OUTEndSub7ஹ⚪(×Æ)ᓫìíîᢥð஺'(ñ)ᙠûᵨüýþüý«ᦪÿab,ᑭᵨᦪᡂ44Ḅ▣aᦪᦪᙠY30,70ZᑁbᦪᦪᙠY100,140Zᑁ஺⌕'1ஹ!A"▣ஹ#!B"▣஺

76'2ஹA"▣()*ᐗ,-B"▣/)*ᐗ,-'0123ᐭ56SDima%(3,3),b%ব3)DimsAsDouble,saAsDouble,sbAsDoublePrivateSubForm_Load()Fori=0To3Forj=0To3a(i,j)=Int(Rnd*36+35)b(i,j)=Int(Rnd*41+100)NextjNextiEndSubPrivateSubCommandl_Click()Picturel.CisFori=0To3Forj=0ToiPicturel.Printa(i,j);஻஻fNextjPicturel.PrintNextiEndSubPrivateSubCommand2_Click()Picture2.CisFori=0To3Forj=iTo3Picture2.PrintTab(j*6);b(i,j);NextjPicture2.PrintNextiEndSubPrivateSubCommand3_Click()Picture3.Cis

77sa=0Fori=0To3sa=sa+a(i,i)Nexti'**********Program**********Picture3.Print"Aᦪ()*ᐗ,i“fsaPicture3.Print"Bᦪ/)*ᐗ,i“fsbs=sbYZJ(s)EndSubPrivateSubYZJ(iAsDouble)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&"\12.out"ForOutputAs#OUTPrint#OUT,iClose#OUTEndSub8ஹ⚪wxᑏᦪfun,ᦪḄ{|}ᑨ}'ஹᦪ}ᐸḄ!஺'!""'ᦪ!஻ᦪ஻'ᐸ!஻ᐸ“'⌕ᵨIFᩭ஺'ᙠᢣḄᑁxᑏṹ

78’ṹ|ᑏᙠ᪗-’¡¢£ᦋ¥ᨵṹ'§3¨¡¢£ᦋ©ª«¬ᦻḄ®¯°±²ᔲᑣµ2¶·஺PrivateFunctionfun(nAsString)AsString'**********Program********************End**********EndFunctionPrivateSubForm_Load()ShowPrintfun(஻A஻)Printfun(஻9஻)Printfun")NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDim1AsIntegerDima(10)AsString*1DimfinAsIntegerDimfOutAsIntegerfin=FreeFileOpenApp.Path&஻\in9dat஻ForInputAs#flnfOut=FreeFile

79OpenApp.Path&஻\out.dat஻ForOutputAs#fOutFori=1To10LineInput#fIn,a(i)Print#fOut,fun(a(i))NextClose#flnClose#fOutEndSub9ஹ⚪wxᦪ¹¬IsH(n),)»¥¼½᦮ᦪn,ᑨ¿ᦪ'}ᔲ}ÀᦻᦪᦪḄÁÀÂÃÄiÅÆÄ஺(ǬÈ'ÉÊᐭᦪÇᵨIsHᦪ¹¬ᯠµᙠÌ᪾!Êᐭ'Ḅᦪ)»Àᦻᦪ!FunctionIsH(ByVain$)AsBoolean'**********Prograni**********ÑÒÑÓUEndFunctionPrivateSubForm_Load()EndSubPrivateSubTextl_KeyPress(KeyAsciiAsInteger)DimsAsStringIfKeyAscii=13ThenIfIsH(Textl.Text)ThenLabel2.Caption=Label2.Caption&Textl.Text&ਭ&vbCrLfElse

80Label2.Caption=Label2.Caption&Textl.Text&vbCrLfEndIfTextl.Text=஻஻EndIfs=Label2.CaptionYZJ(s)EndSubPrivateSubYZJ(iAsString)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&஻\12.out஻ForOutputAs#OUTPrint#OUT,iClose#OUTEndSub10ஹ⚪w()ᢥÀ×஺'(Ø)Êᐭ᦮ᦪn,!ÙᐹᨵnḄᩰÜ஺'!n=8Ḅᦔ2஺0123ᐭ56SDimsAsStringPrivateSubTextl_KeyPress(KeyAsciiAsInteger)Dimn%,j%,i%Dima(20,20)AsIntegerIfKeyAscii=13ThenPicturel.Cisn=Vai(Textl.Text)Fori=1Tona(i,1)=1a(i,i)=1NextiFori=3TonForj=2Toi-1

81a(i,j)=a(i-1,j-1)+a(i-1,j)NextNext**********Program**********EndIfYZJ(s)EndSubPrivateSubYZJ(iAsString)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&஻\12.out஻ForOutputAs#OUTPrint#OUT,iClose#OUTEndSub11ஹ⚪w()xᦪm,nᨬᜧàáᦪḄᦪ¹¬f(m,n);'(ǬÈᙠᦻâ᪾Êᐭᦪãᓫå“Çᵨ”ᢥç,'Çᵨf(m,n)¹¬ᙠèé᪗ê᪾!120123ᐭ56S஺PrivateSubCommand1_C1ick()Dima%,b%DimsAsStringa=Textl.Textb=Text2.TextLabel2.Caption=Label2.Caption&a&஻஻&b&஻z)&f(a,

82b)&vbCrLfs=Label2.CaptionYZJ(s)EndSubFunctionf(ByVaim%,ByVain%)AsInteger'**********Program********************End**********EndFunctionPrivateSubYZJ(iAsString)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&஻\12.out"ForOutputAs#OUTPrint#OUT,iClose#OUTEndSub12ஹ⚪w()ᓫåëìᢥç஺'(Ø)í⌱ᙠTextlᦻâ᪾ÊᐭḄïÈᙠText23ð஺'0123ᐭ56SOptionExplicitPrivateSubCommandl_Click()Dimi%,sl$,s2$,ch$

83DimsAsStringsi=Trim(Textl)**********Program**********YZJ(s)EndSubPrivateSubYZJ(iAsString)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&஻\12.outzForOutputAs#OUTPrint#OUT,iClose#OUTEndSubPrivateSubCommand2_Click()Textl=஻஻Text2=஻஻EndSubPrivateSubCommand3_Click()EndEndSub13ஹ⚪w()ᓫåëìᢥç஺'(Ø)x¬È!ÙᡠᨵḄóôõᦪ஺'ᡠöóôõᦪ}ᢣ3÷ᦪᐸᔜ÷ᦪùú»¿ᦪâû஺'ü᝞153}óôõᦪ,þi153=13+53+33.⌕ᵨᓫÿ
ᐭSOptionExplicit

84PrivateSubCommand1_C1ick()DimsAsString'**********Program**********YZJ(s)EndSubPrivateSubYZJ(iAsString)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&஻\12.out:zForOutputAs#OUTPrint#OUT,iClose#OUTEndSub14ஹ⚪ABCᑏEᦪfun,EᦪḄIJKBᑨMNOᦪKᔲQRᦪ஺'TUVWXYV஺᝞B[ᦪQRᦪ\:UV஻Rᦪ஻][ᦪQ^Rᦪ\:UV஻^Rᦪ஻:⌕`aᵨForcdᩭ
:ᵨfghflagiQ[ᦪ:KᔲQRᦪḄ᪗k:lmBnoaᵨGotocd஺'lmBqᙠᢣtḄuvᑁCᑏxṹ'xṹzJᑏᙠ{|᪗}~'noᦋᨵxṹ'

85oᦋᦻvḄ:ᔲᑣ஺PrivateFunctionfun(mAsLong)AsStringDimflagAsBoolean'**********Program**********

86*1**£**1**i*rrV-.J*i<«i*wim)Functionf(ByVaix%)AsDouble'**********Program**********

87**********End**********EndFunctionPrivateSubCommand1_Click()Dimn%,m%,t%,cAsDoublen=Vai(Textl)m=Vai(Text2)Ifn

88®X¯`sn=a+aa+aaa+••,+aa••,aaa]nOa^,'ᐸaK±²©¨ᩩ³oḄNO1T9ᒹµ19^ḄNO¶᦮ᦪ,'nK±²©¨ᩩ³oḄ5T10ᒹµ510^ḄNOᦪ஺'¸᝞:¹a=2,n=5\:sn=2+22+222+2222+22222.ᐭSDimsAsStringPrivateSubForm_Load()HScrolll.Min=1HScrolll.Max=9HScroll2.Min=5HScroll2.Max=10EndSubPrivateSubHScrol1l_Change()Label1.Caption=஻a=஻&HScrolll.ValueEndSubPrivateSubHScrol12_Scroll()Label2.Caption=஻n=஻&HScroll2.ValueDimn%,a%,i%,sum&,t&a=HScrolll.Valuen=HScrol12.ValueLabel2.Caption=஻n=஻&HScroll2.ValueLabel3.Caption="sum=஻sum=0:t=0'**********Program**********

89s=Label3.CaptionYZJ(s)EndSubPrivateSubYZJ(iAsString)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&஻\12.out஻ForOutputAs#OUTPrint#OUT,iClose#OUTEndSub

90º»¼ᑖᦻvNஹ⌱¾⚪1.ᙠ¥☢⌱⚗:nJÁᡂÃÄᦻvḄÅÆiḄK.A:LineInput#cdB:Input#cdC:Input஺EᦪD:Get#cd2.PRINT#1,STR1$ḄPRINTK.A:ᦻvḄᑏcdB:ᙠËUVḄÌÍC:ÎD:ÏËᙳnK3.QÒÓÔNOÕÖᦻv,ᐸ×NᩩØÙᵫÛOnÜᦪÝÞhḄᦪÝ⚗ᡂ,Xaᵨ.A:ØÙÞhB:ᦪC:ßàáÞhD:Þh4.¥☢ᐵãÕÖᦻvḄäå¶æḄKA:ᦻvḄᑁçK±²ÕÖᦪèéḄB:ᦻvḄØÙê±²ÕÖᦪèéC:ëÃᦻvḄØÙ᪷ÝØÙêÕÖᙢÅᑏD:ᦻvḄ×ᩩØÙḄîïKÕÖḄ5.ᢥᦻvḄò̤ᑖQ.A:ÄᦻvÕÖᦻvB:ᦻóᦻv¦ôᑴᦻvC:ᦻvᦪÝᦻvD:zÅᦻvÅᑏᦻv6.ᙠÄᦻv.A:ᦻvᢥ×ᩩØÙḄØÙê÷ᑮᜧ᣸B:ᦻvᢥ×ᩩØÙḄîï÷ᑮᜧ᣸C:ᦻvᢥØÙḄûᐵüᦪÝ⚗Ḅ÷ᑮᜧḄÄD:ØÙKᢥᑏᐭḄᐜÄþḄ:Åÿ
ᢥᑏᐭḄᐜ7.⌕ᐭᦻ''c:\tl.txt஻Ḅᦻ"᝞$%&'()Ḅ
.A:F=''c:\tl.txt"OpenFForInputAs#1B:F=''c:\tl.txt"Openஹ'F"ForInputAs#1C:0pen"c:\tl.txt"ForOutputAs#1D:0penc:\tl.txtForInputAs#1

918.$☢ᐵAᦻḄBC()Ḅ
.A:DᩩFGḄHIJKLMB:NOPQRSᦻ'ḄTᩩFGUVᙢXᦋC:ᦪ[\]^ASCHṹbcdeᙠᦻ'"ᡠ^NOPᦻhQijklD:ᦻḄmno᪀qᩖ9.FGHIᨬᜧNvḄw
x⁚.A:32767B:32768C:655350:6553610.⌕~''c:\tl.txt஻Ḅᦻ"᝞$%&'()Ḅ
.A:F=''c:\tl.txt஻Open"F஻ForAppendAs#2B:F=''c:\tl.txt”Openஹ'F஻ForOutputAs#2C:0penc:\tl.txtForOutputAs#2D:0pen''c:\tl.txt"ForOutputAs#211.FGḄᑁᑏᐭᦻ'ᢣḄ,ᡠᵨḄ%&Ḅc.A:Getᦻ"FG,B:Getᦻ,"FGC:Putᦻ""FGD:Putᦻ"FG,12.$ᑡR"ᐸo.PrivateSubForm_Click()Filename=//c:\testfile.txt”OpenfilenameForOutputAs#1Print#1,஻ABCDᡃ
¥¦஻Close#1OpenfilenameForInputAs#1MsgBoxInput(8,1)Close#1EndSubA:ᙠOᵨSª᪾'kl஻ABCDᡃ
஻B:ᙠOᵨSª᪾'kl஻ABCDᡃ
஻C:ᙠ¬'kl஻ABCDᡃ
஻

92D:ᙠ¬'kl"ABCDᡃ
"13.$☢ᐵAᦻḄBC()Ḅ
.A:ᦻ'ᢥDᩩFGḄFG®ᑮᜧ᣸±B:ᦻ'ᢥDᩩFGḄHI®ᑮᜧ᣸±C:ᦻ'ᢥFGḄTᐵ²ᦪ[⚗ᜧᑮ®Ḅ᣸D:FGᢥ´ᐭḄᐜde"
ᢥµᑏᐭḄᐜ14.·VBR¹dᙠ,º»¼½¦Ḅᦻ
.A:.docஹ.txtB:.comஹ.exeC:.vbpஹ.frmD:.batஹ.sys15.$☢¿À()Ḅ
.A:VBÁᵨRº»ᨵÃRᦻĬᦻB:VBÁᵨRº»ᨵÃRᦻÄÅÆᙽC:VBÁᵨRº»ᨵ¬ᦻÄ᪗ÉÆᙽD:VBÁᵨRº»ᨵ᪗ÉÆᙽÄÅÆᙽ16.ÊËQiஹQÌஹÍḄÎᡂÐ᛻"VisualBasicḄÃÊÒ᝱NᑖÕÖஹ'×ஹÄ()ØÙÆc.A:ÚÛB:C:Üᐭ×ÝD:⌲&ßà17.^$áC┯ãḄ
.A:ᙠÃRäåæᳮè¬é'\]ᒹëÃRᦻìíAîÃRḄᐸïᦻB:ÃR'N^ëᨵð᪗ÉÆᙽᦻC:^.bas᡽òḄᦻ
᪗ÉÆᙽᦻD:¬ᦻᒹëî¬ìᐸóḄíឋ18.^$õíAVisualBasicö÷ᦻÅḄ
.A:,frmB:*.batC:*.vbpD:*.bas19.VB¬ᦻḄ᡽ò
.A:VBWB:VBPC:FRMD:BAS

93ûüýᑖþ⚪
ஹᦋ┯1ஹ⚪ᵨ100-300ḄᡠᨵᦪOptionExplicitPrivateSubForm_Click()DimnAsInteger,kAsInteger,iAsInteger,switAsIntegerForn=101To300Step2k=Int(Sqr(n))i=2'**********FOUND**********swit=0'**********FOUND**********Whileswit=0andk>=iIfnModi=0Thenswit=1Else'**********FOUND**********i=i+1EndIfWendIfswit=0ThenPrintn;EndIfNextnEndSub2ஹ⚪ᐭᨵ10JKᦪLMNᑮᜧLQᦪRAS(A(1)~A(10)),'VᑴLᐭKᦪX,YZ[\ᔲQᙠASL_QᙠL`abc'᪗L_eQᙠLᑣghXiᐭᑮASLjeklASᦪRᑡ஺OptionExplicitPrivateSubCommand1_Click()DimxAsInteger,IAsInteger,nnAsInteger,A(ll)AsInteger,jAsInteger

94nn=10I=1While(I<=nn)A(I)=Vai(InputBox(zLinputnumber"&஻wxᜧ஻&Str(A(I-1))))IfA(I)ு=A(I-1)Then1=1+1ElseMsgBox(஻gyzᐭ஻&Str(A(I))&Chr(13)&஻wxᜧ஻&Str(A(I-1)))EndIfWendForI=1TonnPrintA(I),IfIMod4=0ThenPrintNextIPrintx=Vai(InputBox("'InputaDatatoCheck:஻))IfxA(nn)Then'**********FOUND**********A(nn+1)=xForI=1Tonn+1PrintA(I),IfIMod4=0ThenPrint

95NextIPrintElseForI=1TonnIfx=A(I)ThenPrint஻}~QᙠL\஻IExitSubElseIfx>A(I)Andx

96jAsStringoct_num=InputBox(஻gᐭᑴᦪ஻)'**********FOUND**********length=len(oct_num)s=0n=0'**********FOUND**********Fori=lengthTo1step-1d=Mid(oct_num,i,1)s=s+d*8°nn=n+1'**********FOUND**********NextiPrint஻ᓝᑴᦪ\:஻sEndSub4ஹ⚪hᐭḄ0-255ḄK᦮ᦪ'ᣚᡂᑴᦪOptionExplicitPrivateSubForm_Click()Constn=8Dima(n)AsInteger,sAsString,mAsInteger,xAsIntegerx=Vai(InputBox(஻gᐭJ0-255ḄK᦮ᦪ஻))Printx'**********FOUND**********Form=0Tona(m)=xMod2'**********FOUND**********x=x\2Nextm஻஻s=Form=nTo0Step-1'**********FOUND**********

97s=s+Str(a(m))NextmPrintsEndSub5ஹ⚪ᵨᡭᓺ⊤:OptionExplicitPrivateSubForm_Click()DimiAsInteger,jAsInteger,kAsIntegerPrintTab(30);zL9*9table"Print:PrintPrint஻*஻Fori=1To9'**********F0UND**********PrintTab(i*6);I;NextiPrintForj=1To9Printj;஻஻'**********FOUND**********Fork=1Toj'**********F0UND**********PrintTab(k*6);j*k;஻஻NextkPrintNextjEndSub6ஹ⚪¢Ḅ\£¤¥¦Ḅ10J§¨K᦮ᦪL©ª⌴¬᣸஺OptionExplicitPrivateSubCreateRNDODimTempAsInteger

98DimIAsIntegerDimNAsIntegerDimX(10)AsIntegerDimJAsIntegerN=10Print஻ᦪ°஻ForI=1ToN'**********FOUND**********X(I)=Int(Rnd()*90)+10PrintX(I);NextIPrintPrint஻᣸஻ForI=0ToN-1ForJ=I+1ToN'**********FOUND**********IfX(I)

99´µ3J±L½»¼µ2J±ᜧ2¸஺´µ2J±L»¼µ1J±ᜧ2¸஺ᨬ¿´µ1J±Lº»\10¸஺g´µ5J±ᨵ¶ᜧ¸ᦪ஺OptionExplicitFunctionAge(ByVaiNAsInteger)'**********FOUND**********IfN=1ThenAge=10Else'**********FOUND**********Age=Age(N-l)+2EndIfEndFunctionPrivateSubForm_Click()'**********FOUND**********PrintAge(5)EndSubஹÁÂ1ஹ☢ḄᵨᑭᵨᑈÅhR᦮ᦪ'ÆNᑮᜧ᣸஺PrivateSubForm_Click()Constn=15Dima(lTon)AsInteger,workAsBooleanDimiAsInteger,jAsInteger,xAsIntegerRandomizeFori=1Tona(i)=Int(90*Rnd)+10NextiFori=1TonPrinta(i);Nexti

100Print'**********SPACE**********Fori=nTo2step-1work=TrueForj=1Toi-1Ifa(j)>a(j+1)Thenx=a(j):a(j)=a(j+1):a(j+1)=x'**********SPACE**********Work=falseEndIfNextj'**********SPACE**********IfworkThenexitforNextiFori=1TonPrinta(i);NextiEndSub2ஹᵨÇÈᦪRSᔜᐗḄË஺PrivateSubCommandl_Click()'**********SPACE**********Dima(lTo5)asinteger,b%(2To10),i%,tl#,t2#Fori=1To5a(i)=iNextiFori=2To10b(i)=iNexti11=tim(a())t2=tim(b0)Print஻tl=஻tl,஻t2=஻t2EndSub

101'**********SPACE**********Functiontim(a()AsInteger)Dimt#,i%'**********SPACE**********t=1Fori=LBound(a)ToUBound(a)t=t*a(i)Nextitim=tEndFunction3ஹᑭᵨ£¤Ïᦪ¦ᡂ15J10T00Ḅ§¨K᦮ᦪLᯠ¿ᵨ⌱ÒhᐸÆNᑮᜧ᣸஺PrivateSubForm_Click()Constn=15Dima(lTon)AsIntegerDimiAsInteger,jAsInteger,tAsInteger,minAsIntegerRandomizeFori=1Ton'**********SPACE**********a(i)=int(rnd*90)+10NextiFori=1TonPrinta(i);NextiPrintFori=1Ton-1'**********SPACE**********t=iForj=i+1TonIfa(j)

102min=a(i):a(i)=a(t):a(t)=minEndIfNextiFori=1TonPrinta(i);NextiEndSub4ஹ⚪ᨵ12Jᦻ¢᪾Õ⊤12J¨Ö஺×A-J10JØÙᑖÛ'ᓝJ¨ÖL©`aܨᑖÛ஺OptionExplicitPrivateSubForm_Load()Dimk,h,pAsIntegerDimt(12)AsStringRandomize'**********SPACE**********Fork=1To12t(k)="Empty”Nextk'**********SPACE**********Forh=65To74DoWhileTruep=Int(1+12*Rnd)'**********SPACE**********Ift(p)="Emply"Thent(p)=Chr(h)ExitDoEndIfLoopNexthFork=1To12Textl(k-1).Text=t(k)Nextk

103EndSub5ஹ¢×LµàᓫâãäLFormlḄåæ×'259PrivateFunctionsum(nAsInteger)'**********SPACE**********staticjAsIntegerj=j+n+1sum=jEndFunctionPrivateSubForm_Click()Dimi%,s%'**********SPACE**********Fori=1To3'**********SPACE**********s=sum(i)Forml.Prints;NextiEndSub6ஹç⊤èés=x/2!+x"3/4!+...+x-(2nT)/(2n)!Ḅì,’©ᙠãäî஺PrivateSubForm_Click()DimxAsSingleDimnAsIntegerDimsumAsSinglex=Vai(InputBoxC'PleaseinputxValue:'))n=Vai(InputBox(LzPleaseinputainteger:zL))'**********SPACE**********sum=s(n,x)Print஻s=஻sum

104EndSubFunctions(nAsInteger,xAsSingle)AsSingleDimiAsSingle,tAsLongs=0Fori=1Tont=1Forj=1To2*i'**********SPACE**********t=t*jNextj'**********SPACE**********s=s+x-(2*iT)/tNextiEndFunction7ஹᵨÇÈ_ïJᦪØḄᨬᜧðñᦪ஺OptionBase1PrivateFunctiongcd(ByValm%,ByVain%)AsIntegerIfm

105ReDima(n)'**********SPACE**********Fori=1Tona(i)=InputBox(஻ᐭᦪ°஻)Nextinl=a(l)Fori=2Tonml=a(i)'**********SPACE**********mn=gcd(ml,nl)Ifmn=1ThenExitForElsenl=mnNextiPrintmnEndSubòஹóÇ1ஹ⚪(ôõ)ᓫâö÷ᢥù஺'(lc)£¤¥¦20Jú¦ḄᡂûLüÇᔜᑖᦪ±ᦪ,'ᓽ0T59,60—69,70-79,80T89,90-100,©`aåæ஺'¥¦Ḅᦪ°ᙠPicturel`aLüÇåæᙠPicture2`a஺''håæQᐭþÿSumDimsumAsStringDimmark%(19),siAsString,s2AsString,s3AsStringPrivateSubCommand1_C1ick()Picturel.CisFori=0To19mark(i)=Int(Rnd*101)IfiMod4=0Thensi=si&vbCrLfsi=si&mark(i)&஻஻NextiPicturel.PrintsiEndSub

106PrivateSubCommand2_Click()Dims(5To9)'**********Program**********Fori=0To19k=mark(i)\10SelectCasekCase0To5s(5)=s(5)+1Case9To10s(9)=s(9)+1Case6To8s(k)=s(k)+1EndSelectNextiFori=5To9Ifs(i)<>0Thens2=s2&"s(஻&i&")Ḅ4ᦪᨵ“&Format(s(i),"0")&"9"&vbCrLfNextiPicture2.Prints2s3=si&vbCrLf&s2sum=s3YZJ(sum)EndSubPrivateSubYZJ(iAsString)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&஻\12.out"ForOutputAs#OUTPrint#OUT,iClose#OUTEndSub2ஹ⚪GHIJKLMNOP஺'IRSLTUVW10930100IᒹY30Z100LḄ[᦮ᦪ]^ᨬᜧa,ᨬbaZcᙳa]

107'ef᦮9ᦪgḄaZhi஺jhikᐭmnsPrivateSubForm_dblClick()DimsAsStringDimmark(9)AsIntegerDimi%,min%,max%,avg%'**********Program**********Fori=0To9mark(i)=Int(Rnd()*71+30)Nextiavg=mark(0):min=mark(0):max=mark(0)Label1.Caption=Fori=1To9Ifmark(i)maxThenmax=mark(i)avg=avg+mark(i)Nextiavg=avg/10Fori=0To8Label1.Caption=Label1.Caption&mark(i)&஻஻NextiLabel1.Caption=Label1.Caption&mark(9)&vbCrLfLabel1.Caption=Label1.Caption&஻min=஻&min&஻஻&"max=஻&max&஻஻&஻avg=஻&avgs=Label1.CaptionYZJ(s)EndSubPrivateSubYZJ(iAsString)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&஻\12.out"ForOutputAs#OUTPrint#0UT,iClose#0UTEndSub

1083ஹ⚪GHIJKLMNOP஺'IRSLTUVW109stᦪ]ᢥvᜧᑮb⌴yḄz{᣸ᑡ,'~j᣸{hiefᩭ஺jhikᐭmnSPrivateSubForm_dblClick()DimsAsString,siAsString,s2AsString'**********Program**********Dima(10)AsInteger,t%,i%,j%Fori=1To10a(i)=Int(Rnd*90+10)si=si&a(i)&""NextiPrintsiPrintFori=1To9Forj=1To10-iIfa(j)

1094ஹ⚪GH(JK)9ᦪMysin(x),ᑭᵨMysin’Ḅa]x஺Mysin(x)=x/l-x"3/3!+x^5/5!-x"7/7!+?'{ᑮ⚗Ḅab10-5h஺¡{'¢¡ᵨmysinZᑁ¤ᦪsin¥¦§¨]hi©ᶇ6tbᦪ,Functionmysin(ByVaix!)AsSingle'**********Program**********Dimt!,s%,i%i=1t=x'⚗mysin=xs=-1'[®¯°±mᓄDoWhile(Abs(t)>0.00001)I=t*x*x/((i+1)*(i+2))mysin=mysin+s*ti=i+2s=-sLoop*1*7*9999999999{27119999999999EndFunctionPrivateSubCommandl_Click()Dimx!DimsAsStringx=Vai(Textl.Text)Label3.Caption=Format(mysin(x),஻0.000000஻)Label5.Caption=Format(Sin(x),஻0.000000஻)s=Label3.CaptionYZJ(s)EndSubPrivateSubYZJ(iAsString)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&஻\12.out஻ForOutputAs#OUTPrint#OUT,iClose#OUT

110EndSub5ஹ⚪GH9´DeleStr(sl,s2),jµ¶·si¸Ḅ's2´µ¶·ᑤº]hik»ᙠsi஺'½᝞Hsl=஻12345678AAABBDFG12345஻]s2=஻234஻'hiHs1=஻15678AAABBDFG15஻Subdelestr(siAsString,s2AsString)Dimi%,n%,stl$,st2$,s$'**********Program**********n=Len(s2)i=InStr(si,s2)DoWhilei>0stl=Left(si,i-1)st2=Mid(sl,i+n)si=st2s=s+stli=InStr(si,s2)Loopsi=s+st2**********End**********EndSubPrivateSubCommandl_Click()Dimsl$,s2$si=Trim(Textl)s2=Trim(Text2)Calldelestr(si,s2)Text3=siYZJ(si)EndSubPrivateSubYZJ(i$)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&஻\12.out஻ForOutputAs#OUTPrint#OUT,iClose#OUTEndSub

1116ஹ⚪GH9´MaxLength(s,MaxWord),ᙠÁÂḄµ¶'·s]ÃᨬÄḄᓫÆMaxWordoᎷȵ¶·sᑁÉÊᨵ'µËZÌÍ]ÌÍᑖ◞ТḄᓫÆ஺{ѦÒ☢᝞Ôᡠf஺PrivateSubCommand1_C1ick()Dims$,t$s=Textl.TextCallMaxlength(s,t)Text2.Text=tYZJ(t)EndSubSubMaxlength(ByVais$,ByRefMaxWord$)Dimn$,i%'**********Program**********i=InStr(s,"")MaxWord=஻஻DoWhilei<>0n=Mid(s,1,i-1)IfLen(n)>Len(MaxWord)ThenMaxWord=ns=Mid(s,i+1)i=InStr(s,஻஻)LoopIfLen(s)>Len(MaxWord)ThenMaxWord=s*1**1**1**1**1*Tj1*1**1**1**1**1*ÐÐÐÐÐÐÐÐÐУ2/11UÐÐÐÐÐÐÐÐÐÐEndSubPrivateSubYZJ(i$)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&஻\12.out"ForOutputAs#OUTPrint#OUT,iClose#OUT

112EndSub