VB题库工大

《VB题库工大》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

ஹᑨᐳ10⚪(ᐳ10ᑖ)1⚪ShapeLineᙠ!"ᐹᨵMove().,ᫀ.N2⚪VisualBasic67Ḅ9:;Main஺=6>?;@A>.,ᫀ.Y3⚪Cᱏ᪾ḄFឋEnabledKLMFALSE,Cᱏ᪾QḄRSTᵨᡝWX.,ᫀ.N4⚪YZᙠ[ᐭ]A^ᵨ_`᪾:⌕cᙠ9:d,^=ShowOpenᡭh_`᪾d,ijk᡽mnMDOCḄᦻᑣ_^ᵨ_`᪾ḄFilterḄFឋKLTuv:"(*.DOC)|(.DOC)”.N5⚪K{ᓫ}A{ᓫ⚗ᑖvA,}AᨵḄn.,ᫀ.Y6⚪◀listlᑡ⊤᪾_ḄᑁḄvlistl.cls.,ᫀ.N7⚪Cᱏ᪾ḄMove()Cᱏ᪾,ᦋuCᱏ᪾Ḅᜧd?ᦋuCᱏ᪾ᨵᐵFឋḄ.,ᫀ.N8⚪ḄScaleTop=0,ScaleLeft-0d,ATopLeft?v0.,ᫀ.N9⚪᪾¡¢£¤STᵨᡝḄ¥᪗Ḅᓫ§¨.,ᫀ.Y10⚪^ᵨ_`᪾i¤ᵨSHOW()«:¬ᵨ.,ᫀ.Nஹᓫ⚗⌱¯ᐳ10⚪(ᐳ10ᑖ)1⚪ᵨᡝ^=KL{ᓫ⚗Ḅ()FឋMFALSEᩭ±u{ᓫ⚗².A:HideB:CheckedC:VisibleD:Enabled,ᫀ.C2⚪´dᘤḄIntervalFឋ()Mᓫ·ᢣ´Timer¨º»Ḅd»»◞.A:ᑖB:½C:¾½D:¿½,ᫀ.C3⚪⌕ᙠCᱏ᪾P1ᡭᓺÃÄ"HowAreYou”,T±ᵨ().A:Picturel.Print=zHowAreYou"B:P1.Picture=LoadPicture(zHowAreYou")C:P1.Print"HowAreYou"D:Print"HowAreYou”,ᫀ.C4⚪ÆᑡᐵÇKLFឋḄÈÉÊËḄv().A:ᵨᡝÌÍKLFឋB:ᡠᨵḄFឋᵫᵨᡝÐÑK´C:FឋÌÒÓKLD.ḄFឋ⚗Ôᐰ᪵,ᫀ.C5⚪>VisualBasic×ØÙMᵨᡝÓÚḄÛ6ÜAnM()ḄÝdnÞ.A:Û61B:1C:Û6D:,ᫀ.A6⚪Ka=10,b=5,c=l,᡻:Printa>b>c×QjkḄv().A:TrueB:FalseC:1D:â┯äå,ᫀ.B7⚪MSGBOXèᦪᨵ4AëᦪᐸÌÍᑏîḄëᦪv0.A:ᢣ´_`᪾jkᢥðḄᦪñB:KL_`᪾᪗⚪C:òkäåD:ᡠᨵëᦪv⌱ḄC8⚪Tᵨ67KÔᡂ×,Tô67õö,õöḄ=6v().A:iõöᦻᓽB:iõöÛ6ᦻᓽC:ᐜõöÛ6ᦻº×õöᦻD:ᐜõöᦻ(ᡈ᪗úûᙽᦻ)º×⌕õöÛ6ᦻ,ᫀ.D9⚪ᦋᙠḄýþ·LTÿᦋ
Ḅ()ឋ.A:TopB:LeftC:WidthD:RightᫀB10⚪VB#$%☢()'()*+,-().

1A:A1/alB:SUM/SUMMARYC:AVER/AVERAGED:A1/ANᫀA8ஹ:;<=ᐳ3⚪?ᐳ@30ᑖB1⚪’ூ:;<=௃'GHIJ:;ḄGH᝞?L1B஺PrivateSubForm_Click()Dima%,b%»c%,d!Dimxl,x2Dimp,q,ra=InputBox("deᐭaḄg")b=InputBox(஻deᐭbḄg஻)c=InputBox(஻deᐭcḄg஻)d=b*b-4*a*cp=-b/(2*a)Ifd>=0Then'**********SPACE**********If[?]Thenr=Sqr(d)/(2*a)xl=p+rx2=p-rElsexl=px2tp'**********SPACE**********[?]Print"xl="uxl,஻x2=஻ux2'**********SPACE**********[?]q=Sqr(-d)/(2*a)஻஻•Printxl=;p;+uqui,x2t;,uq1EndIfEndSubᫀ1).d>0ᡈ0

2‘**********SPACE**********Dimi,j,x,[?]AsIntegerFori=1To4x=4Forj=1To3x=3'**********SPACE**********For[?]=1To2'**********SPACE**********x=x+[?]NextkNextjNextiPrintxEndSubᫀ1).k2).k3).63⚪’ூ:;<=௃'GHᵨeᐭ᪾eᐭX,᪷᝞L@Ḅy,'ᙠe~yḄg஺PrivateSubCommandlClick()'**********SPACE**********DimxAsSingle,[?]AsSingle'**********SPACE**********x=Vai([?](஻Pleaseinputx:஻|஻eᐭXḄg஻))Ifx=10Then'**********SPACE**********[?]Elselfx>10Then'**********SPACE**********y=Sqr(x)[?]Elsey=2*xஹ3+6EndIfPrintyEndSubᫀ1).y2).InputBox3).y=04).+Sin(x)

3ஹ:;ᦋ┯ᐳ3⚪?ᐳ@30ᑖB1⚪’ூ:;ᦋ┯௃'⚪ᨵLᱏ᪾Piel,⌕ᙠᐸᑴ10-+ᙊ,'ᯠ£¤¥LITest.BMP¦ᦻ¨©ᐭª«஺OptionExplicitPrivateSubCommandl_Click()DimXAsIntegerDimYAsIntegerDimIAsIntegerDimrad(9)AsIntegerX=Picl.ScaleWidth/2Y=Piel.ScaleHeight/2'**********FOUND**********ForI=1To9rad(I)=500*RndNextII=9'**********FOUND**********DoUntilI<1Piel.Circle(X,Y),rad(I),RGB(256*Rnd,256*Rnd,256*Rnd)'**********FOUND**********1=1+1LoopSavePicturePiel.Image,"Test.BMP/ZEndSubᫀ1).fori=0to9ᡈfori=0to9step12).DoUntilI<0ᡈdountil0>i3).1=1-1ᡈi=-l+i2⚪’ூ:;ᦋ┯௃'⚪°@±eᐭ8-ᦪ|³~´ᦪOptionExplicitPrivateSubFindMidNumODimxAsInteger,yAsInteger,zAsInteger,AAsIntegerxtInputBoxCPLEASEINPUTTHEFIRSTNUMBER")y=InputBoxCPLEASEINPUTTHESECONDNUMBER")

4z=InputBoxCPLESSEINPUTTHETHIRDNUMBER")'**********FOUND**********Ifx>yThenA=xx=yy=AEndIf'**********FOUND**********Ify=zThenPrinty'**********FOUND**********Elselfx=zThenPrintzElsePrintxEndIfEndSubPrivateSubFormClick()FindMidNumEndSubᫀ1).IfxxThen2).Ify>=zThenᡈIfz<=yThen3).Elselfx>=zThenᡈElselfz<=xThen3⚪’ூ:;ᦋ┯௃'⚪ITe~40IᑁH·¸3᦮◀Ḅᦪ|⌕e~»¼$5'-ᦪ,½஺OptionExplicitPrivateSubFormClick()CisDimxAsIntegerDimiAsInteger'**********FOUND**********i=1Forx=1To40If(x/3)=(x\3)Then'**********FOUND**********

5Printxi=i+1EndIf'**********FOUND**********IfiMod3=0ThenPrintEndIfNextxEndSubᫀ1B.i=02B.Printx;3B.ifimod5=0then¿ஹ:;@ᐳ2⚪?ᐳ@20ᑖB1⚪’ூ:;@௃'⚪ÀᑏÂᦪfunᐸGH*᪷᦮ÃÄÅm,@᝞JḄg:y=l/5+l/6+l/7+l/8+l/9+1/10…+l/?m+5BÉ᝞:Êm=9,ᑣe~1.168229'⌕ÂᦪᵨᑮḄ´()ÍÎÏÐ$SingleÑÃ஺ᫀ:DimyAsDoubleDimiAsIntegerFori=0Tomy=y+1/(i+5)NextFun=y2⚪10.0ᑖB⚪Ò:488'ூ:;@௃'⚪?ÓBᓫÕ஺?ÖB×Øsum=l/2!-l/4!+l/6!-l/8!+l/10!,d¤sum»¼ge~ᑮ஺}ᵨdowhile...loopÚÛzᡂ:;ᫀ----------DimiAsIntegerDimnAsIntegeri=1P=1DoWhilei<=10p=p*i

6IfiMod2=0Thenn=n+1sum=sum+(-1)(n-1)/pEndIfi=i+1LoopPrintsum,ஹᑨÝᐳ10⚪(ᐳ@10ᑖ)1⚪ᡠᨵḄßàᨵcaptionឋ.ᫀN2⚪Óá:ᵫã-ᵨᡝÓᡈåæÓçè᡻½|êëH¸ᐸêá:ìᵨ.ᫀN3⚪íîïᘤḄintervalឋgñ$0ï,òóôëÝᙢöèTimerÓ.ᫀN4⚪í◤⌕ᙠ+,øùú'ûüýùḄᓫ⌱ÿ,⌕ᵨ᪾ᓫ⌱᪾ᩭ.ᫀY5⚪ᙠᙽḄᑖ!ᵨPrivateḄ)*Ḅᨵᦔ./ᐸᡠᙠḄ23.ᫀN6⚪VisualBasic3<Ḅ=>?@AMain஺E3FGHI?@AJKFG.ᫀY7⚪VBᐕMNOPQᵨᵨᡝSTNOḄUV.ᫀY8⚪ᙠVB!H?@ᙠPictureUV!WᑴḄYZ@ᦻVḄZ\]^ᙠ_`a.ᫀY9⚪Functiondᦪᨵfᦪg⌴,ijkᨵlmn.ᫀN10⚪ᙠVBḄ2ᐹp!ᒹrsᡠᨵḄVBUV,ᡃuvwxyzᐸ{ḄUV.ᫀN|⚔~ஹᓫ⚗⌱ᐳ10⚪(ᐳO10ᑖ)1⚪ᦪ\xl-1a|+lnl0+sin(x2+2n)/cos(57o)ḄVisualBasic⊤\/().A:Xl-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57*3.14/180)B:Xl-Abs(A)+Log(10)+Sin(X2+2*JI)/Cos(57*3.14/180)C:Xl-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57)D:Xl-Abs(A)+Log(10)+Sin(X2+2*JI)/Cos(57)ᫀA2⚪NOG¡¢£Qᵨ¤UV()ᩭUᑴG¡¥¦.A:EnabledB:IntervalC:TimerD:MoveᫀB3⚪⌕¬K®ᢥN|ᡂ±ᦔ,N|ᐸ²³ឋn().A:VisibleB:EnabledC:DefaultD:Cancelᫀ¶B4⚪Na=10,b=5,c=l,᡻>¹ºPrinta>b>c¼Ha½¾Ḅ/().A:TrueB:FalseC:1D:¿┯ÁÂᫀB5⚪ÃÄUVÅᐹᨵḄ³ឋ/().A:TEXTB:CAPTIONC:NAMED:F0REC0L0RᫀC6⚪ÈÉVwÊËÌH()ÍÎÉVÏ¿Ð.A:ÑB:3

77⚪Ò.ᑡÔÕÖ×Ḅ/().A:Ñ/ᒹØᦪÙÚᒹØÑᦪÙÛ>ÜÏḄÝÞḄᱥᳮáB:ÑḄ³ឋâwᙠ³ឋã!N|C:väḄÑwåæväḄÉVD:ÉVE3Å⌕ᵫᵨᡝèéÑᩭËÌᫀC8⚪ÒᑡᐵëN|UV³ឋḄÔÕÖ×Ḅ/().A:ᵨᡝìíN|³ឋnB:ᡠᨵḄ³ឋnÅ?@ᵫᵨᡝîïNkC:³ឋnvìðñN|D:väUVḄ³ឋ⚗Åòᐰ᪵ᫀC9⚪⊤\2+3*4^5-SIN(X+l)/2!ᨬᐜÛ>Ḅ=ø/().A:4~5B:3*4C:x+1D:SINᫀC10⚪KÑ?@᡻>ḄGÏP?ÊÑåæḄGÏᑖæúû().A:ÉVஹÝÞB:ÝÞஹÉVC:³ឋஹÝÞD:E3ஹÉVᫀAüஹ3<ýþᐳ3⚪(ᐳO30ᑖ)1⚪’ூ
௃'☢
max()ᵨ3ᦪᨬᜧᑭᵨ
5ᦪᨬᜧ஺PrivateSubForm_Click()Print"5ᦪ34ஹ124ஹ68ஹ73ஹ352Ḅᨬᜧ9:஻maxi=max(34,124,68)'**********SPACE**********maxi=[?]PrintmaxiEndSubPublicFunctionmax(ByVaia%,ByValb%,ByVaic%)'**********SPACE**********If[?]Thenm=aElsem=bEndIf'**********SPACE**********If[?]Thenmax=mElsemaxNcEndIfEndFunction

8Oᫀ:1).max(maxi,73,352)2).a>bᡈbcᡈcீmV2⚪’ூ
௃'YZ:[ᐭᦪ]1-7,_`ᐸbc9def(g:[ᐭ1,_`dei'᝞k[ᐭᐸlᑁnop_`“[ᐭ┯s஻)PrivateSubCommand1_Click()dimxasintegerdimyasstringx=val(textl.text)'**********SPACE**********[?]case1yN஻uᜩ9dei஻case2yodeo஻case3w஻deN஻case4y=஻dex஻case5yN஻dey஻case6'**********SPACE**********[?]case7y="dez"'**********SPACE**********[?]y="[ᐭ┯s”endselectText2.Text=yEndSubOᫀ:1).selectcasex2).y="de|"3).CaseElseV3⚪’ூ
௃’YZ:}
~ᵨ£n!PrivateSubFormClick()

9DimsumAsInteger,nAsIntegern=InputBox(z/[ᐭo᦮ᦪ஻)sum=0Fori=1Ton'**********SPACE**********sum=[?]NextiPrintsumEndSubPrivateFunctionmul(ByVaixAsInteger)DimsAsInteger,iAsIntegers=1'**********SPACE**********Fori=1To[?]s=s*iNexti'**********SPACE**********[?]EndFunctionOᫀ:1).sum+mul(i)2).x3).mul=syஹ
ᦋ┯ᐳ3⚪(ᐳ30ᑖ)V1⚪’ூ
ᦋ┯௃'⚪:[40}ᑁZ3᦮◀Ḅᦪ⌕[k5ᦪo஺OptionExplicitPrivateSubForm_Click()CisDimxAsIntegerDimiAsInteger'**********FOUND**********i1Forx=1To40If(x/3)=(x\3)Then'**********FOUND**********Printxi=i+1EndIf

10IfiMod5=0ThenPrintEndIf'**********FOUND**********stepiEndSubOᫀ:1).i=02).Printx;ᡈx;3).NextxᡈNextV2⚪’ூ
ᦋ┯௃'⚪:
YZoᐗN
Ḅ¡᪷£
┯s஺OptionExplicitPrivateSubForm_Load()Dima!,b!,c!,rootl#,root2#,workAsDoublea=Val(InputBox(/z[ᐭ§ᦪaḄ஻))b=Vai(InputBox(/z[ᐭ§ᦪbḄ”))c=Vai(InputBox(zz[ᐭ§ᦪcḄ஻))'**********FOUND**********work=b*2-4*a*cIfwork>=0Anda<>0Then'**********FOUND**********rootl=(Sqr(work))/(2*a)'**********FOUND**********root2=(Sqr(work))/(2*a)Debug.Print”ᨵN¡᪷஻+Str$(rootl)+",஻+Str$(root2)ElseDebug.Print«¡᪷¬஻EndIfEndSubOᫀ:1).work=b2-4*a*cᡈwork=b*b-4*a*c2).rootl=(-b+Sqr(work))/(2*a)ᡈroot1=(Sqr(work)-b)/(2*a)ᡈrootl=(-b+Sqr(work))/(a*2)3).root2=("b-Sqr(work))/(2*a)ᡈroot2=(-Sqr(work)-b)/(2*a)ᡈroot2=(-b-Sqr(work))/(a*2)V3⚪’ூ
ᦋ┯௃'⚪:
3^100¯°Ḅᡠᨵ²ᦪ(³ᦪ)´µᦪ¶·¸¹º²ᦪ»¼ᑮᜧ¾ᑏᐭÀᦻÂc:\dataout.txt¶²ᦪḄᦪ_`ᙠÄÅFormlÆ஺

11OptionExplicitPrivateSubCommandl_Click()DimCountAsInteger,FlagAsBooleanDimtlAsInteger,t2AsInteger'**********FOUND**********Open஻dataout.txt஻ForInputAs#1Count=0Fortl=3To100Flag=TrueFort2=2ToInt(Sqr(tl))IftlModt2=0ThenFlag=FalseNextt2'**********FOUND**********IfFlag=FalseThenCount=Count+1'**********FOUND**********Write#1,t2EndIfNexttlForml.Print²ᦪᦪ஻¶CountClose#1EndSub1).Open"dataout.txt^ForOutputAs#1ᡈOpen“dataout.txtzForOutputAs12).IfFlagThenᡈIfFlagNtrueThen3).Write#1,tlᡈWrite1,tl|ஹ
Èᐳ2⚪(ᐳ20ᑖ)V1⚪’ூ
È௃'⚪:(ÉÂ)ÊËÄÅ஺(Ìc)s=20+21+22+…+263,sḄ,´¹kÎÏᑮÐÑS஺Oᫀ:----------DimiAsIntegeri=20Whilei<=263s=s+ii=i+1WendPrint(CStr(s))

12V2⚪’ூ
È௃'⚪H:(ÉÂ)ᓫËÄÅ஺(Ìc)Ôᑏ
10X11X12+11X12X13+…+15X16X17Ḅk,´¹k[ᑮÄÅÆ஺¹kÎᐭÐÑMOᫀ:-----Dimi,jAsIntegerDimsAsLongFori=10To15s=1Forj=iToi+2s=s*jNextm=tn+sNextPrint(CStr(m))×ᔁÔÙ:8111oஹᑨÛᐳ20⚪(ᐳ20ᑖ)V1⚪ᵫVisualBasicÝÞÔᑏḄcᵨ
ᨵßàÔáâã᡻å.Oᫀ:YV2⚪ᙠVBçè"ABCDE123A"Like"[a*a]”Ḅk9True.Oᫀ:YV3⚪ᙠéᱏ᪾ìíḄîÂïð}ᙠñéᱏ᪾ᑁòóôð}òñéᱏ᪾᜜.Oᫀ:NV4⚪ᙠMsgBoxöᦪprompt÷ᦪ9øùḄ.Oᫀ:YV5⚪VBúᢝüýᓫᡠþ"üýᓫ஻9ᢣᓫ
᪗ᡭḄᓫ.ᫀN6⚪Listl.clear◀ListlḄᐰᑡ⊤⚗#ᡠ%Clear'(Ḅ)*.ᫀY7⚪ᙠ./0ᵨDim4Static67Ḅ89:;89.ᫀY8⚪ᙠ=>?ᙽḄABᑖ0ᵨPrivateABḄ89ḄᨵᦔIᐸᡠᙠḄK/.ᫀ:N9⚪Nᵨ'O᪾QRᵨSHOW)*VWXᵨ.ᫀX10⚪'=>Formᑁᔜ`abRᵨ᪗cdef6gᵫi=>0Ḅ6gjklmᵨ.Y11⚪ᙠ᪾n`aᑁḄopᓫ⌱ᢥs0#QRᨵtpᓫ⌱ᢥsḄValuewឋyTrue.Y12⚪|o}p⚗~0c⌱ᐸ0t⚗ᡈ⚗⌱ᵨᑡ⊤᪾ᡈᔠ᪾`a.ᫀN13⚪ᙠ=>0ᐭpNᵨ'O᪾:⌕ᙠW#N.ShowOpenᡭ'O᪾#Q᡽yDOCḄᦻa#ᑣ'Nᵨ'O᪾ḄFilterḄwឋ:"(*.DOC)|(.DOC)”.ᫀN14⚪ᙠVB0#ᵨDIM67ᦪᦪᐗ¬®¯°±²y0.ᫀN15⚪ᑭᵨPrivateConstABḄµ¶·9#ᙠ¸ṹ0b%º°².ᫀY16⚪ᙠVB0#»ᘤ(Timer)6½¾¿TimerÀa#ÁTimer0Ḅ¸ṹ᡻WtÃ.ᫀY17⚪᝞Åtpᓫ⚗ḄVisiblewឋyFalse,ᑣÈḄÉᓫbÊ.ᫀY18⚪N.ᦋ8wឋ=Ì0ḄNamewឋ#%ᦋ8=>ÍḄ᪗⚪.ᫀN19⚪ᙠVB0#Î"D"Like"[!A-Z]#zḄ×ÅTrue.ᫀN20⚪ᙠᑭᵨNᵨ'O᪾aØ>'O᪾ÙÚÛÜFlagswឋ,ᔲᑣßàábâᙠØ>Ḅ┯ä.Y

13åஹᓫ⚗⌱çᐳ20⚪(ᐳ»20ᑖ)1⚪ᵨᡝ%N.ᓫ⚗Ḅ()wឋ²yFALSEᩭÁᓫ⚗bì.A:HideB:CheckedC:VisibleD:EnabledᫀC2⚪⌕Áî=>ᙠïÙÚðñᡂóᐵḄ/õᙠ()Àa0VWö/.A:linkopenB:KeyPressC:loadD:clickᫀC3⚪=>ḄCaptionwឋḄmᵨ().A:f6=>ḄùB:f6=>Ḅ᪗⚪C:f6=>ḄúûüýD:f6=>ḄØ>B4⚪“'(”»Îÿ
Ḅ().A:ᓫB:ᓫC:ᱥᳮD:ᫀD5⚪a=10,b=5,c=l,᡻*+Printa>b>c234567Ḅ8().A:TrueB:FalseC:1D:>┯@AᫀB6⚪ᙠ45DEFGHIJ3᝞TEXTஹLABEL1ஹC0MMAND1,R⌕TUᯖWXYᙠCOMMAND1IJ5,[\COMMAND1IJḄ()]^0.A:INDEXB:TABINDEXC:TABSTOPD:ENABLEDᫀB7⚪\bᵨde᪾gh3]^ide᪾3jkᦋmIJḄ()nឋ.A:fontB:filenameC:filterD:actionᫀD8⚪]ᑡ⊤᪾⌱wḄᦻᵨ()nឋ.A:selectedB:captionC:textD:listᫀD9⚪}~ᦋ4᪾ghḄnឋ8().A:FontStyleB:BorderStyleC:BackStyleD:BorderᫀB10⚪ᑡHḄ8Ḅ0.A:sTmeB:T_TempC:T12%D:T_12ᫀC11⚪⌱w⌱᪾IJ,valuenឋḄ,j8().A:TrueB:falseC:0D:1D12⚪⌕◀ᙠᱏ᪾PicturewᡭᓺḄi◀ᱏ᪾wḄ3[Tᵨ*+().A:A.Pl.CisB:P1.picture=LoadPicture("")C:P1.Print""D:P1.piture"”ᫀA13⚪IJᑁḄd¥¦§()nឋ¨Y.A:AlignmentB:WordwrapC:AtuoSizeD:StyleᫀA14⚪◀ᑡ⊤᪾Ḅᡠᨵ⌱⚗[⌱±ᑡ²¦().A:ClearB:ClsC:ClearItemD:RemoveItemᫀA15⚪ᑡ´*+Ḅ8().A:Textl.text=Text.text+Text2.textB:Textl.name=Textl.Name+Text2.NameC:Textl.Caption=Textl.Caption+Text2.CaptionD:Textl.Enable=Textl.Enable+Text2.EnableᫀA16⚪¶A?B?CwCᨬ¹3ᑣᑨ¼A?B?Cjᔲ᪀ᡂÀÁÂÀᩩÄḄ⊤ŧ8().A:A>=BAndB>=CAndC>0B:A+OBAndB+OAAndC>0C:(A+C)>=CAndA-C<=C)AndC>0D:A+B>CAndA-B>CAndC>0ᫀB17⚪ÂÈIJᡠ67ḄÂj}8().A:ᙊB:ÊᙊC:ᙊÁ¦ÂD:ËÀÁÂᫀD18⚪⌕ᙠᱏ᪾P1wᡭᓺi"HowAreYou”,[Tᵨ*+().A:Picturel.Print="HowAreYou"B:P1.Picture=LoadPicture("HowAreYou")C:P1.Print"HowAreYou"D:Print"HowAreYou”ᫀC19⚪ᦻ᪾w⌱YḄᑁÎ3ᵫᑡ()nឋÐ᧜.A:TextB:CaptionC:SeltextD:sellenghtᫀC

1420⚪ᙠUH*+ᑁᑏGᩩ*+,*+ÔÕ[mᵨ0ᑖ◞.A:⌹ÙB:ᑖÙC:ÚÙD:ᑈÙᫀDÀஹÜÝᐳ2⚪ßᐳà10ᑖá1⚪’ூÜÝ௃'⚪æḄç}᝞ß1á஺PrivateSubFormClick()Dima%,b%,c%,d!Dimxl,x2Dimp,q,ra=InputBox(஻ìíᐭaḄ”)b=InputBox("ìíᐭbḄ”)c=InputBox(஻ìíᐭcḄ")d=b*b-4*a*cp=-b/(2*a)Ifd>=0Then'**********SPACE**********If[?]Thenr=Sqr(d)/(2*a)xl=p+rx2=p-rElsexl=px2=p'**********SPACE**********[?]Print"xl="óxl,஻x2=஻óx2'**********SPACE**********[?]q=Sqr(-d)/(2*a)Printxl=;p;+;q;1,x2=;p;-;q;1EndIfEndSubᫀl).d>0ᡈ0

15PublicFunctionmax(ByVaia%,ByVaib%,ByVaic%)'**********SPACE**********If[?]Thenm=aElsem=bEndIf'**********SPACE**********If[?]Thenmax=mElsemax=cEndIfEndFunction%ᫀ'1).max(maxi,73,352)2).a>bᡈbcᡈ2ஹ45ᦋ┯ᐳ2⚪(ᐳ:10ᑖ)=1⚪’ூ45ᦋ┯௃'⚪A'BCᦋ45D┯EFGH45ᨬJKLᦔN᝞P1ᡠR஺'TU'VWXYᡈᑤ◀45\F]VW^_ᦋ45`᪀PrivateSubFormClick()DimiAsIntegerFori=1To7'**********FOUND**********PrintSpchi'**********FOUND**********Ifi>=1ThenPrint*Else'**********FOUND**********Print஻*஻;Spc(2*(i-1));஻*஻EndIfNextiEndSub%ᫀ'1).PrintSpc(7-i);2).Ifi=1ThenᡈIfl=iThen3).Print஻*஻iSpc(2*(i-1)n1);஻*஻=2⚪’ூ45ᦋ┯௃'⚪A'o45Ḅqrstuvwxnyᦪ{aKᐭ10}᦮ᦪFᯠJnyᦪ{Ḅᦪxn}2\5ᑡḄyᦪ{஺ᨬJᙠn\ᑁKLnyᦪ{ஹᙠ\ᑁKLyᦪ{஺VWXYᡈᑤ◀45\F]VW^_ᦋ45`᪀PrivateSubForm_Click()Dima(10),b(2,5)AsInteger

16dimiasinteger,kasinteger,jasintegerFori=1To10a(i)=InputBox(஻B10}᦮ᦪxᦪ{஻)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);஻yᦪ{bḄs:“Fori=1To2PrintTab(10);Forj=1To5'**********FOUND**********Printb(j,i);Nextj'**********FOUND**********Paintb(i,j)NextiEndSub%ᫀ'1).Printa(i);2).print(i,j)3).Printஹ45:ᐳ2⚪(ᐳ:20ᑖ)=1⚪’ூ45:௃'⚪A:()ᓫ஺()ᑏṹqr᝞(P1)஺`Nᐭ¡SumD஺¢ᵨwhile...wend¥¦§ᡂ45'TU'BᙠᢣªḄᑁᑏṹ஺%ᫀ'-------------DimiAsIntegeri=lwhilei<=10sum=sum+iii=i+1wend

17Printsum=2⚪’ூ45:௃'⚪A'()«஺()¬nᐗ®ἠᣚᡂnᑖஹᑖ±ᑖḄ²³(´µ¶·ᨵn¹),ºLᐸᡠᨵḄᣚ¼F¬`NKLᙠ½஺ᡠᨵḄᣚ¼ḄᦪAᐭ¡ND’TU'BᙠᢣªḄᑁᑏṹ஺%ᫀ'----------------------Dimi,j,kAsIntegerFori=1To100Forj=1To50Fork=1To20If((i+2*j+k*5)=100)ThenPrint(CStr(i))Print(CStr(j))Print(CStr(k))n=n+1EndIfNextNextNext¾ஹVB:ᐳ4⚪(ᐳ:20ᑖ)=1⚪ூ:௃⚪A'Bᢥ᯿⚪A⌕º:ᢣªḄ஺ÃÄ᝞(P1)ᡠRÅ☢஺1'ÇYÈᙠᑁÇY3}ᦻÊ᪾(Textl,Text2,Text3),3}᪗Í(Label1,Labe12,Label3),2}ÏÐÑÒᩩ(HScrolll,HScroll2)»2'Ö:Ö×Ø(Name)Ù“Form6”஺Ö᪗⚪(Caption)Ù“VB½ÜÝᔁ”஺3'ᦻÊ᪾Ö'ᙠ=1}ᦻÊ᪾(Text1)DKᐭᦻÊ(Text)“ß⁐á⁚”,ÖᦻÊḄãäåæÙ“çèãä”஺Ö=2}ᦻÊ᪾(Text2)ḄᑁéÙê஺Ö=3}ᦻÊ᪾(Text3)ḄᑁéÙê஺ᡠᨵᦻÊ᪾ḄëஹëìWí⌱஺4'᪗ÍÖ'Ö=1}᪗Í(Label1)᪗⚪(Caption)Ù“ᦻÊ᪾Ḅïð⁐”஺Ö=2}᪗Í(Label2)᪗⚪(Caption)Ù“ᦻÊ᪾Ḅñð⁐”஺Ö=3}᪗Í(Label3)᪗⚪(Caption)Ù“òï”஺5'ÑÒᩩÖ:

18〉òá᦮ÏÐÑÒᩩḄᜧõ±öÖ஺=2⚪ூ:௃⚪A'Bᢥ᯿⚪A⌕º:ᢣªḄ஺ÃÄ᝞(P1)ᡠRÅ☢஺1:ÇYÈÇY÷ᓫF×ØÙmenu_File,×ØÙmenu_Set஺ᙠmenuSetøÇY2}ù÷ᓫF×ØÙmenuSetBack±menuSet_Fore஺ᙠmenu_Set_BackøÇY3}ù÷ᓫ×ØÙmenu_Set_Back_Red,menuSetBackGreen,menuSetBackBlue),2'Ö×Ø(Name)Ù"Form4”஺᪗⚪(Caption)Ù“VB”஺3'÷ᓫÖÖ÷ᓫ(menu_File)Ḅ᪗⚪(Caption)Ù“ᦻ(&F)”Fþ÷ᓫ⚗
“ᦔ”஺ᓫ(menu_Set)Ḅ᪗⚪(Caption)
“(&S)”஺ᓫ(menu_Set)Ḅᓫ(menuSetBack)Ḅ᪗⚪(Caption)
""#⁐"஺ᓫ(menu_Set)Ḅᓫ(menu_Set_Fore)Ḅ᪗⚪(Caption)
"'#⁐"஺ᓫ(menu_SetBack)Ḅᓫ(menu_SetBackRed)Ḅ᪗⚪(Caption)
“*”+,ᣩ.
Ctrl+Aoᓫ(menu-SetBack)Ḅᓫ(menu_SetBackGreen)Ḅ᪗⚪(Capti஺n)
“4”,,ᣩ.
Ctrl+B஺ᓫ(menu_SetBack)Ḅᓫ(menu_SetBackBlue)Ḅ᪗⚪(Caption)
“6”+,ᣩ.
Ctrl+C஺73⚪ூ:;<௃⚪>?@ᢥ᯿⚪>⌕D<ᢣFḄ:;஺GH᝞(JDᡠMN☢஺1?ᙠ:;ᑁST1UᦻW᪾(Textl),3U᪗[(Labell,Label2,Label3),3Uᢥ_(Commandl,Commands,Command3),1Uaᔠ᪾(Combo1)»2?:;::;ef(Name)
“Form9”஺:;᪗⚪(Caption)
“VB”஺3?᪗[?71U᪗[(Label1)Ḅ᪗⚪(Caption)
“jᕒlm⊤”஺72U᪗[(Label2)Ḅ᪗⚪(Caption)
“oe?”஺73U᪗[(Label3)Ḅ᪗⚪(Caption)
“ឋq:”.᪗[sḄt;ஹtvwxy⌱{஺4?aᔠ᪾?〉~aᔠ᪾Ḅᜧ஺5?ᦻW᪾?ᦻW᪾(Textl)Ḅᑁ(Text)
஺6?ᢥ_?71Uᢥ_(Commandl)Ḅ᪗⚪(Caption)
“ST”஺

1972Uᢥ_(Command2)Ḅ᪗⚪(Caption)
“”஺73Uᢥ_(Command3)Ḅ᪗⚪(Caption)
“⌨”஺74⚪ூ:;<௃⚪>?@ᢥ᯿⚪>⌕D<ᢣFḄ:;஺GH᝞(J1)ᡠMN☢?@ᢥᡠ:;Ḅ᪵<:;(⌕DḄ᪵+ᑮᡠ:;ᓽw+ᨵ◤⌕ᓫḄ)஺1?ᙠ:;ᑁST2Uᢥ_Command௃+Command2¡,3Uᑡ⊤᪾ListLList2,List3¡,3U᪗[LabelLLabel2,Label3),2U᪾£(Framel,Frame2),3UᦻW᪾(Textl,Text2,Text3)o¤ᙠ᪾£(Framel)sST1U¥⌱᪾(Checkl),1Uaᔠ᪾(Combo1),1U᪗[(Label4)஺ᙠ᪾£(Frame2)sST1U᪗[(Label5)஺2?:;?:;ef(Name)
“Form3;஺:;᪗⚪(Caption)
“t;”஺3?᪗[:71U᪗[(Label1)Ḅ᪗⚪(Caption)
“t;F):"஺72U᪗[(Label2)Ḅ᪗⚪(Caption)
“t§(&Y):”஺73U᪗[(Label3)Ḅ᪗⚪(Caption)
“tv(&S):”஺4?ᦻW᪾?71UᦻW᪾(Textl)ḄᦻW(Text)
“©;”஺72UᦻW᪾(Text2)ḄᦻW(Text)
“ª;”஺73Uᦻᩈ᪾(Text3)ḄᦻW(Text)
“¬v”஺5?ᑡ⊤᪾?ᙠ71Uᑡ⊤᪾(Listl)sᐭᦻW“¯;”,“©;”,“´µ”+“¶ᙊ”஺ᙠ72Uᑡ⊤᪾(List2)sᐭᦻW“°ᑣ”+“²;”+“ª;”+“ª²;”஺ᙠ73Uᑡ⊤᪾(List3)sᐭᦻW“v”+“³v”+“¸v”+“¹v”+“¬v”஺6?ᢥ_?71Uᢥ_(Commandl)Ḅ᪗⚪(Caption)
“ºF”஺72Uᢥ_(Command2)Ḅ᪗⚪(Caption)
“”஺7?᪾£?71U᪾£(Framel)Ḅ᪗⚪(Caption)
“ᱯ½ᦔ¾”஺71U᪾£(Framel)sḄ¥⌱᪾(Checkl)Ḅ᪗⚪(Caption)
“ᑜÀ(&U)”஺71U᪾£(Frame஺sḄ᪗[(Label4)Ḅ᪗⚪(Caption)
“Â⁐(&C):”஺〉~Ã᦮71U᪾£(Framel)sḄaᔠ᪾(Combol)Ḅᜧ஺72U᪾£(Frame2)Ḅ᪗⚪(Caption)
"M"஺72U᪾£(Frame2)sḄ᪗[(Label5)Ḅ᪗⚪(Caption)
“sᦻt;AaBbCc”஺ÆᔁÈv?8108ஹᑨÌᐳ20⚪(ᐳ<20ᑖ)71⚪VBÏ:;Ðᳮ᪀ᡂÔᵨÖḄᔜØᦻḄÙᔠ.Úᫀ?N72⚪᝞¾Uᑡ⊤᪾ᐳᨵ5U⌱⚗+Ý~⌱s7¸⚗+Þᑡ⊤᪾ḄListindexßឋ
2.Y73⚪ᵨVB6.0àáâãᐹᨵ:åᓫḄÔᵨÖ+âãḄÔᵨsáæᢝèéᓫ.Ú?X

2074⚪ëÀwìᙠ:;íîï+ðñòᐹᨵMOVEóô.Úᫀ?N75⚪ᑡ⊤᪾ᒹö÷aᔠ᪾Ḅøá.Úᫀ?N76⚪ᙠ⊤ùés+úûüýḄᦪÿ
⌕.ᫀY7⚪ᑭᵨᐝ᪗⌱ᓫ⚗KeyPress.ᫀN8⚪ᙠ"#ᘤᑡ⊤᪾DrivelḄChange)*+,ṹDirl.Path=Drivel.DriveḄ.ᵨ/:1DrivelḄ"#ᘤᦋ34,DirlḄ67ᑡ⊤89:"#ᘤḄ.;ᦋ3.ᫀY9⚪VB<=>?ᦻḄ᡽BC/.vbp.ᫀN10⚪ᙠSub)*+ᵨReturnDE⌨GSub)*.ᫀY11⚪VBH:■JK*ᨵMN>?ᢣ=P>?QRS>?.ᫀY12⚪ᑡ⊤᪾Ḅ+Ḅ⚗69NᑡTU.ᫀN13⚪=4VᦻW᪾+ḄᦪYZ[ᑮ]ᵨ^⌱ᵨTimer_4ᘤ`.ᫀY14⚪ᵫVisualBasicDbcᑏḄᵨ*eᨵfghcijk᡻mno.ᫀY15⚪pq/rWḄsmt?uvᒹxyᦪY({ឋ).~ᒹx.ᵨ^pqḄ.(n)hpqḄ#.().ᫀY16⚪ᙠVB+VᵨḄ)*hᦪcᑏ.Qnᵨᡝᵨ.ᫀY17⚪◀listlᑡ⊤᪾pqḄᑁḄDE/listl.cls.ᫀN18⚪ᵫ3Cp3Ḅᑁmᵨᡈᦋ,ᑣᵨ3/ᵨ3Ḅᑁ.ᫀY19⚪ᙠVisualBasic+Dima,b,casintegerhDimaasinteger,basinteger,casinteger;:.ᫀN20⚪ᙠVB6.0+᝞⌕>?ḄNJ`ᐹᨵ;:Ḅ,ᙠ⌱y`¡,᡻mVB“¢o”ᓫ+Ḅ¤¥.ᫀY¦ஹᓫ⚗⌱ᐳ20⚪(ᐳ_20ᑖ)1⚪ª«¬JᦻW᪾+®⌱¯ᦻWḄᑁḄ{ឋ/().A:TextB:LengthC:SelTextD:SelStartᫀC2⚪_4ᘤḄinterval{ឋQ04,⊤U().A:_4ᘤᜫᦔB:;◞஺´C:;◞0µ´D:_4ᘤḄenable{ឋQfalseᫀA3⚪¶ᑡᐵ^{ឋ¸¹Ḅº»┯½Ḅ/().A:J`ᐹᨵ¾¿{ឋ/VB⚜ᐜ¸_Ḅ,ᵨᡝ9ªᦋ3B:J`ᐹᨵ¾¿{ឋ/VB⚜ᐜ¸_Ḅᵨᡝᦋ3C:J`Ḅ{ឋᓽᙠ{ឋ>Ã+¸¹~ᵨ*e,ṹ¸¹D:J`Ḅ{ឋᙠ{ឋ>Ã+¸¹Äᑭᵨ*e,ṹQᐸ¸¹ÆÇᫀA4⚪⌕Jᦻᩈ᪾ᐹᨵÉÊhᚖÌ#ᩩ,ᑣᐜVᐸMultiLine{ឋ¸¹QTrue,ᯠ¡ÏVScrollBar{ឋ¸¹Q().A:0B:1C:2D:3ᫀD5⚪ÐÑA?B?C+CᨬÓᑣᑨÕA?B?Cᔲ᪀ᡂÙÚÛÙᩩÜÝḄÞß⊤ào/().A:A>=BAndB>=CAndC>0B:A+OBAndB+OAAndC>0C:(A+C)>=CAndA-C<=C)AndC>0D:A+B>CAndA-B>CAndC>0ᫀB6⚪ᵨDEDimA(-3To5)AsInteger=áḄᦪâḄᐗäJᦪ/().A:6B:7C:8D:9ᫀD7⚪᝞TABᦪḄåᦪÓ^1,ᑣᡭᓺè¹ᙠ()ᑡ.A:0B:1C:2D:3ᫀB8⚪éê
ᦪY◤()ì⁚.A:2B:4C:6D:8ᫀD9⚪ᙠ*e,ṹ+ᦋÌ#ᩩḄvalue{ឋ4VîïÌ#ᩩḄ().

21A:changeB:scrollC:dragdropD:gotfocusᫀA10⚪ᙠ+Õð᝱¶sm,ṹ~ᙠsmð᝱+.QòGóḄ>ÃôQ().A:Wᙢ>ÃB:öᓽ>ÃC:÷ø>ÃD:᪘>ÃᫀB11⚪ᦻᩈ᪾`+VTextḄᑁᐰûTUQᡠ=áḄìýḄ{ឋ⚗/().A:PasswordCharB:◤⌕c*ᩭtÿC:PasswordD:
ᫀA12⚪☢()ᐹᨵCaptionឋ.A:᪗᪾B:ᓫ⌱C:ᢥD:ᦻ᪾ᫀD13⚪Rnd!ᦪ#$%&Ḅ()(.A:0B:1C:0,1234D:.00005ᫀB14⚪᝞*X+,-Ḅ.ᦪ,0ᓟᑖ3456ᐭ89ᶇ;3<ᦪḄ⊤>?0.A:0.01*int(x+0.05)B:0.01*int(100*(x+0.005))C:0.01*int(100*(x+0.05))D:0.01*int(x+0.005)ᫀB15⚪OPTIONEXPLICIT@A#Bᙠ().A:DEFᙽḄHIJKB:᪗LFᙽḄHIJKC:MFᙽḄHIJKD:NOPQRKD16⚪ᑡᔜ⚗VWK8X+⚗ᡠᓰḄᑁ\]^ᨬ`().A:dimxascurrencyx=99B:dimstlasstringstl=2good,C:dimst2asstringst2='goodbye'D:dimdasdatad=21898/09/12'ᫀC17⚪ab+,-c☢E8ᑖdᵨ1-6f⊤gc,☢8h+iabjkḄᦪ#⊤lm().A:int(rnd*6+l)B:int(rnd*6)C:int(rnd*7)D:int(rnd(6)+1)ᫀA18⚪mnᙠᢥopqr᡻tu,ᢥḄPQR8◤⌕xyᢥḄ+,ឋz{mTrue,g,ឋ().A:ValueB:DefaultC:CancelD:EnabledᫀB19⚪zᙠDE
ᨵ;,ᢥ,ᐸK+,ᢥḄ}~mcmda,ᑣ+,ᢥḄ}~$0.A:cmdcB:cmdbC:cmdAD:Command1ᫀC20⚪ᑡVWḄK8$AmVEVWḄ().A:DIMAASDOUBLEB:DIMAASVARIANTC:DIM;AD:A=24ᫀAஹR]ᐳ2⚪(ᐳ10ᑖ)1⚪’ூR]௃'⚪RḄ$᝞(1)஺PrivateSubForm_Click()Dima%,b%,c%,d!Dimxl,x2Dimp,q,ra=InputBox("ᐭaḄ()b=InputBox("ᐭbḄ(")c=InputBox("ᐭcḄ(")d=b*b-4*a*cp=-b/(2*a)Ifd>=0Then'**********SPACE**********If[?]Thenr=Sqr(d)/(2*a)

22xl=p+rx2=p-rElsexl=px2=p'**********SPACE**********[?]Print"xl=";xl,"x2=";x2‘**********SPACE**********[?]q=Sqr(-d)/(2*a)Printxl=±p;+;q;i,x2=;p;-±q±iEndIfEndSubᫀ1).d>0ᡈ0bᡈb

23DimAAsIntegerDimBAsIntegerDimCAsIntegerPrivateSubFormClickäåDimnTempAsIntegerA=VaiäTnputBoxä/ZP1easeinputfirstinteger,஻ᐭ-᦮ᦪ஻ååB=VaiäInputBoxä"Pleaseinputsecondinteger,஻ᐭ-᦮ᦪ஻ååC=VaiäTnputBoxäZ/Pleaseinputthirdinteger,஻ᐭ-᦮ᦪ஻åå'**********FOUND**********IfA<=CThennTemp=AA=BB=nTempEndIf'**********FOUND**********IfB<=CThennTemp=AA=CC=nTempEndIf'**********FOUND**********IfA<=BThennTemp=BB=CC=nTempEndIfPrint"Theintegersinorderis஻±A;B;CEndSubᫀ1).IfA<=BThenᡈIfB>=AThen2).IfA<=CThenᡈIfCுèAThen3).IfB<=CThenᡈIfCு=BThen2⚪’ூRᦋ┯௃'⚪ᐭ+,éêë80ᡠᨵḄ<ᑏéíîᣚmᜧᑏéí஺'ØÙ#ÚÛᡈᑤ◀Rt8Þ#ßᦋRà᪀PrivateSubFormClickäåDimsiAsString,s2AsString,iAsInteger,tAsStringsi=InputBoxä஻ᐭéêë8#ñàò஻åi=1'**********FOUND**********si=Midäsl,i,1åWhilet<>'**********FOUND**********

24Ift>=஻a஻Andt<=஻z஻Thent=Chr(Asc(t)-30)s2=s2+ti=i+1tèMidäsl,i,1åWend'**********FOUND**********Print஻öéêëm஻±siEndSubᫀ1å.t=Midäsl,i,1å2å.Ift>="a"Andt<="z"Thent=ChräAscätå-32å3å.Print"öéêëm஻±s26ஹRzᐳ2⚪äᐳ20ᑖå1⚪’ூRz௃'⚪äPå÷øDE஺äùúå¾1+5+10+15+……+500Ḅü,ý0à*jᑮDE
஺0à*\ᐭVWSUMK஺’ØÙᙠᢣḄᑁᑏṹ஺ᫀ----------------------DimiAsIntegerFori=1To500IfiMod5=0Thensum=sum+iEndIfNextPrintsum+2⚪’ூ0123௃'⚪678ᓫ:;<஺7=>8?100@ᑁᏔᦪḄCDEFGHIJᙠ;

251ᙠ;<ᑁ}~2ᢥ(Command1,Conunand2),3ᔠ᪾(Combol,Combo2,Combo3),1ᦻ᪾(Text1),6᪗(Labell,Label2,Label3,Labe14,Label5,Label6),2⌱᪾(CheckLCheck2)«2;<22;<(Name)“Form22”஺2;<᪗⚪(Caption)“<”஺3᪗22+1᪗(Label1)Ḅ᪗⚪(Caption)“<”஺2+2᪗(Label2)Ḅ᪗⚪(Caption)“¡”஺2+3᪗(Label3)Ḅ᪗⚪(Caption)“ᦻᦔH”஺2+4᪗(Label4)Ḅ᪗⚪(Caption)“£¤”஺2+5᪗(Label5)Ḅ᪗⚪(Caption)“¡”஺2+6᪗(Label6)Ḅ᪗⚪(Caption)“¥”஺4ᦻ᪾2ᙠᦻ᪾(Textl)SIᐭᦻ(Text)“12”஺5ᔠ᪾22ᔠ᪾(Combol)Ḅᦻ(Text)“75%”஺2ᔠ᪾(Combo2)Ḅᦻ(Text)“~¨”஺2ᔠ᪾(Combo3)Ḅᦻ(Text)“©ᓣ”஺6⌱᪾22+1⌱᪾(Checkl)Ḅ᪗⚪(Caption)“«᦮<Ḅ¡”஺2+2⌱᪾(Check2)Ḅ᪗⚪(Caption)“᝞H®¯°Dᑣ²³¯°”஺´⌱᪾ᙳ⌱S¶᝱஺7ᢥ22ᢥ(Commandl)Ḅ᪗⚪(caption)"¹"஺2ᢥ(Command2)Ḅ᪗⚪(caption)“º»”஺+2⚪ூ;<23௃⚪6Vᢥ᯿⚪6⌕?23ᢣḄ;<஺bc᝞(e1)ᡠgh☢஺1:ᙠ;<ᑁ}~2ᢥ(Commandl,Command2),4᪗(Labell,Label2,Labe13,Label4),1ᦻ᪾(Textl)஺2;<22;<(Name)“Forml6”஺2;<᪗⚪(Caption)“t”஺3᪗22+1᪗(Label1)Ḅ᪗⚪(Caption)“½¾t”஺2+2᪗(Label2)Ḅ᪗⚪(Caption)“10:13:13"D¿᪾ÀÁ᝞e஺2+3᪗(Label3)Ḅ᪗⚪(Caption)“tt(Â)”஺2+4᪗(Label4)Ḅ᪗⚪(Caption)“tᑮ"D<ÃÄU஺4ᦻ᪾2〉Æ2ᦻ᪾ḄᜧÈC¥஺5ᢥ2

262+1ᢥ(Commandl)Ḅ᪗⚪(Caption)“ÉÊ”஺2+1ᢥ(Command2)Ḅ᪗⚪(Caption)“⌨J”஺+3⚪ூ;<23௃⚪6Vᢥ᯿⚪6⌕?23ᢣḄ;<஺bc᝞(e1)ᡠgh☢஺1ᙠ;<ᑁ}~2Ìᓫ(menu_File,menu_Set)஺ᯠÏᙠÌᓫ(menuSet)Ð}~2Ìᓫ(menu_Set_Font,menu_Set_Color),,ÑḼÓᙠÌᓫ(menu_Set_Font)Ð}~3Ìᓫ(menuSetFontBold,menuSetFontUnderline,menu_Set_Font_Italic),}~1ᦻ᪾(Textl)஺2;<2:2;<(Name)"Forml8”஺2;<᪗⚪(Caption)“ᦻÕ”஺3Ìᓫ22Ìᓫ(menu-File)Ḅ᪗⚪(Caption)“ᦻ(&F)”஺2Ìᓫ(menu_Set)Ḅ᪗⚪(Caption)“2(&S)”஺2Ìᓫ(menu_Set)ÐḄÌᓫ(menuSetFont)Ḅ᪗⚪(Caption)"<×°"஺2Ìᓫ(menu_Set)ÐḄÌᓫ(menu_Set_Color)Ḅ᪗⚪(Caption)"Ø⁐"஺2Ìᓫ(menu.SetFont)ÐḄÌᓫ(menu_Set_FontBold)Ḅ᪗⚪(Caption)"Û<"஺2Ìᓫ(menu_Set_Font)ÐḄÌᓫ(menu_Set_Font_Underline)Ḅ᪗⚪(Caption)“ÐᑜÝ”஺2Ìᓫ(menu_Set_Font)ÐḄÌᓫ(menu_Set_Font_Italic)Ḅ᪗⚪(Caption)"Þ<"஺4ᦻ᪾2ᙠᦻᩈ᪾(Textl)SIᐭᦻ(Text)“SàáâᐳCã”஺ᦻ᪾äåᩩ᪵çḄ2᝞e஺+4⚪ூ;<23௃⚪6Vᢥ᯿⚪6⌕?23ᢣḄ;<஺bc᝞(e1)ᡠgh☢஺1ᙠ;<ᑁ}~4ᦻ᪾(Textl,Text2,Text3,Text4),4᪗(Labell,Labe12,Label3,Label4),2ᢥ(Commandl,Command2),2;<22;<(Name)“Forml2”஺2;<᪗⚪(Caption)“VB”஺3᪗2:2+1᪗(Labell)Ḅ᪗⚪(Caption)“è”஺2+2᪗(Label2)Ḅ᪗⚪(Caption)“é01”஺2+3᪗(Label3)Ḅ᪗⚪(Caption)“é02”஺2+4᪗(Label4)Ḅ᪗⚪(Caption)“êᙳᡂì”஺4ᦻ᪾224ᦻ᪾Ḅᑁí(Text)îïDE〉Æ«᦮ᜧÈC¥஺5ᢥ22+1ᢥ(Commandl)Ḅ᪗⚪(Caption)“3ð”஺2+2ᢥ(Command2)Ḅ᪗⚪(Caption)“⌨J”஺

27ñᔁÃ8106qஹᑨôᐳ20⚪(ᐳ320ᑖ)+1⚪Variantõqöᦪ÷ÀÁ,øùúûM¤üᐸþᦪ÷ÀÁq᪵,ÿᱯ
.ᫀ\2⚪Ḅᔠ᪾DblClick.ᫀY3⚪ᙠᢥḄClick!"exit#end$ᦔ.ᫀN4⚪&ᓫ()&ᓫ⚗+,"-./&ᓫ⚗ᡈ-ᐝ᪗⌱45ᢥ678"9:Click.ᫀ:Y5⚪⌕=>?ᘤ,ABᵨ"ᐸEឋIntervalGHIJ0.ᫀY6⚪HK&ᓫ!()L&ᓫ⚗ᑖN+)L,"(L,ᨵPQḄRS.ᫀY7⚪Tᙠ--LVᓫᔠ᪾ḄᦻX᪾!Yᐭ•L\Ḅᑡ⊤᪾!Ḅ_ᨵḄᩩa?"ᔠ᪾bPcde)ᩩafgᑮ\Ḅᑡ⊤᪾!.ᫀ\8⚪ᔠ᪾iᨵᦻX᪾jᑡ⊤᪾kὅḄmn,ᵨᡝ-qᐭᦻXᡈ⌱4ᑡ⊤!Ḅ⚗aᩭst⌱4.ᫀY9⚪MsgBoxOuᦪwxḄyz᪾n{|}z~nYᐭ}z.ᫀN10⚪Pictureᱏ᪾ᵨᩭ{|ᱏjᑴ,~ᵨPrintᩭ{|ᦻS.ᫀN11⚪ᡠᨵḄVBḄ"ᨵ◚Sjkᩭ>.ᫀN12⚪Listl.clear+◀ListlḄᐰᑡ⊤⚗,ᡠClear+Ḅ.ᫀY13⚪ᙠᱏ᪾!IḄ,ᙠᱏ᪾ᑁc"~ᱏ᪾᜜.ᫀ\14⚪ᙠVBḄᐹ!ᒹ¢£ᡠᨵḄVB,"ᡃ¥Gn¦g§ᐸ¨Ḅ,.ᫀ\15⚪ᙠ…Lª«Ḅ¬ṹ!Gn=ᵨUnload®¯ᩭᔂ§Xª«"ᓽLª«²nᵫᐸ\ª«ᔂ§.ᫀN16⚪a´ᑡ⊤᪾!Ḅᑡ⊤⚗G-Additemstfg.ᫀY17⚪ᙠMsgBoxuᦪ!promptµᦪ+¶·Ḅ.ᫀY18⚪ᨵ)L¸ᙠEឋª¹!HI£\Ḅª«S«ᜧ»J10¼,½¸¬ṹ¾HI£\Ḅª«S«ᜧ»J20¼,¿ÀT¸ÁtÂÃ▭Ḅª«S«ᜧ»J20¼.ᫀY19⚪Dimi,jasinteger⊤ijj+᦮Æ.ᫀN20⚪ᙠVB!"ÁÇ"ABA"Like”[a?a-ḄÈÉ+False.ᫀNÊஹᓫ⚗⌱4ᐳ20⚪(ᐳK20ᑖ)1⚪Ï10JÐXḄÑᵨᦪḄ⊤ÒJ().A:LOG(X)/LOG(10)B:LN(X)C:LOG(X)/LOG(E)D:LOG(X)ᫀA2⚪"”+KÇÕÖ×ÁtḄ().A:¸ᓫØB:ÙÚᓫØC:ᱥᳮëD:ÝXëᫀD3⚪J£ᙠᢥÞ678?᡻tàLᢥḄ,◤⌕âᢥḄ•LEឋHIJTrue,eLEឋ+().A:ValueB:DefaultC:CancelD:EnabledᫀB4⚪ÞGEãVisualBasicÖ×ḄᦻäÆ+().A:.frmB:.batC:.vbgD:.vbpᫀB5⚪ÞᑡSåÑ!"ᨬᜧḄ+0.ᓅè"B:"éê"ᜩì"D:"íî”ᫀC6⚪ïᢥCommand1HIJðḕḄòcᢥóᦋ,ᑴḄ()Eឋ.A:EnabledB:ValueC:DefaultD:CancelᫀC7⚪᝞Éöᦪ÷ᦻINPUT.DAT!øùᦪ÷?"Þᡭûᦻ!"üýḄ+().A:OPENINPUT.DATFORINPUTASSIB:OPENINPUT.DATFOROUTPUTAS#1

28C:OPEN"INPUT.DAT"FORINPUTAS#1D:OPEN"I",#1INPUT.DATᫀC8⚪vbḄᙶ᪗ᨬ"#$%().A:ᛀB:*+C:ᔖ-D:./᪗0123$ᫀA9⚪᝞6./789ᨵ;/<=>᪗0?ᙽ,ᑣBCDE┯GḄH().A:᝞6789ᨵSubMainN8,ᑣ8O.P✌ᐜ᡻TUN8B:VWX᪗0?ᙽYZ%[\?ᙽC:ᵨHideabcH◚e./<=,VWfᑁhi◀U<=D:klm#ᨬ;cᨵ./<=Hn\<=ᫀA10⚪ᵨp᪗q\r\ᩩr\᪾uvwxyz{r\ᩩḄ()|}.A:ScrollB:ChangeC:DragOverD:ABᫀD11⚪V./*Ḅឋ᝞lYZx8OTmWᦈᯖḄabH().A:ᵨTabB:ᵨp᪗C:ᵨaᔣD:VWᫀD12⚪yᢥCommand1YZ%VxᦋUᢥḄ()ឋ.A:VisibleB:ValueC:CaptionD:EnabledᫀA13⚪Cᑡ()H§¨©ª«.A:"2/l/02"B:37258C:#2/1/02#D:|2/1/02|ᫀC14⚪±ᔠ᪾ᨵ³´µ¶,·¸ᵫStyleឋᡠ¼P,ᐸ%C¾ᑡ⊤᪾m,StyleឋÀ%A:0B:1C:2D:3ᫀC15⚪BCBÁ%VB«ÃḄH().A:SINB:C01C:COS(X)D:X(-1)ᫀB16⚪ᵫFork=10to0step3:nextkÊËÌÍÎᑴḄÊËÐᦪH().A:12B:0C-llD-10ᫀB17⚪⌕ÓÔᦻ}ᑡ⊤᪾Ö×Ø⌱Ḅᦻ}Ḅᦻ}ÃxᑣÚᵨÛ/ឋ().A:DirB:PathC:DriveD:FileNameᫀD18⚪InputBoxÜᦪÝÞḄÜᦪÀḄß©H0.A:ᦪÀB:12àC:ᦪÀᡈ12àD:᪷ã◤⌕BHklß©ᦪãᫀC19⚪CᑡÌÍåæḄH().A:txtl.text+txt2.text=txt3.textB:command1.name=cmdokC:121abel.caption=1234D:a=inputbox(hello)ᫀD20⚪CᑡÛ/«ḄèbHVåæḄ().A:sTmeB:TTempC:T12%D:T_12ᫀC³ஹ8Oìíᐳ2⚪(ᐳï10ᑖ)1⚪’ூ8Oìí௃'⚪õBC8OḄöW᝞(÷1)஺PrivateSubForm_ClickùúDima%,b%,c%,d!Dimxl,x2Dimp,q,ra=InputBoxù"ýþᐭaḄ"b=InputBox"ᐭbḄ"c=InputBox"ᐭcḄ”d=b*b-4*a*cp=-b/2*a

29Ifd>=0Then'**********SPACE**********If[?)Thenr=Sqr(d)/(2*a)xl=p+rx2=p-rElsexl=px2=p'**********SPACE**********[?)Print"xl=஻0xl,஻x2=஻0x2'**********SPACE**********[?]q=Sqr(-d)/(2*a)Printxl=0p;+;q;i,x2=;p;-;q;iEndIfEndSub6ᫀ8l).d>0ᡈ0bᡈbcᡈc

30dஹABᦋ┯ᐳ2⚪ᐳh10ᑖ=1⚪’ூABᦋ┯௃'⚪j8F☢ABkl7Mmn᦮ᦪpqᑮᜧ᣸B'tu8vwxyᡈᑤ◀AB|R}vw~ᦋAB᪀PrivateSubForm_Click()Dimt%,m%,n%,w%,a(7)asintegerForm=1To7a(m)=Int(10+Rnd()*90)Printa(m);஻஻0NextmPrintForm=1To6t=m'**********FOUND**********Forn=2To7'**********FOUND**********Ifa(t)>a(n)Thenn=tNextn'**********FOUND**********Ift=mThenw=a(m)a(m)=a(t)a(t)=wEndIfNextmForm=1To7Printa(m)NextmEndSub6ᫀ81).Forn=m+1To72).Ifa(t)>a(n)Thent=nᡈIfa(n)mThen=2⚪’ூABᦋ┯௃'⚪j8ḄᩩRhḄ☢஺⌕LAB✌ᐜᑨḄᩩᔲ᪀ᡂ஺'tu8vwxyᡈᑤ◀AB|R}vw~ᦋAB᪀PrivateSubFormClick()DimaAsSingle,bAsSingle,cAsSingleDimsAsSingle,tAsSinglestart:a=InputBox(஻ᐭ18”)b=InputBox(஻ᐭ28஻)

31c=InputBox(஻ᐭ38஻)'**********FOUND**********Ifa+b0)m=nn=rr=mModn

32Loopp=nq=nm/nÈஹVBÉʤhᐳ4⚪(ᐳh20ᑖ)=1⚪ூÉʤh௃⚪j8ᢥ᯿⚪j⌕L¤hᢣḄÉÊ஺ÍÎ᝞(«1)ᡠÏ☢8ᢥᡠÉÊḄ᪵ѤhÉÊ(v⌕LÒ¼ḄÓÔ•᪵RÖ|×ØᑮᡠÉÊᓽwRᨵ×◤⌕ÜᓫḄ»¼HA)஺18ᙠÉÊᑁÞy2Mᢥß(Command1,Command2),3Mᑡ⊤᪾(Listl,List2,List3),3M᪗ã(Label1,Label2,Labe13),2M᪾ä(Framel,Frame2),3Mᦻæ᪾(Textl,Text2,Text3)oçᙠ᪾ä(Framel)OÞy1Mè⌱᪾(Checkl),1Mêᔠ᪾(Combo1),1M᪗ã(Label4)஺ᙠ᪾ä(Frame2)OÞy1M᪗ã(Labe15)஺28Éʤì8¤ìÉÊíî(Name)ï“Form3Ê஺¤ìÉÊ᪗⚪(Caption)ï“ñÊ”஺38᪗ã¤ì:¤ì=1M᪗ã(Label1)Ḅ᪗⚪(Caption)ï“ñÊìF):"஺¤ì=2M᪗ã(Label2)Ḅ᪗⚪(Caption)ï“ñò(&Y):”஺¤ì=3M᪗ã(Label3)Ḅ᪗⚪(Caption)ï“ñõ(&S):”஺48ᦻæ᪾¤ì8¤ì=1Mᦻæ᪾(Textl)Ḅᦻæ(Text)ï“öÊ”஺¤ì=2Mᦻæ᪾(Text2)Ḅᦻæ(Text)ï“÷Ê”஺¤ì=3Mᦻᩈ᪾(Text3)Ḅᦻæ(Text)ï“£õ”஺58ᑡ⊤᪾¤ì8ᙠ=1Mᑡ⊤᪾(Listl)Oᐭᦻæ“ùÊ”R“öÊ”R"þÿ"
"ᙊ”஺ᙠ=2Mᑡ⊤᪾(List2)Oᐭᦻæ“úᑣ”R“üÊ”R“”
“”஺ᙠ=3Mᑡ⊤᪾(List3)Oᐭᦻæ“Çõ”R“ýõ”R“”
“”
“”஺6ᢥ1ᢥ(Commandl)Ḅ᪗⚪(Caption)&“'(”஺2ᢥ(Command2)Ḅ᪗⚪(Caption)&“*+”஺7᪾.1᪾.(Framel)Ḅ᪗⚪(Caption)&“ᱯ3ᦔ5”஺1᪾.(Framel)6Ḅ7⌱᪾(Checkl)Ḅ᪗⚪(Caption)&“<ᑜ>(&U)”஺1᪾.(Framel)6Ḅ᪗A(Label4)Ḅ᪗⚪(Caption)&“E⁐(&C):”஺〉IJ᦮1᪾.(Framel)6ḄLᔠ᪾(Combol)ḄᜧOPQ஺2᪾.(Frame2)Ḅ᪗⚪(Caption)&“R”஺2᪾.(Frame2)6Ḅ᪗A(Label5)Ḅ᪗⚪(Caption)&“6ᦻVAaBbCc”஺2⚪ூZ[௃⚪]^ᢥ᯿⚪]⌕a[ᢣ(ḄZ஺cd᝞(f1)ᡠRh☢஺1ᙠZᑁmn2᪾.(Framel,Frame2),1᪗A(Label1),2ᢥ(Commandl,Command2)pᙠ1᪾.(Framel)ᑁmn1ᦻq᪾(Textl),ᙠ2᪾.(Framel)6mn3ᓫ⌱᪾(Optionl,0ption2,0ption3)»

332ZZyz(Name)&“Form7”஺Z᪗⚪(Caption)&“VB}~ᔁ”஺3᪾.1᪾.(Framel)Ḅ᪗⚪(Caption)&“^ᐭᙊḄ”஺1᪾.(Framel)6Ḅᦻᩈ᪾(Textl)Ḅᦻᩈᑁ(Text)&12஺2᪾.(Frame2)Ḅ᪗⚪(Caption)&“[”஺2᪾.(Frame2)6Ḅᓫ⌱᪾(Optionl)Ḅ᪗⚪(Caption)&“”஺2᪾.(Frame2)6Ḅᓫ⌱᪾(0ption2)Ḅ᪗⚪(Caption)&“ᕜ”஺2᪾.(Frame2)6Ḅᓫ⌱᪾(0ption3)Ḅ᪗⚪(Caption)&“☢”஺4᪗A:᪗A(Label1)Ḅ᪗⚪(Caption)&“ᙊḄ☢&113.09724”஺5ᢥ:1ᢥ(Commandl)Ḅ᪗⚪(Caption)&“[”஺2ᢥ(Command2)Ḅ᪗⚪(Caption)&“⌨”஺3⚪ூZ[௃⚪]^ᢥ᯿⚪]⌕a[ᢣ(ḄZ஺cd᝞(f1)ᡠRh☢஺1mnᦻq᪾(Textl)஺᪾.(Framel)஺ᢥ(Commandl)஺ᑡ⊤᪾(List1)஺᪗A(Label1)஺ᙠ᪾.(Framel)ᑁmnᓫ⌱ᢥ(Optionl,0ption2)஺2Zyz(Name)ឋ&“Form2”஺᪗⚪(Caption)ឋ&“yᑡ⊤”஺3᪗A᪗A(Label1)᪗⚪(Caption)ឋ&“ᙠ<☢ᦻᩈ᪾6ᐭy”஺4ᦻq᪾〉IJ᦮ᦻq᪾(Textl)ḄQPᜧO஺5᪾.᪾.(Framel)᪗⚪(Caption)ឋ&“⌱ឋ”஺6ᓫ⌱᪾ᓫ⌱᪾(Optionl)Ḅ᪗⚪(Caption)ឋ&"ᵱ"஺ᓫ⌱᪾(0ption2)Ḅ᪗⚪(Caption)ឋ&"᝕"஺7ᑡ⊤᪾ᑡ⊤᪾(List1)6mnᩩ¡&“¢£ᑡ⊤᪾”஺8ᢥᢥ(Commandl)Ḅ᪗⚪(Caption)ឋ&"mn"஺4⚪ூZ[௃⚪]^ᢥ᯿⚪]⌕a[ᢣ(ḄZ஺cd᝞(f1)ᡠRh☢஺

341ᙠZᑁmn3¥¦§¨ᩩ(HScrolll,HScroll2,HScroll3),5᪗A(Labell,Label2,Labe13,Label4,Label5),1fᱏ᪾(Picturel)஺2ZZyz(Name)&“Forml4”஺Z᪗⚪(Caption)&“J⁐®”஺3᪗A1᪗A(Label1)Ḅ᪗⚪(Caption)&“¯”஺2᪗A(Label2)Ḅ᪗⚪(Caption)&"°"஺3᪗A(Label3)Ḅ᪗⚪(Caption)&“±”஺4᪗A(Label4)Ḅ᪗⚪(Caption)&“0”஺5᪗A(Label5)Ḅ᪗⚪(Caption)&“255”஺4fᱏ᪾:fᱏ᪾Ḅ²³E⁐&H00000000&,p〉IJ᦮ᜧOPQ஺5¥¦§¨ᩩ〉IJ᦮3¥¦§¨ᩩḄQPᜧO஺ᔁ´8101ஹᑨ·ᐳ20⚪(ᐳ[20ᑖ)1⚪ᵨ»᪗⌱6¼½ᓫ¾
¿ÀClickÁÂÃᵨÄÅ⌱6ƽᓫ¾
¿ÀKeyPressÁ.N2⚪ᙠ᪗ÉÊᙽḄÌÍÎᑖ6ᵨPubliceÌÍḄÏÐḄᨵᦔÒ£ᐸᡠᙠḄÔÕ.ÖᫀY3⚪[¾ᘤ(Timer)ḄIntervalឋḄᓫQ£ÜÝ,ᓽßàáឋâ&10,ᑣä0.01ÝåæçTimerÁ.ÖᫀY4⚪è¨᪾.ᑁḄ¾᪾.ᑁḄéêëè¨,ᡠì᪾.ᑁᔜḄLeftPTopឋâéàᑖëïᦋÏ.ÖᫀN5⚪ᦻq᪾ᨵCaptionឋ.ÖᫀN6⚪ñᦪóÕ(FunctionProcedure)ᵨᩭõᡂᱯ(Ḅ÷ø
ùúûüýþḄÿ.ᫀ'7⚪ᓫᐹᡠ◤Ḅᑮᓽᡂ!"#.ᫀN8⚪ᡠᨵḄVBḄ)*+,ᨵ◚./01234560789:ᩭ<=.ᫀ\9⚪@ABᙠDE+FGHᐹᨵMOVE9:.ᫀN10⚪NEᩩPQRᵨᡝUᐭᦪXḄ9:.ᫀY11⚪ᵫVisualBasicabcᑏḄeᵨfgᨵhi3cj78᡻l9m.ᫀY12⚪o89mḄpᔠ᪾,BstDblClicky.ᫀY13⚪VB{<ᦻḄ᡽~.vbp.ᫀN14⚪ᙠᢥḄClickyf,exitendᦔ.ᫀN15⚪pᔠ᪾ᒹ.ᑡ⊤᪾Ḅ.ᫀY16⚪<ᘤḄintervalឋ¡¢R0+£¤¥P¦ᙢ¨©Timery.ᫀN17⚪ᙠ᪾¬ᑁḄ®¯ᓫ⌱ᢥ+±ᨵ²¯ᓫ⌱ᢥḄValueឋRTrue.ᫀY18⚪᝞ᙠf5ᵨ´ᵨᢥµ⌴·ᦪ+ᑣᙠ¹5fBᦋ)»·Ḅ.ᫀN19⚪(Variant8ᦪX½¾+FG±¿ÀÁᐸHᦪX½¾᪵+ÄᱯÆ.ᫀN20⚪BᑭᵨÈÉᐝ᪗⌱ÌÍᓫ⚗+FGÏeKeyPressy.ᫀXÔஹᓫ⚗⌱Ìᐳ20⚪(ᐳ×20ᑖ)1⚪ᙠVB+ÚᑡPQR¿ÀÛÁḄÜᘤ().

35A:B:᪾¬C:ÝÞ᪾D:ÝÁ᪾ᫀD2⚪⊤ßm25.28Mod6.99Ḅ().A:1B:5C:4D:à┯ᫀC3⚪ᙠFormlḄClickyfᨵBÚaâ:Labell.Caption="VisualBasic”äᩈaâ᡻læç,᪗èḄCaptionឋRéê,ᑣ᪗èḄNameឋ3Captionឋᙠ᡻lëaâæçḄᑖìR().A:“Label"ஹ"Label"B:"Labell"ஹ"VisualBasic”C:"Labellz\"LabelPD:"Caption"ஹ"Label”íC4⚪ÚᑡîÀÝᱏḄឋ().A:autosizeB:pictureC:stretchD:01eDrawModeᫀC5⚪⊤ßmX+1>X().A:ðñ⊤ßmB:ò:⊤ßmC:12⊤ßmD:ᐵô⊤ßmᫀD6⚪ÚᑡPᵨcommondialog5ᵨḄÛõ᪾().A:open/saveB:helpC:fontD:searchᫀD7⚪ᦻë᪾⌱<ḄᑁÜ+ᵫÚᑡ()ឋö᧜.A:TextB:CaptionC:SeltextD:sellenghtᫀC8⚪ḄCaptionឋḄQᵨ().A:ø<ḄùB:ø<Ḅ᪗⚪C:ø<Ḅúû½¾D:ø<Ḅ1ᫀ:B9⚪⌕´ᦻë᪾ýþUᐭᯖ
ᑣᵨᦻ᪾Ḅ().A:GodFocusB:LostFocusC:KeyPressD:SetFocusᫀD10⚪VisualBasicḄᑴ().A:ᓄB:☢ᔣ#$C:☢ᔣ%&D:'()ᫀD11⚪*+,ᐕ.ᵨᡝᙠ12345ᐭᦻ7Ḅ().A:᪗9᪾B:ᦻ᪾C:+:;<ᔠ᪾D:>ᓫ<ᔠ᪾ᫀA12⚪ᙠVisualBasic@᛻B
CD᪗EFᙽḄ᡽IJ().A:frmB:basC:clsD:vbpᫀB13⚪ᑁḄ#L;()MឋOP.AAlignmentB:WordwrapC:AtuoSizeD:StyleᫀA14⚪ᙠQRSTUVW
᝞TEXTஹLABEL1ஹC0MMAND1,Z⌕\1]23ᯖ_P`ᙠC0MMAND1S,bCOMMAND1Ḅ()cde0.A:INDEXB:TABINDEXC:TABSTOPD:ENABLEDᫀB15⚪f]#$(᝞QRᡈ%ᱏ᪾)ij)ᡈᦋlᜧnop,ᡈf]⌚rsQRijtop,᝞u⌕vᢝsᡠy%&Ḅz᦮ឋ,*⌱}~0'ᩭzᡂ%&Ḅy.A:PaintB:LoadC:ClickD:ActiveᫀA16⚪⌕◀ᦻ᪾BḄᑁᑣᑭᵨ()3.A:CaptionB:TextC:ClearD:ClsᫀB17⚪>ᓫ<ᔠ᪾Ḅstylee().A:0B:1C:2D:3ᫀB18⚪ᓫ)ᩩḄ])ᜮ
b~s)ᩩḄ()'.A:ScrollB:KeyDownC:ChangeD:DragoverᫀC19⚪⌕\᪗9ᡠ◤⌕Ḅ,ᑣᙠ1Bcdᐸ]MឋḄ().A:CaptionB:TextC:NameD:AutoSizeᫀA20⚪⊤;Mid("SHANGHAI”,6,3)Ḅ().A:SHANGHB:SHAC:ANGHD:HAIᫀD

36ஹ1ᐳ2⚪(ᐳ£10ᑖ)1⚪’ூ1௃'+☢«max()ᵨ¯°3ᦪBᨬᜧ
ᑭᵨ´«°5ᦪBᨬᜧ஺PrivateSubFormClick()Print஻5ᦪ34ஹ124ஹ68ஹ73ஹ352Ḅᨬᜧ஻maxi=max(34,124,68)'**********SPACE**********maxi=[?]PrintmaxiEndSubPublicFunctionmax(ByVaia%,ByVaib%,ByValc%)'**********SPACE**********If[?]Thenm=aElsem=bEndIf'**********SPACE**********If[?]Thenmax=mElsemax=cEndIfEndFunctionᫀ1).max(maxi,73,352)2).a>bᡈbcᡈc=0Then'**********SPACE**********If[?]Thenr=Sqr(d)/(2*a)xl=p+rx2=p-r

37Elsexl=px2=p'**********SPACE**********[?]Print஻xl=஻ëxl,஻x2=”ëx2'**********SPACE**********[?]q=Sqr(-d)/(2*a)Printxl=ëp;+;q;i,x2=;p;-ëqëiEndIfEndSubᫀ1).d>0ᡈ00'**********FOUND**********n=mn=rr=mModnLoop'**********FOUND**********gcd=rEndFunctionPrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsIntegera'InputBox(஻+ᐭ-.᦮ᦪ஻)b=InputBox(஻+ᐭ-.᦮ᦪ஻)a=Vai(a)b=Vai(b)'**********FOUND**********Cal1gcd(a,b)Printa,b,cEndSub3ᫀ51).m=n2).gcd=n3).c=gcd(a,b)92⚪’ூ=>ᦋ┯௃'⚪C5DEFG+ᐭH.ᦪIJKLMᦪ

38'NO5PQRSᡈᑤ◀=>WIXPQYZᦋ=>[᪀PrivateSubFindMidNum()DimxAsInteger,yAsInteger,zAsInteger,AAsIntegerx=InputBox("PLEASEINPUTTHEFIRSTNUMBER")y'InputBox("PLEASEINPUTTHESECONDNUMBER")z=InputBoxCPLESSEINPUTTHETHIRDNUMBER")'**********FOUND**********Ifx>yThenA'xx=yy'AEndIf'**********FOUND**********Ify=zThenPrinty'**********FOU\D**********Elselfx=zThenPrintzElsePrintxEndIfEndSubPrivateSubForm_ClickghFindMidNumEndSub3ᫀ51h.IfxxThen2h.Ify>=zThenᡈIfz<=yThen3h.Elselfx>=zThenᡈElselfz<=xTheniஹ=>kEᐳ2⚪gᐳE20ᑖh91⚪’ூ=>kE௃'⚪C5gnohᓫqrs஺guvhw1T00Lx5ᡈ7Ḅ|ᦪḄ}஺~[+Kᑮrs,ᐭᡠSUML஺ᵨwhile...wendᡂ=>’NO5~ᙠᢣḄnoᑁᑏṹ஺3ᫀ5---------------------DimiAsIntegeri=1Whilei<=100IfiMod5=0OriMod7=0ThenSum=Sum+iEndIfi=i+1Wend

39PrintSum92⚪’ூ=>kE௃'⚪C5gnohᓫqrs஺guvhᡂ-.-ᦪg10.ᦪᐗx515ஹ23ஹ72ஹ43ஹ96ஹ23ஹ3ஹ65ஹ88ஹ17h,ᑏ=>wK¥.ᦪLḄᨬᜧ¨ஹᨬ©¨}ªᙳ¨I+Kᙠrs஺ᨬᜧ¨Iᨬ©¨Iªᙳ¨ᑖ¬ᐭMax,Min,AverL'NO5~ᙠᢣḄnoᑁᑏṹ஺ᫀ5Dima(9)AsIntegerDimi,sAsIntegera(0)=15a(l)=23a(2)=72a(3)=43a(4)=96a(5)=23a(6)=3a(7)=65a(8)=88a(9)=17max=a(0)min=a(0)s=0Fori=0To9Ifa(i)>maxThenmax=a(i)EndIfIfa(i)

40Label2,Labe13)(>25rskÂ5kÂrsÃÄ(Name)x“Form20”஺kÂrs᪗⚪(Caption)x“EFᘤ”஺35᪗ÁkÂ5kÂ91.᪗Á(Label1)Ḅ᪗⚪(Caption)x“9-.ᦪ”஺kÂ92.᪗Á(Label2)Ḅ᪗⚪(Caption)x“9'.ᦪ”஺kÂ93.᪗Á(Label3)Ḅ᪗⚪(Caption)x“EF[”஺45ᦻ½᪾kÂ5〉ÉkÂ3.ᦻ½᪾Ḅᜧ©}ÊÂ஺55ᔠ᪾kÂ5kÂᔠ᪾(Combol)Ḅᦻ½(Text)x“ËFÌÍ”஺65ᢥ»kÂ5kÂᢥ»(Commandl)Ḅ᪗⚪x“=”஺92⚪ூrskE௃⚪C5~ᢥ᯿⚪C⌕wkEᢣḄrs஺³´᝞(¶1)ᡠ·¸☢஺15ᙠrsᑁºS4.ᦻ½᪾(Textl,Text2,Text3,Text4),4.᪗Á(Labell,Labe12,Label3,Label4),2.ᢥ»(Command1,Commands)»25rskÂ5kÂrsÃÄ(Name)x“Forml3”஺kÂrs᪗⚪(Caption)x“VB”஺35᪗ÁkÂ5kÂ91.᪗Á(Labell)Ḅ᪗⚪(Caption)x“Ï◀ᦪ”஺kÂ92.᪗Á(Label2)Ḅ᪗⚪(Caption)x“◀ᦪ”஺kÂ93.᪗Á(Label3)Ḅ᪗⚪(Caption)x“ᖪ”஺kÂ94.᪗Á(Label4)Ḅ᪗⚪(Caption)x“Ñᦪ”஺45ᦻ½᪾kÂ5kÂ4.ᦻ½᪾ḄᑁÒ(Text)ÓxÔI〉ÉÕ᦮ᜧ©}ÊÂ஺55ᢥ»kÂ:kÂ91.ᢥ»(Commandl)Ḅ᪗⚪(Caption)x“EF”஺kÂ92.ᢥ»(Command2)Ḅ᪗⚪(Caption)x“⌨K”஺93⚪ூrskE௃⚪C5~ᢥ᯿⚪C⌕wkEᢣḄrs஺³´᝞(¶1)ᡠ·¸☢஺1:ᙠrsᑁºS2.Øᓫ(menuFile,menuSet)«ᯠÛᙠØᓫ(menu_Set)ܺS2.Øᓫ(menu_Set_Font,menuSetColor)»ÝḼßᙠØᓫ(menuSet_Font)ܺS3.Øᓫ(menu_Set_Font_Bold,menu_Set_Font_Underline,menuSetFontItaiic),ºS1.ᦻ½᪾(Textl)஺25rskÂ5kÂrsÃÄ(Name)x“Forml8”஺kÂrs᪗⚪(Caption)x“ᦻᩈá”஺

4135ØᓫkÂ5kÂØᓫ(menu_File)Ḅ᪗⚪(Caption)x“ᦻo(&F)”஺kÂØᓫ(menu-Set)Ḅ᪗⚪(Caption)x“kÂ(&S)”஺kÂØᓫ(menu_Set)ÜḄØᓫ(menu_Set_Font)Ḅ᪗⚪(Caption)x"ãsäå"஺kÂØᓫ(menu-Set)ÜḄØᓫ(menuSet_Color)Ḅ᪗⚪(Caption)x"æ⁐"஺kÂØᓫ(menu_Set_Font)ÜḄØᓫ(menu_Set_Font_Bold)Ḅ᪗⚪(Caption)x"ès"஺kÂØᓫ(menu_SetFont)ÜḄØᓫ(menu_SetFontUnderline)Ḅ᪗⚪(Caption)x"Üᑜê”஺kÂØᓫ(menu-SetFont)ÜḄØᓫ(menu_Set_FontItalic)Ḅ᪗⚪(Caption)x"ës"஺45ᦻ½᪾kÂ5ᙠᦻ½᪾(Text1)L+ᐭᦻ½(Text)“Lìíîᐳ}ï”஺ᦻ½᪾ðñᩩ᪵ôḄkÂ᝞¶஺94⚪ூrskE௃⚪C5~ᢥ᯿⚪C⌕wkEᢣḄrs஺³´᝞(¶1)ᡠ·¸☢஺15ºSõoᦻ½᪾(Text1)஺᪾ö(Frame1,᪾öFrame2),᪾ö(Framel)ᑁºS2.ᓫ⌱᪾(Optionl,0ption2)஺᪾ö(Frame2)ᑁºS3.ᓫ⌱᪾(0ption3,0ption4,0ption5)«25rskÂrsÃÄ(Name)x“Forml”஺rs᪗⚪(Caption)x“ãs᪵ô”஺35ᦻ½᪾kÂᦻ½᪾(Textl)ᦻ½(Text)øឋ¨x“VBrskE”஺ãsøឋx“ús”஺ᦻãûüýôøឋx“þLûü”஺ᦻãæ⁐x&H00FF0000&஺45᪾ökÂ᪾ö(Framel)᪗⚪(Caption)øឋx"ãs"஺᪾ö(Frame2)᪗⚪(Caption)øឋx“æ⁐”஺55ᓫ⌱᪾kÂᓫ⌱᪾(Optionl)᪗⚪(Caption)øឋx"ús"஺ᓫ⌱᪾(Option2)᪗⚪(Caption)øឋx"ÿ"஺ᓫ⌱᪾(0ption3)᪗⚪(Caption)ឋ""஺ᓫ⌱᪾(0ption4)᪗⚪(Caption)ឋ""஺ᓫ⌱᪾(Option5)᪗⚪(Caption)ឋ""஺ᔁ8100#ஹᑨ&ᐳ20⚪(ᐳ)20ᑖ)+1⚪,-᪾.ḄStretchឋtrue67ᐸ9ᵨ;,<=>?᦮ᜧBC〉E,-FG஺Y+2⚪VisualBasicMNḄOP᪗Qᙶ᪗STḄUVW;ᙠY,Z[Ḅ\]^7᝞`⌕bᙶ᪗

42UVcᙠᐸdef,ᑣ◤jᵨ=klᙶ᪗ST.nᫀY+3⚪ᙠ⊤rs.7tuvwxḄᦪz{|⌕}#~.nᫀY+4⚪>᪾ᑁḄFG6᪾ᑁḄFG>,ᡠC᪾ᑁᔜFGḄLeftTopឋᑖᦋ.nᫀN+5⚪⌕ᵨḄ7ᐹ.ᡠ◤ḄFGᑮ]ᓽᡂ.nᫀ\+6⚪Picture,ᱏ᪾¦ᵨᩭ¨©,ᱏYᑴ,<,ᵨPrintᩭ¨©ᦻ¬.nᫀN+7⚪ᙠVB.7®¯°ᦪNow²³)u´STḄµ¶6·.nᫀN+8⚪ᙠVB.7°ᦪFix(-3.6)Ḅ²³;-4.nᫀN+9⚪¼⌕½¾#¿ÀÁ]ḄÂÃᦻG7ᵨoutput,appendsᡭÆᦻG.nᫀY+10⚪᪗ÇÈᨵChangeËGSetFocus.nᫀN+11⚪ᙠVB.7CᙠPictureFG.YᑴḄ,=BAndB>=CAndC>0B:A+OBAndB+OAAndC>0C:(A+C)>=CAndA-C<=C)AndC>0D:A+B>CAndA-B>CAndC>04ᫀ6B2⚪7☢()9:ᙠ<=>?@AB.A:LineB:TimerC:TextD:Option4ᫀ6B3⚪()9:AᐹᨵCaptionQឋ.A:LabelB:OptionC:FormD:Timer4ᫀ6D4⚪ᵫFork=35to0step3:nextk[\]^_ᑴḄ[\aᦪ(().A:0B:12C6-llD6-104ᫀ6A5⚪cde?fgh,jklᳮᘤgopqrs?f().A:jkᦻuB:ghᦻuC:kvwᙽᦻuD:ywᙽᦻu4ᫀ6B6⚪{7|}┯Ḅ(().A:VisualBasic(uᓄkjᐹB:VisualBasicᵨkvAᐹᨵ]^C:VisualBasicjᐹḄᡠᨵ_uᐹᨵ(Width)(Height)QឋD:VisualBasic_uḄQឋᙠ<=>¡¢4ᫀ6C7⚪@>ᘤḄIntervalQឋ{()¦ᓫ¨ᢣ@Timeruª«Ḅ>««◞.A:ᑖB:C:®D:¯4ᫀ6C8⚪±VisualBasic²³´¦ᵨᡝ¶dḄjk·?f¸¦()Ḅ¹>¸º.A:jk1B:gh1C:jkD:gh4ᫀ6A9⚪Ꮇ¡½¾BOOLVAR(?fÀÁ½¾ᑣ7☢ÂÃḄÄÅ]^(().A:BOOLVAR='TRUE'B:BOOLVAR=.TRUE.C:BOOLVAR=#TRUE#D:B00LVAR=3<44ᫀ6D10⚪Êᑡ()(ÌÍξ.

43A:"2/l/02"B:37258C:#2/1/02#D:|2/l/024ᫀ6C11⚪7ᑡÒ᦮Ôᱏ᪾Ḅᜧ{〉ᔠÔᱏḄQឋ(ÚÛ.A:stretchB:autosizeC:pictureD:oledropmode4ᫀ6B12⚪ᙠᦻÝ᪾ÞßàṹâÚ᝞*Û·åᵨæç¡¢MultiLineQឋŦ0.A:FalseB:TrueC6-lD:14ᫀ6A13⚪jkéêlᳮᘤgoᒹìḄᦻuyᨵÚÛí.A:2B:3C:4D:54ᫀ6C14⚪îCommonDialogïᵨ9ð᪾Ḅy¡¢¦ñh9ð᪾,¡¢ò_uḄ0Qឋ.A:FontB:FilterC:flagsD:Action4ᫀ6D15⚪¦ôᙠᑡ⊤᪾ᑭᵨCtrlShift÷ø=ùfᑡ⊤⚗Ḅ⌱ü,ᑣîᑡ⊤᪾ḄMultiselectQឋ¡¢¦ÚÛ.A:0B:1C:2D:34ᫀ6C16⚪⌕ß᪗ÿ
Ḅឋ.A:BackStyleB:BorderStyleC:AppearanceD:BackColor%ᫀ'A(17⚪,ᑡᐵ/ឋḄ01┯3Ḅ4.A:5678ᐹᨵ;<ឋ4VB⚜ᐜ@AḄ,ᵨᡝEᦋGB:5678ᐹᨵ;<ឋ4VB⚜ᐜ@AḄ,ᵨᡝHIᦋGC:5678ḄឋᓽHIᙠឋLM,NHIᵨOPQṹD'5678ḄឋᙠឋLM,SHIᑭᵨOPQṹUᐸWX%ᫀ'A(18⚪ZᦪInStr"VBOP@ᦟO""OP"ḄXU.A:1B:2C:3D:4%ᫀ'C(19⚪ᑡ⊤᪾⌱MḄᦻᩈᵨឋ.A:selectedB:captionC:textD:list%ᫀ'D(20⚪lᵨOP@mᡂo,lpOPqrqrḄsO4.A:tqrᦻ8ᓽHB:tqruOᦻ8ᓽHC:ᐜqruOᦻ8voqrᦻ8D:ᐜqrᦻ8ᡈ᪗yzᙽᦻ8voS⌕qruOᦻ8%ᫀ'D}ஹOPᐳ2⚪ᐳ@10ᑖ(1⚪’ூOP௃'⚪'I,OPḄ᝞11஺PrivateSubFormedick()Dima%,b%,c%,d!Dimxl,x2Dimp,q,ra=InputBox("ᐭaḄX")b=InputBox("ᐭbḄX”)c=InputBox("ᐭcḄX")d=b*b-4*a*cp=-b/(2*a)Ifd>=0Then'**********SPACE**********If[?]Thenr=Sqr(d)/(2*a)xl=p+r

44x2=p-rElsexl=px2¨p'**********SPACE**********[?]Print஻xl=஻ªxl,஻x2=஻ªx2'**********SPACE**********[?]q=Sqr(-d)/(2*a)Printxl=;p;+;q;1,x2=;p;-;q;1EndIfEndSub%ᫀ'1).d>0ᡈ068ஹ73ஹ352ḄᨬᜧX4'஻maxi¨max(34,124,68)'**********SPACE**********maxi=[?]PrintmaxiEndSubPublicFunctionmax(ByVaia%,ByVaib%,ByVaic%)'**********SPACE**********If[?]Thenm=aElsem=bEndIf'**********SPACE**********If[?]Thenmax=mElsemax=cEndIfEndFunction%ᫀ'1).max(maxi,73,352)2).a>bᡈbcᡈµஹOPᦋ┯ᐳ2⚪(ᐳ@10ᑖ)(1⚪’ூOPᦋ┯௃'⚪'ᢧ⌱ᓫᦪ¸᣸POP'OPº»oᵫ@½¾¿»ÀÁ206/[100,300]vÂḄþ᦮ᦪᓫÅ஻ÆÇᐰ஻ᢥÊËᙠFormlÌÆDZ206þᦪªᓫÅ஻ÆÇᓫᦪ஻ᢥÊËஹᙠFormlÌÆÇᐸMḄᓫᦪªᓫÅ஻᣸P஻ᢥÊËᙠFormlÌp±ÍᓫᦪÎÏᑮᜧÆÇ஺⌕®ÆÇÑÒU

45ÓÔÆÇ56ᦪÕ஺'Ö×'EHØÙᡈᑤ◀OPÔNEHIÜᦋOPÝ᪀Privatea(20)AsInteger,b(20)AsIntegerPrivatekAsIntegerPrivateSubcmdodd_Click()DimTAsIntegerk=0ForI=1To20'**********FOUND**********Ifa(I)/2=Tnt(a(I)/2)Thenk=k+1b(k)=a(I)EndIfNextTFor1=1TokPrintb(I);'**********FOUND**********IfInt(I/5)<>I/5ThenPrintNextIPrintEndSubPrivateSubcmdAl1Click()RandomizeDimIAsIntegerForI=1To20'**********FOUND**********a(I)=Int(Rnd()*20+100)Printa(I),IfInt(I/5)=I/5ThenPrintNextIPrintEndSubPrivateSubcmdsort_Click()DimIAsIntegerDimJAsIntegerDimTempAsIntegerForI=1Tok-1ForJ=ITokIfb(I)>b(J)ThenTemp=b(I):b(I)=b(J):b(J)=TempNextJNextIForI=1TokPrintb(I);

46IfInt(I/5)=I/5ThenPrintNext1EndSub%ᫀ'D.Ifa(I)/2<>Int(a(I)/2)Then2).IfInt(I/5)=1/5ThenPrint3).a(I)=Int(Rnd()*200+100)(2⚪’ூOPᦋ┯௃’⚪:®s=72+102+132+……832ḄX஺'Ö×'EHØÙᡈᑤ◀OPÔNEHIÜᦋOPÝ᪀PrivateSubForm_Click()CisDimsAsLongDimiAsInteger'**********FOUND**********s=1'**********FOUND**********Fori=7To832s=s+I'**********FOUND**********Next30PrintsEndSub%ᫀ'1).s=02).Fori=7To832step303).NextiæஹOP@ᐳ2⚪(ᐳ@20ᑖ)(1⚪’ூOP@௃'⚪'(ç8)ᓫÅ஺(èl)®sum=l+l+2+3+5+8+13+...+144ḄépsumÝêXᑮÌ஺ëᵨdo...loopìímᡂOP’Ö×'ᙠᢣïḄç8ᑁñᑏQṹ஺%ᫀ'-DimiAsIntegerDimsiAsIntegerDims2AsIntegeri=1si=1:s2=1Sum=Sum+si+s2DoIfs2=144ThenExitDoEndIfsi=si+s2s2=si+s2

47Sum=Sum+si+s2LoopPrintSum(2⚪’ூOP@௃'⚪'(ç8)ᓫÅ஺(èl)5ᳫÎ100ôõö¿ᵫ÷,Óø÷ᙢúûüõöḄ5ý®(10ø÷ᙢËᐳþsÿ
ᙠ஺'ᙠᢣḄᑁᑏṹ஺ᫀ-------------Dimj,iAsIntegers=0j=100Fori=2To10j=j/2s=s+2*jNexts=100+sPrint(CStr(s))?ஹVBCDᐳ4⚪(ᐳD20ᑖ)I1⚪ூCD௃⚪Lᢥ᯿⚪L⌕PCDᢣḄ஺QR᝞(T1)ᡠVW☢஺1YZ[ᢥ\(Command1,Command2,Commands)»᪗a(Labe11,Labe12)஺2Cdef(Name)gឋi"Form3"஺᪗⚪(Caption)gឋi“VB”஺3ᢥ\Cdᢥ\(Commandl)Ḅ᪗⚪(Caption)i"pq”஺ᢥ\(Command2)Ḅ᪗⚪(Caption)i"rs"஺ᢥ\(Command3)Ḅ᪗⚪(Caption)i"t"஺4᪗aCd᪗a(Labell)Ḅ᪗⚪(Caption)i“u☢Ḅ᪗avᵨᩭyVz{|}”஺᪗a(Label2)Ḅ᪗⚪(Caption)i“09:58:33”஺I2⚪ூCD௃⚪Lᢥ᯿⚪L⌕PCDᢣḄ஺QR᝞(T1)ᡠVW☢஺1YZ[ᦻ᪾(Textl)஺᪾(Frame1)»

48ᢥ\(Command1)0ᑡ⊤᪾(Listl)஺᪗a(Label1)஺ᙠ᪾(Frame1)ᑁYZᓫ⌱ᢥ\(Optionl,0ption2)஺2Cdef(Name)gឋi“Form2”஺᪗⚪(Caption)gឋi“eᑡ⊤”஺3᪗aCd᪗a(Labell)᪗⚪(Caption)gឋi“ᙠu☢ᦻ᪾ᐭe”஺4ᦻ᪾Cd〉z᦮ᦻ᪾(Textl)Ḅdᜧ஺5᪾Cd᪾(Framel)᪗⚪(Caption)gឋi"⌱ឋ”஺6ᓫ⌱᪾Cdᓫ⌱᪾(Optionl)Ḅ᪗⚪(Caption)gឋi"ᵱ"஺ᓫ⌱᪾(Option2)Ḅ᪗⚪(Caption)gឋi"᝕"஺7ᑡ⊤᪾Cdᑡ⊤᪾(Listl)YZᩩi“vᑡ⊤᪾”஺8ᢥ\Cdᢥ\(Commandl)Ḅ᪗⚪(Caption)gឋi"YZ"஺I3⚪ூCD௃⚪Lᢥ᯿⚪L⌕PCDᢣḄ஺QR᝞(T1)ᡠVW☢஺1ᙠᑁYZ2᪾(Framel,Frame2),1᪗a(Labell),2ᢥ\(Commandl,Commands),,ᙠI1᪾(Framel)ᑁYZ1ᦻᩈ᪾(Textl),ᙠI2᪾(Framel)YZ3ᓫ⌱᪾(Optionl,0ption2,0ption3),,2CdCdef(Name)i“Form7”஺Cd᪗⚪(Caption)i“VB¢£ᔁ”஺3᪾CdCdI1᪾(Framel)Ḅ᪗⚪(Caption)i“ᐭᙊḄ¦§”஺CdI1᪾(Framel)Ḅᦻ᪾(Textl)Ḅᦻᑁ¨(Text)i12<,CdI2᪾(Frame2)Ḅ᪗⚪(Caption)i“Dª«¬”஺CdI2᪾(Frame2)Ḅᓫ⌱᪾(Optionl)Ḅ᪗⚪(Caption)i“§”஺CdI2᪾(Frame2)Ḅᓫ⌱᪾(0ption2)Ḅ᪗⚪(Caption)i"ᕜ¯"஺CdI2᪾(Frame2)Ḅᓫ⌱᪾(0ption3)Ḅ᪗⚪(Caption)i“☢°”஺4᪗aCdCd᪗a(Labell)Ḅ᪗⚪(Caption)i“ᙊḄ☢°i113.09724”஺5ᢥ\CdCdI1ᢥ\(Commandl)Ḅ᪗⚪(Caption)i“Dª”஺CdI2ᢥ\(Command2)Ḅ᪗⚪(Caption)i“⌨”஺I4⚪ூCD௃

49⚪Lᢥ᯿⚪L⌕PCDᢣḄ஺QR᝞(T1)ᡠVW☢ᢥᡠ³Ḅ᪵µCD(¶⌕P[Ḅ·¸᪵¹º»|¼ᑮᡠ³ᓽ¿¹ᨵ|◤⌕ÂᓫḄÃÄ)஺1ᙠᑁYZ4ᢥ\(Commandl,Command2,Commands,Command4),1Åᔠ᪾(Combol),3᪗a(Label1,Label2,Label3),2᪾(Framel,Frame2),1Ç⌱᪾(Check4)஺ᙠ᪾(Framel)YZ3ᓫ⌱ᢥ\(Optionl,0ption2,0ption3),ᙠ᪾(Frame2)YZ3Ç⌱᪾(Checkl,Check2,Check3)»2Cd:Cdef(Name)i“Form28”஺Cd᪗⚪(Caption)i“ᡭᓺ-ÍÄ1”஺3᪗aCd:CdI1᪗a(Label1)Ḅ᪗⚪(Caption)i“ᡭᓺ¢”஺CdI2᪗a(Label2)Ḅ᪗⚪(Caption)i"HPLaserJet1000w«CdI3᪗a(Label3)Ḅ᪗⚪(Caption)i“ᡭᓺÒÓ(&Q):”஺4Åᔠ᪾Cd〉z᦮Åᔠ᪾(Combol)Ḅdᜧ஺5Ç⌱᪾CdCdÇ⌱᪾(Check4)Ḅ᪗⚪(Caption)i“ᡭᓺᑮᦻ(&L)”஺6ᢥ\CdCdI1ᢥ\(Commandl)Ḅ᪗⚪(Caption)i“Ö”¹“Default”gឋiÙ஺CdI2ᢥ\(Command2)Ḅ᪗⚪(Caption)i“ÚÛ”¹“Cancel”gឋiÙ஺CdI3ᢥ\(Commands)Ḅ᪗⚪(Caption)i“Cd(&S)…”஺CdI4ᢥ\(Command4)Ḅ᪗⚪(Caption)i“ÜÝ(&H)”஺7᪾CdCdI1᪾(Framel)Ḅ᪗⚪(Caption)i“ß”஺CdI1᪾(Framel)Ḅᓫ⌱ᢥ\(Optionl)Ḅ᪗⚪(Caption)i“⌱(&E)”஺CdI1᪾(Framel)Ḅᓫ⌱ᢥ\(0ption2)Ḅ᪗⚪(Caption)i“z{áᙽ(&M)”஺CdI1᪾(Framel)Ḅᓫ⌱ᢥ\(0ption3)Ḅ᪗⚪(Caption)i“z{ÍÄ(&P)”஺CdI2᪾(Frame2)Ḅ᪗⚪(Caption)i“ᡭᓺᑁ¨”஺CdI2᪾(Frame2)ḄÇ⌱᪾(Checkl)Ḅ᪗⚪(Caption)i“Tä(&F)”஺CdI2᪾(Frame2)ḄÇ⌱᪾(Check2)Ḅ᪗⚪(Caption)i“ṹ(&C)”஺CdI2᪾(Frame2)ḄÇ⌱᪾(Check3)Ḅ᪗⚪(Caption)i''iᦻ(&T)”஺£ᔁå8107ஹᑨçᐳ20⚪(ᐳD20ᑖ)I1⚪z◤⌕ᙠèQRéÅêëìRḄᓫ⌱\|,í⌕ᵨ᪾îÅᓫ⌱\᪾ïᩭ.ᫀYI2⚪ᙠVB6.0ñòᢥ\¶óôõClick¹ö÷ôõDbClick.ᫀXI3⚪Image[¶ùᵨú¨ᘤüᵨ.ᫀYI4⚪ýþ᪾ᑁḄ[|᪾ᑁḄ[ÿ
,ᡠ᪾ᑁᔜḄLeftTopឋᑖ
ᦋ."ᫀ$N&5⚪)◀listlᑡ⊤᪾01Ḅᑁ2Ḅ345listl.cls."ᫀ$N&6⚪8ᑭᵨ;<ᐝ᪗⌱@Aᓫ⚗DEF8GHKeyPressM."ᫀ$N&7⚪OPQḄfillcolor=rgb(255,0,0)Y,forecolor=rgb(0,255,0)ZDfillsty[=0(solid)

5034circle(200,100),500,,,,2Ḅ^_`a5YbZcḄdeᙊ."ᫀ$N&8⚪hᦻ᫏k☢5ᢣᙠop᱄Qrs☢8tuᡭwhpxQr.xQryz᱄QrD{᱄Qrᐵ}uDᡠᨵxQrᐰᐵ}."ᫀ$Y&9⚪VBᐕᵨᡝᵨType34ᙠQᙽḄᵨ[ᦪ."ᫀY&10⚪ᵨVB6.0wᐹᨵQrAᓫḄHᵨDwḄHᵨᢝ¡_¢Aᓫ."$N&11⚪501,£Q501D¤¥501ḄQr."ᫀ$N&12⚪¦ᱏ᪾ḄMoveª«8¦ᱏ᪾,£¬8ᦋ®¦ᱏ᪾Ḅᜧ°Dtu±ᦋ®¦ᱏ᪾ᨵᐵឋḄ."ᫀ$N&13⚪᝞a´xaddᵨpublicstaticsubadd(),ᑣ®xḄ¸¹5º¸஺"ᫀ$N&14⚪᝞aᙠ½¾ᵨuᵨᢥᙢᙬÂ⌴ÄᦪDᑣᙠž½8ᦋÆÄḄ."ᫀ$\&15⚪Èɪ¢ḄÊᔠ᪾¹8ÌÍDblClickM."ᫀ$Y&16⚪ᡠᨵḄ01¹ᨵcaptionឋ."ᫀ$N&17⚪Line(500,500)-(2500,2500)ÓÔÕÖ×Ø_ÙÚ."ᫀ$N&18⚪½ᦋឋQrḄNameឋD8ᦋQÜÝÞḄ᪗⚪."ᫀ$N&19⚪ᨵḄ01ឋß8ᙠឋQràá8ᙠâṹà."ᫀ$Y&20⚪ᙠhᦻ᫏HᵨDäå¥ᨵopæḄxQ8çè^ᐭ/ëì."ᫀ$Yíஹᓫ⚗⌱@ᐳ20⚪(ᐳð20ᑖ)&1⚪ñ☢òó±ôGᑮk☢àðᦔa0.A:LabelB:TextC:CommonDialogD:Frame"ᫀ$C&2⚪{ᵨᡝᦋûᩩḄvalueឋuýûᩩḄ()M.A:changeB:scrollC:changescrollD:gotfocus"ᫀ$A&3⚪ᑤ◀
Ḅᦪ().A:Ltrim()B:Rtrim()C:Trim()D:Lease"ᫀ$C%4⚪(ᙠ*+,ᨵ./01ᢥ3,ᐸ67/01ᢥ3Ḅ89:emda,ᑣ=7/01ᢥ3Ḅ89>?().A:cmdcB:emdbC:cmdAD:Command1"ᫀ$C%5⚪᝞G⌕(I*+Ḅ᪗⚪K,L⌱NOPQRSឋ().A:NameB:CaptionC:TipsD:Text"ᫀ$B%6⚪ᦻZ᪾\]6^TextḄᑁ`ᐰbcd:ᡠfgḄ
ḄSឋ⚗().A:PasswordCharB:◤⌕mnᩭpqC:PasswordD:O,r>"ᫀ$A%7⚪⌕tu◀ᦻZ᪾6Ḅᑁ`ᑣvᑭᵨ()yz.AdaptionB:TextC:ClearD:Cls"ᫀ$B%8⚪Line(100,100)-Step(400,400)^ᙠ*+()7.A:(200,200)ᑮ(400,400)B:(100,100)ᑮ(300,300)C:(100,100)ᑮ(500,500)D:(100,100)ᑮ(400,400)"ᫀ$C%9⚪CisvOu◀*+ᡈᱏ᪾6Ḅ()ᑁ`.A:ᙠ(▤ᵨPicture(IḄB:ᙠ(▤IḄ\]C:ᙠz▤Ḅᦻ
D:O,ᐰbᑁ`"ᫀ$C%10⚪ᵨᑡ⊤᪾Ḅᨬ7⚗Lᵨ().A:Listl.List(Listl.ListCount-1)B:Listl.List(Listl.ListCount)C:Listl.List(ListCount)D:Listl.List(ListCount-1)"ᫀ$A%11⚪¡¢£¤ᦪ¢¥Ḅ¢:().A:0B:C:1D:¦§¨¢"ᫀ$A%12⚪VisualBasicḄmnªᑴ().

51A:v¬ᓄB:☢ᔣ°±C:☢ᔣD:²]³´"ᫀ$D%13⚪\]().A:µ¶°±Ḅ·ᐹB:(I°±SឋḄ·ᐹC:mᑏnºḄm»ᘤD:µ¶½☢Ḅm»*¾"ᫀ$A%14⚪᝞Gᙠᱏ᪾,ᵨ¿¿ᑴ•/ᙊ¤ᑣᱏ᪾Ḅ()Sឋ>°ÃᙊḄ᜜ÅÆÇ.A:BackColorB:ForeColorC:DrawWidthD:DrawStyle"ᫀ$B%15⚪:ÌÍᯖÏÐᑮÑ/ᢣfḄ\],ᡠᵨḄ().A:SetFocusB:VisibleC:RefreshD:GetFocus"ᫀ$A%16⚪^ᯖÏÕ´(IᑮᢣfḄ\]ᡈ*+,,LÖᵨ().A:SetDataB:SetFocusC:SetTextD:GetGata"ᫀ$B%17⚪OP×Ø6┯ÚḄ().A:ÛÜÝ᪗vOÞßDblClick²]B:*+ᡈ\]Ḅ²]Ḅ89vOᵫmnáᕒãfC:дÝ᪗£,ÂÞßMouseMove²]D:\]Ḅ89vOᵫmnáᕒ(f"ᫀ$B%18⚪⊤æç(7\3+1)*(18\5-1)Ḅ¢().A:8.76B:7.8C:6D:6.67"ᫀ$C%19⚪⌕u◀ëìᙠᱏ᪾Picture6ᡭᓺḄ
ï>u◀ᱏ᪾6Ḅð¤Lᵨñò().A:A.Pl.CisB:Pl.picture=LoadPicture(஻஻)C:P1.Print"D:P1.piture¤zz¤"ᫀ$A%20⚪÷.☢øù\]>ÂÆÇᑮ½☢(ᦔG().A:f£ᘤB:ᦻZ᪾C:᪗ûD:Line\]"ᫀ$Aüஹnºþᐳ2⚪(ᐳ10ᑖ)1⚪’ூ௃‘⚪Ḅ᝞(1)஺PrivateSubForm_Click()Dima%,b%,c%,d!Dimxl,x2Dimp,q,ra=InputBox("<=ᐭaḄ?”)b=InputBox(“<=ᐭbḄ?”)c=InputBox("<=ᐭcḄ?")d=b*b-4*a*cp=-b/(2*a)Ifd>=0Then'**********SPACE**********If[?]Thenr=Sqr(d)/(2*a)xl=p+rx2=p-rElsexl=px2=p'**********SPACE**********[?]Print஻xl=஻Sxl,஻x2=஻Sx2

52'**********SPACE**********[?]q=Sqr(-d)/(2*a)Printxl=Sp;+;q;i,x2=;p;-SqSiEndIfEndSubUᫀ1).d>0ᡈ0352Ḅᨬᜧ?n஻maxi=max(34,124,68)'**********SPACE**********maxi=[?]PrintmaxiEndSubPublicFunctionmax(ByVaia%,ByVaib%,ByVaic%)'**********SPACE**********If[?]Thenin-aElsem=bEndIf'**********SPACE**********If[?]Thenmax=mElsemax=cEndIfEndFunctionUᫀ1).max(maxi,73,352)2).a>bᡈbcᡈc

53'**********FOUND**********Ifa(j)>=a(i)Thenal=a(i)a(i)=a(j)'**********FOUND**********a(j)=a(i)EndIfNextjNextiFori=0To9Printa(i)NextiEndSubUᫀ1).Forjni+1To9ᡈForj=1+iTo92).Ifa(i)>=a(j)Then3).a(j)=al2⚪’ூᦋ┯௃'⚪t=100ᑁᜧ_50Ḅ20a᦮ᦪf=5aᦪ•஺'ᡈᑤ◀fᦋ᪀PrivateSubForm_Click()RandomizeTimerdimiasinteger,maasinteger'**********FOUND**********i=1'**********FOUND**********Dountili<20ma=Rnd()*100\1Ifma>50ThenPrintma;i=i+1'**********FOUND**********Ifi\5=0ThenPrintEndIfEndIfLoopEndSubUᫀ1).i=02).Dowhilei<20ᡈDowhile20>i3).Ifimod5=0Then¡ஹ¢ᐳ2⚪(ᐳ20ᑖ)1⚪’ூ¢௃'⚪t(£¤)¥¦§¨஺(©ª)`1+5+10+15+……+500Ḅ¬f®=ᑮ§¨°஺®±ᐭ²³SUMc஺'<ᙠᢣ¸Ḅ£¤ᑁ¹ᑏ»ṹ஺

54Uᫀ-DimiAsIntegerFori=1To500IfiMod5=0Thensum=sum+iEndIfNextPrintsum2⚪'ூ¢௃'⚪t¹ᑏ½ᦪfunᐸn᪷À᦮ÁÂÃm,Ä'᝞[ÅÆḄ?y=l/2+l/4+l/6+...+l/2m'Ç᝞Èm=9,ᑣª=1.41448412698413'<ᙠᢣ¸Ḅ½ᦪ]ᑁ¹ᑏ»ṹ஺DimyAsDoubleDimiAsIntegerFori=1Tomy=y+1/(2*i)Nextfun=yÊஹVB§¨¢ᐳ4⚪(ᐳ20ᑖ)1⚪(5.0ᑖ)⚪Ë19ூ§¨¢௃⚪t<ᢥ᯿⚪t⌕`¢ᢣ¸Ḅ§¨஺ÎÏ᝞(1)ᡠÑÒ☢஺1:ᙠ§¨ᑁÔ2aᢥÕ(Commandl,Command2),1aᦻᩈ᪾(Textl),1a᪗Ú(Labell),1a᪾Û(Framel),ᙠ᪾ÛcÔ4aÜ⌱᪾(Checkl,Check2,Check3,Check4)஺2§¨¢Þ¢Þ§¨ßà(Name)á“Forml9”஺¢Þ§¨᪗⚪(Caption)á“aâãᧇ”஺3᪗Ú¢Þ¢Þ1a᪗Ú(Labell)Ḅ᪗⚪(Caption)á“=ᐭåß”»4ᦻç᪾¢Þ〉é¢Þᦻç᪾Ḅᜧê¬ëÞ஺5᪾Û¢Þ¢Þ᪾Û(Framel)Ḅ᪗⚪(Caption)á“᰿í”஺¢Þ᪾ÛcḄ1aÜ⌱᪾(Checkl)Ḅ᪗⚪(Caption)ᓨî”஺¢Þ᪾ÛcḄ2aÜ⌱᪾(Check2)Ḅ᪗⚪(Caption)á“ᦻï”஺¢Þ᪾ÛcḄ3aÜ⌱᪾(Check3)Ḅ᪗⚪(Caption)á“ðñ”஺¢Þ᪾ÛcḄ4aÜ⌱᪾(Checkd)Ḅ᪗⚪(Caption)á“Ä”஺

556ᢥÕ¢Þ¢Þ1aᢥÕ(Commandl)Ḅ᪗⚪(Caption)á“ò¸”஺¢Þ2aᢥÕ(Command2)Ḅ᪗⚪(Caption)á“⌨”஺2⚪ூ§¨¢௃⚪t<ᢥ᯿⚪t⌕`¢ᢣ¸Ḅ§¨஺ÎÏ᝞(1)ᡠÑÒ☢஺1ᙠ§¨ᑁÔ1aᦻç᪾(Text஺f3a᪗Ú(Labell,Label2,Label3),3aᢥÕ(Commandl,Command2,Command3),1axᔠ᪾(Combol)஺2§¨¢Þ¢Þ§¨ßà(Name)á“Form9”஺¢Þ§¨᪗⚪(Caption)á“VB”஺3᪗Ú¢Þ¢Þ1a᪗Ú(Labell)Ḅ᪗⚪(Caption)á“âᕒö÷⊤”஺¢Þ2a᪗Ú(Label2)Ḅ᪗⚪(Caption)á“åß”஺¢Þ3a᪗Ú(Label3)Ḅ᪗⚪(Caption)á“ឋú”஺᪗ÚcḄû¨ஹûËü⌱ý஺4xᔠ᪾¢Þ〉é¢Þxᔠ᪾Ḅᜧê¬ëÞ஺5ᦻç᪾¢Þ¢Þᦻç᪾(Textl)Ḅᑁþ(Text)á஺6ᢥÕ¢Þ¢Þ1aᢥÕ(Commandl)Ḅ᪗⚪(Caption)á“Ô”஺¢Þ2aᢥÕ(Command2)Ḅ᪗⚪(Caption)á“ÿ”஺3ᢥ(Command3)Ḅ᪗⚪(Caption)“⌨”஺3⚪ூ௃⚪!"#ᢥ᯿⚪!⌕&ᢣ(Ḅ஺)*᝞(,1)ᡠ/0☢஺1"ᙠᑁ45I789:ᩩ(HScrolll),1,ᱏ᪾(Picturel),1ᦻI᪾(Textl),4᪗M(Labell,Label2,Label3,Label4)஺2":RS(Name)“Forml7”஺᪗⚪(Caption)“W᦮YZ”஺3"᪗M"1᪗M(Labell)Ḅ᪗⚪(Caption)“W᦮YZ[100”஺2᪗M(Label2)Ḅ᪗⚪(Caption)“᠒”஺3᪗M(Label3)Ḅ᪗⚪(Caption)“^”஺4᪗M(Label4)Ḅ᪗⚪(Caption)“_`YZ”஺4"ᦻI᪾"〉_ᦻI᪾Ḅᜧcde஺5",ᱏ᪾"〉_,ᱏ᪾Ḅᜧcde஺6"789:ᩩ"〉_789:ᩩḄᜧcde஺

564⚪ூ௃⚪!"#ᢥ᯿⚪!⌕&ᢣ(Ḅ஺)*᝞(,1)ᡠ/0☢஺1:45hiᦻI᪾(Textl)஺᪾j(Frame1,᪾jFrame2)஺᪾j(Frame1)ᑁ452ᓫ⌱᪾(Optionl,0ption2)஺᪾j(Frame2)ᑁ453ᓫ⌱᪾(0ption3,0ption4,0ption5)஺2"RS(Name)"Forml”஺᪗⚪(Caption)“o᪵q”஺3"ᦻI᪾ᦻI᪾(Text1)ᦻI(Text)rឋt“VB”஺orឋ“w”஺ᦻoxyzqrឋ“{|xy”஺ᦻo}⁐&H00FF0000&஺4"᪾j᪾j(Framel)᪗⚪(Caption)rឋ“o”஺᪾j(Frame2)᪗⚪(Caption)rឋ"}⁐"஺5"ᓫ⌱᪾ᓫ⌱᪾(Optionl)᪗⚪(Caption)rឋ"w"஺ᓫ⌱᪾(0ption2)᪗⚪(Caption)rឋ“”஺ᓫ⌱᪾(0ption3)᪗⚪(Caption)rឋ""஺ᓫ⌱᪾(0ption4)᪗⚪(Caption)rឋ""஺ᓫ⌱᪾(0ption5)᪗⚪(Caption)rឋ""஺ᔁ"8099ஹᑨᐳ20⚪(ᐳ20ᑖ)1⚪ᙠVisualBasic|Dima,b,casintegerdDimaasinteger,basinteger,casinteger.ᫀ"N2⚪ᵨx᪾ᵨSHOWz¡Wᵨ.ᫀ"N3⚪VB¢ᢝ¤¥ᓫ¦ᡠ§஻¤¥ᓫ஻©ᢣᓫª«᪗¬ᡭ®Ḅ¥ᓫ.ᫀ"N4⚪ᙠVB|¯°ᵨḄ±²d³ᦪᑏ¶·¸¹ºz»ᵨᡝ½¾Wᵨ.ᫀ"Y5⚪,À᪾|ḄStretchrឋtrue¦ᐸºᵨ©,ÄÅ:W᦮ᜧcÆ〉Ç,Àhi.Y6⚪ᙠ,ᱏ᪾|ÈḄhiÉÊÆᙠË,ᱏ᪾ᑁÌ:¦ÍÊÆÌË,ᱏ᪾᜜.ᫀ"N7⚪ᙠVB|¦ÏÐ"ABA"Like"[a?a]”ḄÖשFalse.ᫀ"N8⚪ᙠVB5|¦ᦻi¥ᓫḄ“ᑤ◀Ú²”Ḅºᵨ©¯_`VBÚ²ᙠÛÜ|ᑤ◀ᣵ.ᫀ"N9⚪ᙠVB6.0|¦᝞×⌕Þ5Úᐹà|Ḅhi,Ç᡻¡VB"ᦻi''¥ᓫ|Ḅãä.ᫀ"N10⚪å◀listlᑡ⊤᪾xÀḄᑁèḄéê©listl.cis.ᫀ"N11⚪VBëÚ²ᨵíî¦ÊÆᢣ(ïðñ.ᫀ"Y12⚪ᙠVBḄÚᐹò|ᒹôõᡠᨵḄVBhi,ᡃ÷øù5úᐸûḄhi.ᫀ"N13⚪Listl.clear©å◀ListlḄᐰýᑡ⊤⚗,ᡠÆClear©xÀḄz.ᫀ"Y14⚪hi©xÀ,ÿ
Ḅ.ᫀN15⚪ᨵḄឋᙠឋᙠ!"#ṹ.ᫀY

5716⚪Ḅ'ឋᵨenabledឋ/ᵨឋᵨvisibleឋ/.ᫀN17⚪ᵨVB6.0789:ᐹᨵ<ᓫḄ>ᵨ!"9:Ḅ>ᵨ8?ᢝABC<ᓫ.N18⚪EFGᙠᜐᳮᦪKLMNOᐸQᐭᑁTᙠUVWXYZᑁTᓫᐗ\ᩭ^_ᐸḄᦪK,a\ḄᑁTᓫᐗbcdᡈfd.ᫀY19⚪h◀combolḄᑁmcombol.clear.ᫀY20⚪VisualBasic!"ḄqrstMain஺Z!wxystz{
wx஺ᫀY|ஹᓫ⚗⌱ᐳ20⚪(ᐳE20ᑖ)1⚪sᐵᯖḄ┯Ḅ().A:᝞ᦻ᪾ḄTabStopឋFalse,ᑣ8ᦈt¡ᐭḄᦪKB:¢ᦻ᪾ᜫ¤ᯖL,¥:LostFocus§C:¢ᦻ᪾ḄEnabledឋFalseLᐸTabª"«¬ᵨD:sᵨTabindexឋᦋfTabª"ᫀA2⚪⌕±²{ᦻ᪾ᐹᨵ³´µᚖ·¸xᩩ,ᑣ>ᐜOᐸMultiLineឋ/True,ᯠ¼½OScrollBarឋ/().A:0B:1C:2D:3ᫀD3⚪FᑡᦪKÀÁᓰᵨᑁTᨬᜧḄ().A:BooleanB:ByteC:IntegerD:SingleᫀD4⚪OPTIONEXPLICITWÌsÍᙠ().ᫀDA:
ÎᙽḄÐÑÒB:᪗ÔÎᙽḄÐÑÒC:ÀÎᙽḄÐÑÒD:ÕÖ§Z!5⚪×ᔠ᪾ḄÀÁᵫStyleឋÚ,Ûᓫ×ᔠ᪾ḄStyleឋÜ>0.A:0B:1C:2D:3ᫀB6⚪Ýᓄß!Ḅᨬᜧà().A:ᐹᨵ᪗ÔáᐹâB:²{á!ᦻᵫãä{
ᦻ×ᡂC:◤⌕ßᑏᜧd#ṹᩭèéêD:ᡠ'ᓽᡠíîC7⚪s()!"ÒsïðXஹYfdÜḄfᣚ.A:Y=X:X=YB:Z=X:Y=Z:X=YC:Z=X:X=Y:Y=ZD:Z=X:W=Y:Y=Z:X=YᫀC8⚪cᵨḄStyleឋÜ().A:õöcdB:÷øcdC:ᦪÜcdD:ùúcdᫀC9⚪ᑁḄûüC()ឋÚ.A:AlignmentB:WordwrapC:AtuoSizeD:StyleᫀA10⚪ᦋfᙠ
Ḅÿ
ᦋḄ()ឋ.A:TopB:LeftC:WidthD:Right"ᫀ$B%11⚪()ᙠᢥ,-./0᡻234ᢥ5Ḅ6789◤⌕<=>ᢥ5Ḅ4ឋ?(True,C4ឋD().A:ValueB:CancleC:EnableD:Default"ᫀ$D%12⚪MᑡOPQRᵨTᑡ⊤᪾W᝱YZᦪ\ḄD0.A:addB:additemCraddlistD:removeitem"ᫀ$B%13⚪ᙠVBQ7()ឋᩭ?cde⁐.A:FontColorB:ForeColorC:BackColorD:ShowColor"ᫀ$B%14⚪ᓫmnWᩩpqḄrs4nWtᜮ9vwxnWᩩḄ()6.A:ScrollB:KeyDownC:ChangeD:Dragover"ᫀ$C%15⚪|}~ᦪ\◤()c⁚.A:2B:4C:6D:8"ᫀ$D%16⚪mdḄrᙢO9RᡭḄD().

58A:ṹB:ឋC:8ᳮD:34⌱⚗"ᫀ$A%17⚪⌱Q⌱᪾0,valueឋḄ,RD().A:TrueB:falseC:0D:1"ᫀ$D%18⚪,ᑡQᨵᯖឋḄD0.A:=>ᢥ5B:C:ᦻ᪾D:ᓫ⌱᪾"ᫀ$B%19⚪⊤¡Mid("SHANGHAI",6,3)ḄD().A:SHANGHB:SHAC:ANGHD:HAI"ᫀ$D%20⚪᝞©ᙠªᱏ᪾¬ᵨªOPᑴs4¯°ᙊ9ᑣªᱏ᪾Ḅ()ឋ³´)ᙊḄe⁐.A:BackColorB:ForeColorC:FilIColorD:DrawStyle"ᫀ$Cµஹ8·¸¹ᐳ2⚪(ᐳ»10ᑖ)%1⚪’ூ8·¸¹௃’,☢78max()ᵨTÂ34ᦪQᨬᜧ9ᑭᵨC478Â54ᦪQᨬᜧ஺PrivateSubFormClick()Print஻54ᦪ34ஹ124>68ஹ73ஹ352ḄᨬᜧD$”maxi=max(34,124,68)'**********SPACE**********maxi=[?]PrintmaxiEndSubPublicFunctionmax(ByVaia%,ByVaib%,ByVaic%)'**********SPACE**********If[?]Thenm=aElsem=bEndIf'**********SPACE**********If[?]Thenmax=mElsemax=cEndIfEndFunction"ᫀ$1).max(maxi,73,352)2).a>bᡈbcᡈ%2⚪’ூ8·¸¹௃'⚪Ô$M8·ḄÕÖ᝞(ª1)஺PrivateSubForm_Click()Dima%,b%,c%,d!Dimxl,x2Dimp,q,ra=InputBox("ÚÛᐭaḄ")b=InputBox("ÚÛᐭbḄ")c=InputBox(஻ÚÛᐭcḄ”)d=b*b-4*a*c

59p=-b/(2*a)Ifd>=0Then'**********SPACE**********If[?]Thenr=Sqr(d)/(2*a)xl=p+rx2=p-rElsexl=px2àp'**********SPACE**********[?]Print஻xl=஻áxl,஻x2=஻áx2**********SPACE**********[?]q=Sqr(-d)/(2*a)Printxl=;p;+áqái,x2=;p;-;q;1EnclIfEndSub"ᫀ$1ã.d>0ᡈ0kThenn=i-jml=Int(Sqr(n))Form2=2TomlIfnModm2=0ThenExitForNextm2

60'**********FOUND**********Ifm2<>mlThenPrinti;஻=஻Dj;஻+஻Dn;,EndIfNextjPrintNextiEndSubFᫀH1).k=Int(Sqr(j))2).IfjModm=0ThenExitFor3).Ifm2>mlThenPrinti;"="Dj;"+஻Dn;K2⚪’ூOPᦋ┯௃'⚪UHVOPḄWXYZ[\]Ḅ10^_`a᦮ᦪbcde⌴g᣸P஺'jkHlmnoᡈᑤ◀OPebslmtuᦋOPv᪀PrivateSubCreateRNDODimTempAsIntegerDimIAsIntegerDimNAsIntegerDimX(10)AsIntegerDimJAsIntegerN=10Print஻ᦪ{H஻ForI=0ToN'**********FOUND**********X(I)=Int(Rnd()*90)PrintX(I);NextIPrintPrint஻᣸PH஻ForI=0ToN-1ForJ=I+1ToN'**********FOUND**********IfX(I)>X(J)Then'**********FOUND**********Temp=X(I)X(J)=X(I)X(I)=TempEndIfNextJPrintX(I);NextIPrintEnclSubPrivateSubCommandl_Click()CreateRND

61EndSubFᫀH1).X(l)=Int(10+Rnd()*90)ᡈX(I)=lnt(10+Rnd()*90)2).IfX(I)X(I)ThenᡈIfX(J)>=X(I)Then3).temp=X(J)ஹOPᐳ2⚪(ᐳ20ᑖ)K1⚪’ூOP௃'⚪UH()ᓫ஺()50tᑁᡠᨵᏔᦪḄbcᙠ%ᩭ஺vᐭS஺'jkH$ᙠᢣḄᑁᑏ¢ṹ஺F¤H--------------------DimiAsIntegerFori=2To50If(iMod2)=0Thens=s+iEndIfNextPrint(CStr(s))K2⚪'ூOP௃'⚪UH()ᓫ஺()¥¦sum=-l!+1/2!-1/3!...+1/10!,$sumv1%ᑮ஺ªᵨdowhile...loop®¯ᡂOP’jkH$ᙠᢣḄᑁᑏ¢ṹ஺FᫀHDimiAsIntegeri=1:p=lDoWhilei<=10p=p*isum=sum+1/p*(-1)-ii=i+1LoopPrintsum´ஹVBᐳ4⚪(ᐳ20ᑖ)K1⚪ூ௃⚪UH$ᢥ᯿⚪U⌕ᢣḄ஺¸¹᝞(»1)ᡠ¼½☢஺1H¿oÀᦻV᪾(Textl)o᪾Ã(Frame1)஺ᢥÄ(Command1)஺

62ᑡ⊤᪾(List1)஺᪗È(Label1).ᙠ᪾Ã(Framel)ᑁ¿oᓫ⌱ᢥÄ(Optionl,0ption2),2HÊËÌ(Name)ÍឋÏ“Form2”஺᪗⚪(Caption)ÍឋÏ“ÑËᑡ⊤”஺3H᪗ÈÊ᪗È(Label1)᪗⚪(Caption)ÍឋÏ“ᙠÒ☢ᦻV᪾%ᐭÑË”஺4HᦻV᪾Ê〉ÔÕ᦮ᦻV᪾(Textl)Ḅ`ÊᜧÖ஺5H᪾ÃÊ᪾Ã(Framel)᪗⚪(Caption)ÍឋÏ“⌱×ឋØ”஺6Hᓫ⌱᪾Êᓫ⌱᪾(Optionl)Ḅ᪗⚪(Caption)ÍឋÏ“ᵱ”஺ᓫ⌱᪾(0ption2)Ḅ᪗⚪(Caption)ÍឋÏ"᝕"஺7Hᑡ⊤᪾Êᑡ⊤᪾(Listl)¿oÜᩩÞßÏ“àYÜ^ᑡ⊤᪾”஺8HᢥÄÊᢥÄ(Commandl)Ḅ᪗⚪(Caption)ÍឋÏ"¿o"஺K2⚪ூ௃⚪UH$ᢥ᯿⚪U⌕ᢣḄ஺¸¹᝞(»1)ᡠ¼½☢஺1H¿oÀᢥÄ(Commandl,Command?,Commands)»᪗È(Label1,Label2),2HÊËÌ(Name)ÍឋÏ“Form3”஺᪗⚪(Caption)ÍឋÏ“VB”஺3HᢥÄÊᢥÄ(Commandl)Ḅ᪗⚪(Caption)Ï"äå"஺ᢥÄ(Command2)Ḅ᪗⚪(Caption)Ï‘'çè"஺ᢥÄ(Command3)Ḅ᪗⚪(Caption)Ï"vé"஺4H᪗ÈÊ᪗È(Label1)Ḅ᪗⚪(Caption)Ï“Ò☢Ḅ᪗ÈYᵨᩭê¼Ôëìí”஺᪗È(Label2)Ḅ᪗⚪(Caption)Ï“09:58:33”஺K3⚪ூ௃⚪UH$ᢥ᯿⚪U⌕ᢣḄ஺¸¹᝞(»1)ᡠ¼½☢஺1H¿oÀᦻV᪾(Textl)஺᪾Ã(Framel,᪾ÃFrame2)஺᪾Ã(Framel)ᑁ¿o2^ᓫ⌱᪾(Optionl,0ption2)«᪾Ã(Frame2)ᑁ¿o3^ᓫ⌱᪾(0ption3,0ption4,0ption5)»2HÊ

63ËÌ(Name)Ï“Forml”஺᪗⚪(Caption)Ï“ï᪵ñ”஺3HᦻV᪾ÊᦻV᪾(Textl)ᦻV(Text)Íឋ1Ï“VB”஺ïÍឋÏ“ò”஺ᦻïóôõñÍឋÏ“öóô”஺ᦻï÷⁐Ï&H00FF0000&஺4H᪾ÃÊ᪾Ã(Framel)᪗⚪(Caption)ÍឋÏ“ï”஺᪾Ã(Frame2)᪗⚪(Caption)ÍឋÏ“÷⁐”஺5Hᓫ⌱᪾Êᓫ⌱᪾(Option஺᪗⚪(Caption)ÍឋÏ"ò"஺ᓫ⌱᪾(Option2)᪗⚪(Caption)ÍឋÏ"ûü"஺ᓫ⌱᪾(0ption3)᪗⚪(Caption)ÍឋÏ"ý"஺ᓫ⌱᪾(OptionQ᪗⚪(Caption)ÍឋÏ“ÿ”஺ᓫ⌱᪾(0ption5)᪗⚪(Caption)ឋ""஺4⚪ூ௃⚪!ᢥ᯿⚪⌕%ᢣ'Ḅ஺*+᝞(-1)ᡠ01☢஺13456ᙠᑁ3419ᦻ;᪾3extl),19᪗@(Labell),29ᢥD(Conunandl,Command2),39Iᓫ(JKᑖMmenu_File,menu_Edit,menuHelp)()2RRJK(Name)“Form8"஺R᪗⚪(Caption)“Form8”஺3᪗@RR᪗@(Labell)Ḅ᪗⚪(Caption)“WᐭYṹ"[AutoSizeឋ_஺4ᦻ;᪾RRᦻ;᪾“Yṹ`a”“*”[ᙠᦻ;᪾(Textl)dWᐭᦻ;“Textl”஺5IᓫRRIᓫ(menu_File)Ḅ᪗⚪(Caption)“ᦻ6(&F)”[fgIᓫ⚗“iᦔ”஺RIᓫ(menu_Edit)Ḅ᪗⚪(Caption)“kl(&E)”஺fgIᓫ⚗“iᦔ”஺RIᓫ(menu_Help)Ḅ᪗⚪(Caption)“mn(&H)”஺fgIᓫ⚗“iᦔ”஺6:ᢥDRRᢥD(Commandl)Ḅ᪗⚪(Caption)“q'”஺RᢥD(Command2)Ḅ᪗⚪(Caption)“rst”[ᢥDRiᦔ஺⌱u⚪1.wᙽyz{dᨵOptionBase஺[ᑣᙠwᙽdDima(6,3to5)yzḄᦪᨵ9ᐗ3.ᙠ--ᩩDimdyz9[᝞DimstrVas,intValAsInteger,ᑣstrVarsngVardḄᦪᑖMVariant,Variantinteger5.ᑏ◀᪗@LablelḄ0ḄLable.caption=""7.ᙠ¢£¤ᵨd[¦ᦪ§⌴©ᑖª«¬[ᐸdᢥᙢᙬ§⌴¬±²Ḅ9.VBdḄᢥᐸ´ᵨᑖᐰ¶[wᙽ[¶·H.᝞¸:I=ll:I=3:I=int(-8,6)+I\I+13/3Mod5ᑣI¾13.¿ᵨMove¬ÁÂ-Ã᪾Picture1ḄÆÇÈÉÊᑮÌ⚔·lOOTwipÌÆÏ᪾200Twap,Щ-Ã᪾ÑÒ50%,ᐹÃpicturel.move100,10015.String(3,"abc")ḄÕ¸aaa17.ᑏᵨÖ×ØÙs9200ᑮ300ÚÛ᦮ᦪḄVB⊤Þ200+Int(Rnd*100)19.•9à£ᒹâ«Ḅᦻ6[ᐸd[᡽ävbpḄᦻ6⊤0à£ᦻ621.VisualBasic6.0ᵨåæçwindowsè᛻.êḄëᵨ£ì

6423.xs9ªíᦪ[gxᔜíᦪᓝíᦪðᣚòᡠóªíᦪVBḄ⊤Þ(xmod10)*10+int(x/10)25.᝞¸:I=12;I=3:I=int(-8.6)+I\l+13/3mod5,ᑣI¾ô27.VBd[Ḅyzᑖª«¬◚yzyz29.ᵫFork=35to0step3:nextk÷è5ᑴḄ÷èùᦪ031.ᙠwᙽyz{dᨵOptionBasel[ᑣᙠwᙽDima(3to5,6)yzḄᦪᨵú9ᐗ33.᝞¸⌕ᢣzmystringû'159`üḄᐰ¶[ëᙠ᪗ýwᙽdᵨrþz'ÿDiiblicmஹstringasstring*1535.ᦻᢥ᯿ᐸᡂ᪀ᑖᦻᦻ37.ᑏ◀ᱏ᪾Ḅᦻ!ᡈ#$%Ḅ&'PictureLcls39.ᜧ)XḄᨬ+᦮ᦪḄVB⊤/#Int(x)+141.0ᩩl<=x<12ᑏᡂVBᐵ3⊤4x>=l43.5x6y78◀zḄ9ᦪḄVB⊤4x*vModz45.ᵫDima(10)Assingle;<Ḅᦪᓰᵨᜐ!⁚ḄᑁCD47.VB6.0EF⊤4ᒹHIJ⊤4ஹᐵ3⊤4KL⊤449.⌕NO᪗QᶇᙠᢥTUV/ᱯXḄO᪗#YZ[\]Ḅ^ឋ`aMousePointer51.⊤41and0Ḅ`false53.⌕NbcᢥT\deᢥTZ[0fᢥTḄdefault^ឋḄ`\true55.ghᓫjklmpln⊤3.14159&'constPI=3.14159constpiassingle=3.1415957.\x=2,y=4,a=4,b=6,⊤4(a>xXorb

65103.⊤481\7MOD2A2Ḅ`a3105.VbÖ×Øᑡ⊤᪾ZÐᑡ⊤᪾Ḅ⚗¨Ù¢ZÚÛØᑡ⊤᪾Ḅ»kaZ3ÜÝÞßḄᙠᑡ⊤᪾àUbcᚖâãßᩩ107.ãßᩩᨵåæãßᩩᚖâãßᩩI09.Abᨵçᨵbc1,[èvisualbasicKL⊤4b=l111.gh;»10c!ºmSstrḄ&'DimSstsasString*1()113.ghᓫjklmg(éêëk)n⊤9.8ᑏᡂconstg=9.8115.ᙠÛ¡ìᵨZíᦪḄî⌴ᑖyᙢᙬî⌴`î⌴ñv஺2.®ᯖô;õ)ᢥTcommand17UḄ&'commandl.setfocus4.öNᙠÞ÷\vb¡ÂÃÛ¡ZsøùF¡ḄÂÃZtúìᵨ3Üûᨵô[ᵨ¡c:\windows\calc.exe,ᙠ¡nṹÆýþshell("c:\windows\calc.exe")6.vb⊤49ÿ2mod45\2*3Ḅ
4_8.ᙠᑁᐹᑤ◀lO.integerḄᓰᵨZ⁚12.!"⁐Ḅ$ឋ&'(backcolor14.)ᑭᵨVB+,ᵨ-./012⍗ᑮ5┯78᡻:┯7┯,;<┯7஺16.⊤?@93\7MOD2A3Ḅ
(518.xB>0ḄCᦪᑣ>*ḄᨬI᜻ᦪḄ⊤?@|IF(int+cx)modᦪ0,int(x)+2,int(pi)+l|20.⊤?@“L“Like”[A]”Ḅ
Bfalse22.singlex,y,z
B123.45,N⌕PᐸRᣚᡂUV,WᵨḄRᣚXᦪ(Y24.Z[(\ᒹ^_`_bᒹ^Zᦪ`c:deḄfghPᐸijkᩭḄ•n;=18andage<=20andsize>=1.65)or(notsexandage>=l…)38.rtlForK=35TO0step3:nextK¨©ᑴḄ¨©«ᦪB040.ᡠᨵ®ᐹᨵḄᐳ°$ឋ(name$ឋ42.±²ᨵ“³ᣩµ”¶·¸ᙠ“¹ᓫ»<ᘤ”½ᱯ¿À(ᙠÁÂÃ44.ᙠVBN⌕W0nᦻÄ᪾(text)ḄᑁÅᙠÆÇᦻÄ᪾ḄÈÉ/ÊËᣚ:Ìx,ÍPÎnᦻÄ᪾Ḅmultiline$ឋḄ
Btrue46.ÏÐᩩḄÐ᪾P2ÑÒscrollchangeÓ48.•ᐗ}«f-axA2+bx+c=0ᨵC᪷ḄᩩBaxo,hÖbA2-4ac>=o,ᑡ¦;<⊤?@axoandbA2-4ac>=()50.ᙠVB⌕×ØÙÚn᝱ᦪḄᐗÛnᦪ,WᵨredimZᐸc:×ØÙÚ஺52.01ÜÝÞᨵ}n$ឋ⚗Ḅàḕ
(â°ḄÎ}n$ឋ⚗(namecaption54.᝞ä⌕ᙠᓫå/᡻:æçṹᑣ,PÎæçṹᑏᙠclickÓÇ-56.0n-pqᒹrstḄᦻᐸ᡽w&B.basḄᦻ⊤x᪗ëìᙽᦻ58.Ðᩩî⌕ᢝ}nÓðñ(scrollchangeÓ6O.VisuaIBasicBᑮòo¡Ḅó0-nõᱏ᪾picture÷øḄùúZ[&picturel

6662.Ù/ᘤḄInterval$ឋ
(ᢣ/◞ᓫýBþÿ
◞◣Ḅᘤtimer64.VB6.0Ḅᒹ஺66.!FORK=1TOSTEP-1"ᑴḄᦪ%஺68.SST="ABC12DE”ᑣVAL(SST)=070.()*+,-ᨵ◚0,-()1ᑴ,-234572.A=2,b=3,c=4,d=5,6UNOTa<=cOR4*c=bA2ANDboa+cḄ7%folse74.8X%ᜧ:0Ḅ;ᦪ஺ᑣᜧ:XḄᨬ=ᏔᦪḄVISUALBASIC⊤@ABiif(in+(x)mod2=0,int(x)+2;int(x)+l)76.8CDᘤEFḄ◞ᵨHIJKឋ78.MNOPQᡠᨵSTUVW)Ḅ*+ᙳY%VARRANT,-᝞[⌕1ᑴ*+ḄW)]ᙠ_ᙽḄW)abᵨoptionexplicit!஺80.EFᐹᨵKឋ45஺82.⌕ᙠdeASDGEWLfgDGE,ᑣᵨhᦪmid$(asdgewl$,2,3)mid(asdgewl,2,3)84.VISUALBASICfḄᦻj᪾lᐕnopqᐭ]8CmultilineKឋ%FALSE86.⊤@A32/7MOD3A2Ḅ7B488.ᡭt“vwxy”Ḅ45{BᢥQCtrᡭR}ᔠ90.ᙠVBf⌕ᦋ*xḄ᪗⚪]ᙠKឋxyfᦋ*xḄcaptionKឋḄ792.VBḄᒹ,ᐵᱯ஺94.*+01H@⊤Vᦪ*+,-Ḅ*+96.ᦻj᪾ᑁ“ABCDE”ᦻj᪾SELSTART=4,SELLENGTH=2,ᑣSELTEXT%DE98.wpbxfᦻj᪾ᕈᑣ8Dᦻj᪾ḄtextKឋ8Cᡂ஺100.bᵨscale45xFormlḄᵨᡝᙶ᪗ᐸfx¡¢ᙶ᪗%(200,250),¤Q¢ᙶ᪗%(300,—100),ᐹ¥A%forml.scale(—20(),—25())—(30(),—100)102.᦮ᦪ0§¨-*+ᑣ-*+Ḅ7%false104.AB©%ª᦮ᦪᡈ©%¬᦮ᦪVB⊤@A%A=Int(A)andB=Int(B)and106.®ᱏ᪾PielḄf°±C%ᙊ°700%³´ᙠPiel¡µᙊḄ45BPicl.drcle(Pic1.wedth/2,Pic1.height72),70()108.
x=2,!ifx=2thenPrintx=2Ḅ¶[7Btrue110.⊤@A(-3)and8Ḅ7%true1I2.VB6.0Bp:Windows9x/WT·¸¹᛻QḄ»¼½Yᓄwtvᐹᵨ¿Àpw8Dᨵ2ÁjḄᱯÂᓽ½YᓄÄÅÆw114.bᵨcircle45ᙠxForml¡(15,15)%ᙊ°10%³´µᙊᐹ¥A%Forml.circlef15,15)10