VB期末考试

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

1.ᦪInStr("VBᦟ""”)Ḅ஺32.ᙠᑖ!"IntAஹBlஹst'D)*᦮,ஹ-.,ஹ/01,'23,4ᑡ678ᙠ᡻:;<=┯Ḅ?—஺Bl=#True#3.᝞G⌕ᙠ78Ia=Array(l,2,3,4,5)ḄO☢QR!"a,ᑣTUḄQR?஺DimaAsVariant4.XYZᨵ\]CommandlḄabᢥd\]ᑖListlஹList2Ḅᑡ⊤᪾ᐸListlḄMultiSelectkឋm1(Simple),oᨵ᝞4pqr:PrivateSubCommandl_Click()Fori=0ToListl.ListCount-1IfListl.Selected(i)=TrueThenList2.AdditemTextEndIfNextEndSubZpqrḄ?Listl⌱Ḅᑡ⊤⚗ᑮList2஺:;ᑮ⚜3Ḅᦋ4ᑡᦋTUḄ?oLsit2.AdditemTextᦋList2.AddltemListl.List(i)5.ᨵ᝞4ᦪFunctiondelspace(chAsString)AsIntegerDimn%,st$,c$஻//stn=0Fork=1ToLen(ch)c=Mid(ch,k,1)Ifc<>஻஻Thenst=st&cElsen=n+1EndIfNextkch=stdelspace=nEndFunctionᦪḄ?:ᑤ◀/01chḄ¢£0¤¥ᑤ◀/0Ḅ¦ᦪ6.4ᑡ¨Ḅ᡻:©G18DimA(5,5)AsIntegerFori=1To3Forj=1To4A(i,j)=i*jNextjNextiPrintA(2,3)+A(3,4)+A(4,5)7.᡻:4ᑡ¨®=©Go=┯Dima()AsInteger

1DimiAsIntegerReDima(10)Fori=1To10a(i)=2*i-1NextiPrinta(4);EraseaPrinta(4)8.ᨵ᝞4OptionBase1PrivateSubCommand1Click()Dima(10)AsIntegerDimnAsIntegern=InputBox(஻®ᐭᦪ³஻)Ifn<10ThenCallGetArray(a,n)EndIfEndSubPrivateSubGetArray(b()AsInteger,nAsInteger)Dimc(10)AsIntegerJ=0Fori=1Tonb(i)=CInt(Rnd()*100)Ifb(i)/2=b(i)\2ThenJ=J+1c(j)=b(i)EndIfNextiPrintjEndSub·4¸¹┯ºḄ?oGetArrayrḄ»ᦪn?ᢥ¼〈Ḅ9.¿ᙠᵨḄ᪗ÂÃᙽ.XYÃᙽ'rSublḄ¸RÅᑖᑖᵨ஻PublicGAsInteger"ஹ"PrivateGAsInteger஻'஻DimGAsInteger஻78¸RÆǦÈ\!"G஺᝞GᙠrSublÉᵨ678஻G=3596஻ᑣ78?Êᙠ__________¸RÅᑖ)*Ḅ!"G6஺rSubl10.᡻:78DimX,YAsIntegerÍx)*!YÎ,!"Y)*᦮,!"11.XYZᨵ\]List1Ḅᑡ⊤᪾஺·ZÏᑡ⊤᪾ÐO⌱)Ḅᑡ⊤⚗Ñᣚ/01“Basic”Ḅ78?:List1.List(Listl.ListIndex)="Basic”12.VBÇÔᦻqÖ×ḄÎ,.ØஹÙÚஹÛᑴ13.ᙠ᪗ÂÃᙽa)*ᐰÞ᦮,!"Ḅ78?:PrivateaAsInteger14.ᨵ¨᝞4IFori=1To3Forj=5ToiStep-1Printi*j

2NextjNextiᐸ"Printi*j”78᡻:Ḅßᦪ஺1215.4☢¨Ḅ:©G«á=DimsAsInteger,iAsIntegeri=1:s=1Doi=i+sLoopUntils>10Printi,s16.ᙠᦻã᪾Textl®ᐭᦪ/12,Text2®ᐭᦪ/34,᡻:·478äᨵIText3.Text=val(Textl.Text)+val(Text2.Text)_åÉᦻã᪾Text3æç4617.Ꮇ)ᙠéᱏ᪾PicturelëᐭÆì¦éᱏᙠ:;Æí◀éᱏ(îï,í◀éᱏð?ᑤ◀éᱏ᪾)ñᵨḄTUò¹?o᡻:78Picturel.PictureLoadPicture("")19.4☢ᐵôVBᦪ³ᦻqḄõ┯ºḄ?°VBᵨ÷ì¦ø⊤£Ḅᦪ³ùᐭᦻq20.⊤úRight("Beijing”,4)Ḅ?஺jing21.4ᑡ¸¹TUḄ?Ãᙽû!"åᙠÃᙽüᵨQR¨ᵨPrivate'Dim)*22.Ꮇ)ᙠXYZýþÆüᵨÿ᪾ᐸCommonDialogl,ᵨ☢Ḅ᪾:CommonDialogl.Action=2&'()Ḅ*oCommonDialogl.showsave23.1ᨵ᝞45678PrivateSubCommandl_Click()Dimaa=Array(3,5,6,3,2,6,5,3,5,4,3,9,4,5,6,3,5)x=0n=UBound(A)Fori=0Tonm=0Forj=0TonIfa(i)=a(j)Thenm=m+1EndIfNextjIfm>xThenx=m:b=a(i)NextiPrintbEndSubVW7XYZḄ*324.᝞[x*\]ᦪxḄ_3`aᦪbcdᐭḄ⊤gh0.01*Int(100*(x+0.005))25.᡻W8A=Inputbox("Today","Tomorrow","Yesterday")nopYᐭ᪾ᙠ᪾ḄYᐭrsopḄtu*oYesterday26.ᐵwxᱏ᪾ஹx{᪾Ḅ|}s\~Ḅ*8xᱏ᪾6Printopᦻ

327.ᨵ☢Ḅ7X8x=InputB஺x("஻"Yᐭ""Yᐭ")Printx᝞[᡻W☢7XᨵYᐭᑁᢥᑣYZᑁ*__________஺Yᐭ28.FormlḄ¡ឋ*frm,£ḄLoad4567*஺Form_Load29.☢ᐵw᪗¦§ᙽḄ|}s┯ªḄ*஺᪗¦§ᙽsᒹ¬SubMain67®¯67°±²1³´µ6730.ᙠ☢Ḅ7Xs¶·n᡻W____¸஺6Forv=20To10Step-2printvNextv31.ᙠ☢Ḅ7Xs¶·n᡻W¸஺0Forv=10To20Step-2printvNextv32.ᨵCD1Ḅᵨ᪾Command1Ḅº»ᢥ¼½¾Ḅ4567᝞8PrivateSubCommandlClickOCD1.Filter="AllFile|*.*|TextFileI*.txt|Word|*.Docz/CD1.Filterlndex=2CD1.FileName="E:\Test.ppt”CD1.InitDir="E:\"CD1.ShowOpenEndSubᐵw}7X|}\~Ḅ*oᢣÇḄÈÉÊË"E:\"33.ᐵwµ᝱ᦪÍḄÎs°\~Ḅ*஺ÏᵨReDimᦋÒµ᝱ᦪÍḄÓÔ34.ᙠVBsÖᦪ67&×7X67ḄrØÙ*஺Öᦪ67ᨵÚÛ,Ü×7X67ᨵ35.Ý⌕Ïᦻ᪾±ßYᐭàWᦻ¾'1³Ḅ¡ឋ*஺MultiLine36.ᙠᵨáᑴஹãäḄº»ᢥ¼ᦪÍᦪÍC1,ᐳᨵ3ᦪÍᐗç஺1FormlḄ᪗⚪"Myforml",ᡭêëṹíîᘤᑏ᝞ëṹ8PrivateSubCIClick(IndexAsInteger)Forml.Caption="myform2”EndSubVWᓫòᢥ¼ᦪÍsḄ_óᢥ¼ᑣ᪗⚪myform237.Sub67&FunctionÖᦪᨬ᪷ḄrØ*—஺÷ὅùÚÛ®úὅᨵ38.Ýᙠ¾ᵨ7Xsᵨ"PrivateSubSubl(XAsInteger,YAsSingle)”Çü×7XSubl,ýᵨ×7XSublḄCalls*┯ªḄ஺CallSubl(5)39.þÿᦻ
ᐸᩩᵫᦪḄᦪ⚗ᡂᵨo40.!ᨵ#$%CombolḄᔠ᪾⌕-ᙠᐸ/012ᐭᦻ45ᢥ789:/01Ḅᦻ4;<=ᑮᑡ⊤஺B☢DEFGHDḄIoPrivateSubCombol_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

4IfKeyCode=13ThenCombo1.AdditemCombo1.TextEndIfEndSub41.᡻jkBlmᓫopqᢥr:2stuIo012345678910PrivateSubCommandl_Click()Dima(10)AsIntegerDimbFori=1To10a(i)=iNextiForEachbInaPrintb;NextbEndSub42.9!2ᐭ᦮ᦪn,ᑨᦪIᔲIᐰᦪ஺᝞uᦪḄᡠᨵᦪᑣ$ᦪ%ᐰᦪ஺PrivateSubCommandl_Click()DimnAsInteger,iAsIntegerDimsAsIntegernInputBox(஻2ᐭ⌕ᑨḄᦪ஻)i=1_____________s=lDoi=i+1IfnModi=0Thens=s+iLoopuntili=n-lIfThenPrintn;஻Iᐰᦪ஻[NY]s=nᡈn=sEndSub43.᡻jB☢Ḅlm¢ᦻ4᪾Text1£¤ḄIo9DimiAsInteger,jAsIntegeri=1DoWhilei<20j=i+ji=i*(i+1)LoopTextl.Text=j44.©jB☢Ḅlm£¤tuIo45PrivateFunctiondigit(nAsInteger,kAsInteger)AsIntegerdigit=0DoWhilek>0digit=nMod10n=n\10:k=k-1Loop

5EndFunctionPrivateSubForm_Click()Printdigit(4567,4);Printdigit(4567,3)EndSub45.ᨵ᝞Blma=100Dos=s+aa=a+1LoopWhilea>120Printa©j:Ḅ2stu%஺10146.᡻jBᑡlmᓫopqᢥrᙠ!2stu%஺563OptionBase1PrivateSubCommandl_Click()Dima(3,3)AsInteger,kAsIntegerDimiAsInteger,jAsInteger,nAsIntegernUBound(a,1)Fori=1Ton-2Forj=iTon-ia(i,j)=k+1a(j,n+1-i)=k+2a(n+1-i,n+l-j)=k+3a(n+1-j,i)=k+4k=k+4NextjNextiIfnMod200Thena((n+1)/2,(n+1)/2)=k+1EndIfPrinta(l,2);a(2,3);a(3,3)EndSub47.°ᙠ!ᨵᦻ4᪾Text1,᪗²ᦪLabel1,ᐳᨵ10᪗²kBlm¢EFᙠᓫo᪗²´µ᪗²Ḅᑁ·<=ᑮᦻ4᪾Fᨵᑁ·¸:஺PrivateSubLabell_Click(IndexAsInteger)Textl.Text=Textl.Text&________&஻஻EndSubLabel1(Index).captionᡈLabel1.(Index)49.ᦻ
஻text.txt஻Ḅᑁ·%1,2,3᡻jBᑡº»¼Open”text.txt஻ForOutputAs#1Write#1,4,5,஻aaa஻Close#1ᑣtext.txtḄᑁ·%o4,5,“aaa”ᡈ4,5,“aaa”ᡈ4,5,“aaa”

650.©j᝞Blm¢2stu%o16PrivateSubcommandl_click()a=1:b=2:c=3a=a+b:b=b+a:c=b+aIfa<>3Orb<>3Thena=b-a:b=c-a:c=b+aEndIfPrinta+b+cEndSub51.᡻jB☢lmÀÁÂ2ᐭ10,20,30,40,50,60,ᑣ2stuI஺103050204060OptionBase1PrivateSubCommand1_Click()Dima(3,2)AsIntegerDimi%,j%,tFori=1To3Forj=1To2a(i,j)=InputBox(஻2ᐭᦪᐗÅḄÆ஻)NextjNextiForEachtInaPrintt;NexttEndSub52.°ᵨFunctiongcd(xAsInteger,yAsInteger)ÇÈÉ•-ËᦪḄᨬᜧÎÏᦪḄlmÐo´Dᙠ!£¤9664ḄᨬᜧÎÏᦪ⊡ᐙlm஺XGcd(a,b)FunctionGcd(xAsInteger,yAsInteger)'ÇÈÖᦪ-×ËᦪḄᨬᜧÎÏᦪDoWhiley<>0r=xModyx=yyrLoopGcdxEndFunctionPrivateSubFormClickODimaAsInteger,bAsIntegera=96:b=64'ØᵨÖᦪ-ËᦪḄᨬᜧÎÏᦪPrint஻Gcd஻ÙxEndSub53.VisualBasicÛÜ©ÝÞXor,Or,Not,AndßàᨬáḄ©ÝÞI஺Not54.⊤âãXExp(3)—Sqr(a-2+b*2)ḄI஺ᐵç⊤âã55.ᙠ!ᓫoè᪗´éᓽµPicture1£¤ᙠè᪗ëìB☢DEF!íîHDḄï
ðlI

7C.PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Picturel.CurrentX=XPicturel.CurrentY=YEndSub56.-1!+2!+...+10!Ḅlm᝞B¼PrivateFunctions(xAsInteger)f=lFori=lToxf=f*iNexts=fEndFunctionPrivateSubCommandl_Click()DimiAsIntegerDimyAsLongFori=lTo10()NextPrintyEndSub%EFHD⌕-lmḄòóôᐭḄᑁ·IoB.y=y+s(i)57.ᨵB☢lmõṹ¼PrivateSubCommandl_Click()DimxAsInteger,sAsIntegerx=lFork=1To3x=x+lprocxs=s+xNextkPrintsEndSubPrivateSubproc(ByVaiaAsInteger)StaticxAsIntegerx=x+la=a+xEndSublm©j:ᓫopqᢥrCommand1,2stuI஺958.Bᑡlm¢Ḅ᡻jtu%oDimM(2)Fori=lTo2M(i)=0Nexti

8K=2Fori=lTokForj=lTOkM(j)=M(i)+lPrintM(k);NextjNextI022359.÷løᨵFormLForni2᪗ùúᙽModell,᝞uᙠFormlᨵº»PublicXAsIntegerᙠMode11ᨵº»PublicYAsIntegerᑣkBüíýḄI¼ᙠFromlþkÿ
ᵨX60.ᐵᦪḄ┯Ḅ஺ᨵᦪᜐᳮḄ!"#$ᑮ&ᵨ'61.)*+,-ᘤḄ/0123᪾62.678ᨵ9:;<,LabellḄ᪗CD9:;<,TimerlḄIJᘤᐸEnabledOIntervalSឋᑖV,TrueO1000.Xᑏ᝞F'1DimnAsIntegerPrivateSubTimerl_Timer()ch=chr(n+Asc("A"))Labell.Caption=chn=n+ln=nMod4EndSubno'ᙠ᪗Co)qᙢstuvwx஻A஻ஹ஻B஻ஹ஻C஻ஹ஻D஻,}~67ᐵ63.☢'noᓫcommandluv஺257PrivateSubcommandl_click()Fori=1To4Ifi>3ThenExitForNextiForj=1To6i=i+jNextjPrinti,jEndSub64.᡻oaḄ,o32DimaAsIntegera=1Doa=a+2LoopWhilea=10065.ᑡᐵᓫ⚗Ḅ┯Ḅ1ᓫ⚗Ḅ166.SelectCase¡᪀£¤⚗*ᨵ¥¦§¨
ᵨ©ªḄ—oCaseIs>x

967.,¬
ᦻ®᪾ᐹᨵᚖ}±²ᩩ´ᐜ¶MultiLineSឋ·¸,True,ᯠº¶ScrollBarsSឋ·¸,஺268.\,/ஹMoDஹ*¿:ÀÁnÀxÂᐜÃᨬÅḄ஺Mod69.Ç9:¥È©ᦪNḄᓝÈᦪḄ©ªÊËn\10Mod1070.☢ᑡ⊤᪾SឋᦪÍḄoSelected71.678.ᨵ9:;<,VscrollḄᚖ}±²ᩩ⌕Ç'noJ±²ᙽḄÑȸᙠᨬÒ´Ó
VScrolll.ValueḄÔ஺Vscrolll.Max72.ᑡ'ÕḄ᡻o¡Ö,o46Dima(10)AsInteger,b()AsIntegerDimiAsIntegerReDimb(5)Fori=1To10a(i)=iIfiMod2=0Thenb(i/2)=a(i)EndIfNextiPrinta(4);b(3)73no'ᓫÙÚᢥÜ᝞ÖᵨᡝÞß8àᐭ6ஹ5ஹ4ஹ3ஹ2ஹ1,ᑣ678àãᑁ-,o9PrivateSubCommandlClick()Dima()AsIntegerDimiAsInteger,jAsIntegerReDinia(6)Fori=5To10a(10-i+1)=InputBox("inputnumber")NextiReDimPreservea(10)a(10)=a(5)+a(4)Printa(10)EndSub74.ᙠ&ᵨJᑡçË©ªḄ—oFunctionè*
ᵨCall&ᵨ75.*éê30ë50(ì30O50)íîḄïð᦮ᦪḄ⊤ò¨_____஺Int(Rnd*21+30)76.ᨵ☢'óṹ1PrivateSubCommandl_Click()DimaAsStringa="COMPUTER”n=search(a,஻T஻)PrintHF(n=0,஻ùúᑮ஻,n)EndSubPrivateFunctionsearch(strAsString,chAsString)AsIntegerFork=lToLen(str)c=Mid(str,k,1)Ifc=chThen

10search=kExitFunctionEndIfNextksearch=0EndFunction'noᓫÙÚᢥÜCommandl,àã¡Ö஺677.û©ªḄ஺ïðᦻ0ü:ýþḄÿ
Ḅ78.ᨵ☢ṹPrivateSubCommandl_Click()DimsignAsIntegerSign=la=lb=2Fork=lTo5c=a+sign*ba2bb=cPrintc;sign=-signNextkEndSub89:;ᓫ=>?ᢥACommandl,CDEF
஺3-12-379.K᡻9MNODimaAsInteger,PQaRSḄNOT;┯VḄ
.oa=2*32760\380.Z[ḄMouseUp_`a᝞PrivateSubFormMouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndSubᐵiPjM;PklmT┯VḄ
oMouseUp
n᪗ᔣjqrstuḄ_`81.89☢;᝞FCᐭ85,ᑣCDEF
oi=3DimaAsInteger,iAsIntegera=InputBox("'inputa:஻)Ifa>60Theni=1Ifa>70Theni=2Ifa>80Theni=3Ifa>90Theni=4Print஻i=஻~i82Pᐵ⊤T;ᐸSTrueḄ
஺;;VisualBasic/;O;;visualbasic;z83.⊤X>X+1
oᐵ⊤84.ᑨ⌱᪾
ᔲ⌱TḄឋValue85.ᦪInt(Rnd(0)*100)
ᑡᑁḄ᦮ᦪ஺[0,99]86.ᙠZ[j>?ᢥAᦻ¢᪾;ᐸ£¤ᑖ¦CommandlTextl,§ᦻ¢᪾

11ḄTextឋ¨©ª«;ᯠ:ᑏ᝞_`aPrivateSubCommand1Click()A=Inputbox(;/EnterAnInteger")B=Inputbox("EnterAnInteger")Textl.Text=B+AEndSub89:;ᓫ=>?ᢥA;᝞FᙠCᐭ¯°᪾Tᑖ¦Cᐭ456,ᑣᦻ¢᪾T±²Ḅᑁ³
o56487.¨ᨵ᝞´PrivateSubCommandl_Click()StaticaAsVarianta=Array(one,two,three,four,five)Printa(3)EndSub┐¯jm_`a;PlmT¸¹Ḅ
—o»P¸¼89;ᙠZ[j±²four88.½qr¾`;¿À¨ᐸÁÂs;ឋÃÄrᦋÆ஺TopLeft89.᝞F⌕ᙠZ[jÉᵨ2Ëᓫ⌱ᢥA;ÌËÍ»Pᨵ•⌱T;ᑣÏÐÑḄ
஺ᐜ2᪾Ó¾`ஹÕ§2Ëᓫ⌱ᢥAᑖ¦ᙠÖ×Ḅ᪾ÓT90.ᨵ☢ṹPrivateSubCommandl_Click()a=3s=0Fork=lTo5s=s+aModka2a+kNextkPrintsEndSub89:;ᓫ=>?ᢥACommandsCDEF
஺491.¨ᨵᦪËØÙNOOptionBase1DimA(2To4,3)PjNOᡠMḄᦪËATᐳᨵᐗÝ஺992.NOPrintInt(Rnd*5+20)ḄCDÖ»Þ
஺2593.¨ᨵ᝞_`aPrivateSubCommandl_Click()Dimaa=Array(12,3,8,5,10,3,5,9,2,4)Fork=1To9Printfun(a(k-1),a(k));஻஻~NextkEndSubPrivateFunctionfun(x,y)AsIntegerDoWhilex>=y

12x=x-yLoopfun=xEndFunction89sCDḄEF
03351351294.PMᦪËḄNO┯VḄ
Dima(n)AsInteger95.PᐵiᦪaḄlmT;¸¹Ḅ
oᦪaàáḄâãäᦪåæSḄâãçᨵᐵ96.VBT»PÉᵨÄèMḄSubaFunctiona;a¤ᦪ;éêa»PåæS஺Function97.☢ᐵiëᦻ`Ḅìm¸¹Ḅ
஺ᦪíîÞPASCIIṹàïðᙠᦻ`T;ᡠP»ñaᦻ¢òó`±²98.☢ᓫôõã(ᓽᓫô÷øã)ÆùḄ
ox!99.ᙠᦻ¢᪾TextlTCᐭûüý;ᢥPþᑣÿ
ṹᙠA-Z-A✌Ḅ⊤ᔣ6ṹᙠᦻ!᪾Text2()*ṹ+஺-᝞+“ABCXYZ஻67Ḅṹ+஻GHIDEF஻஺Asc(ch)+6[NY]str2+chr(n-26)PrivateSubCommand1Click()DimstrlAsString,str2AsStringDimnAsInteger,chAsString*1,iAsIntegerstrl=UCase(Trim(Textl.Text))Fori=1ToLen(strl)ch=Mid(strl,i,1)Ifn<=90Thenstr2=str2+Chr(n)Elsestr2=___________EndIfNextiText2.Text=str2EndSub100.᝞cde)ᐭ75,55,45,70,30,25,40,15,20,5,kᑡmnoḄ᡻qc__஺330DimcAsInteger,kAsInteger,dAsIntegerc=70Fork=11To20x=InputBox(஻)ᐭXḄᦪt஻)Ifx

13PrivateSubForm_Click()DimAAsIntegerDimiAsIntegerA=2Fori=1To9Callsubl(i,A)Printi,ANextiEndSubPrivateSubsubl(xAsInteger,yAsInteger)StaticNAsIntegerDimIAsIntegerForI=3To1Step-1N=N+xX=X+1NextIy=y+NEndSub102.v᝞kmn)*qc஺30a=0Forj=1To30Step2a=a+jmod5NextjPrinta103.ᦻḄᑏput஺Get104.vkᑡmnᓫᙠz{Ḅqc|஺-3PrivateSubForm_Click()DimxAsInteger,yAsIntegerx=-5y=-20IfNotx>0Thenx=y-3Elsey=x+3EndIfPrintx-yEndsub105.vkᑡmnᓫᢥᙠ)*qc஺91215OptionBase1PrivateSubCommandl_Click()Dima(3,3),s(3)Dimx,i%Fori=1To3s(i)=0

14Forj=1To3a(i,j)=i+js(i)=s(i)+a(i,j)NextjNextiForEachxInsPrintx;NextxEndSub106.kVisualBasicḄ|____஺12-E107.k☢⊤¡(____Ḅv¢qc£ᐸ¥¦§஺Exp(-3.5)108.ᢥCommandlḄᓫ¨m᝞kPrivateSubCommandl_Click()Dima(10,10)AsIntegerx=0Fori=lTo3Forj=lTo3a(i,j)=i*2ModjIfx

15PrivateSubCommandl_Click()Dimch$,asciiAsIntegerOpen"file.txt"ForInputAs#1WhileNotEOF(l)LineInput#1,chascii=toascii(ch)PrintasciiWendClose#1EndSubPrivateFunctiontoascii(mystrAsString)AsIntegern=0Fork=1ToLen(mystr)n=n+Asc(Mid(mystr,k,1))Nextktoascii=nEndFunctionmnḄÌ|ᢥÍ¢ᦻ(ḄÎḄASCHṹÏÐz{ᙠ஺115.ᨵ᝞kmnPrivateSubCommandl_Click()x=InputBox(zinputvalue")SelectCasexCaseIs>0y=x+1CaseIs=0y=x+2CaseElsey=x+3EndSelectPrintx;yEndSubᎷÁvÓÔÕµ)ᐭ-5,)*qc|o-5-2116.ÁᨵTextlஹText2×ᦻ!᪾ÉᑏØk☢ḄmnÙṹPrivateSubTextl_KeyPress(KeyAsciiAsInteger)If஻A஻ீyChr(KeyAscii)AndChr(KeyAscii)<=஻Z஻ThenKeyAscii=KeyAscii+(Asc(஻a஻)-Asc("A"))EndIfn=0IfKeyAscii=13ThenFork=lToLen(Textl)Ch$=Mid(Textl,k,DIf஻a஻<=chAndch<=஻z"Thenn=n+1NextkText2=n

16EndIfEndSubmnvÓ,ᙠTextlᦻ!᪾()ᐭ஻VisualBasic6.0"ᢥÜÝÕ,ᑣᙠText2ᦻ!᪾z{Ḅ|o11117.kᑡß©(àáḄ|oâᒹäåᦪæᡈὅᑁêḄëìíîÎ118.᝞cÉᑏḄm⌕ðñòᐸ6óôᵨ7ö÷møᙠ____ª(஺᪗úûᙽ119.ᙠᵨᵨ6ý᪾þÿ஻ᡭ஻ᡈ஻஻ᦻ᪾᝞◤⌕ᢣᦻᑡ⊤᪾ᡠᑡḄᦻᦻᦻ(ᓽ.txtᦻ)ᑣ$%Ḅ&'()—஺஻ᦻᦻ(.txt)|*.txt”120.ᨵ4☢678ṹ:OptionBase1PrivateSubCommand1_C1ick()Dima(10)AsInteger,x,bx=InputBox(஻VWᐭYZ[\᦮ᦪ஻)Fork=lToLen(x)b=Mid(x,k,1)a(Vai(B)+l)=a(Val(B)+1)+1NextkFork=lTo10Printa(k);NextkEndSub67ijᓫlmnᢥpCommandsWᐭ2355270224,ᑣW஺1041120100121.u4vᔠxḄyzo10^2122.u4ᐵ}᪾~Ḅ'┯Ḅ:᪾~uᯖ123.ᨵ67᝞4:OptionBase1PrivateSubForm_Click()Dimx(5,6)AsInteger,y(5)AsIntegerFori=lTo5Forj=lTo6x(i,j)=Int(Rnd*9+l)NextjNextiCallfম6,x,y)Fori=lTo5Printy(i);NextiEndSubSubf(mAsInteger,nAsInteger,a()AsInteger,b()AsInteger)Fori=lTomb(i)=0

17Forj=lTonb(i)=b(i)+a(i,j)NextjNextiEndSubᐵ}'67u4'$%ḄoyᦪḄxᦪjᦪ124.ᔠ᪾Combolᨵ3Z⚗ᑣu4ᑤ◀ᨬY⚗Ḅ஺Combo1.Removeitem2125.¡¢£¤Ḅᜧ¦uᦋ¨©ª«¬ḄBorderStyleឋ¯஺2126.u4⌱⚗vᔠxḄVisualBasicḄ¨z±□_xyz127.u4´ᦪḄ$%Ḅ____஺Dima(-3To2000)AsSingle128.£¤ḄNameឋFrml,ᙠ£¤¸ᙽºᵨ¼½ᜐ¿6SublᑖÁᵨPublicKAsInteger,DimKAsInteger¼½¡ÃZı¨zK,ᑣᙠ¿6Subl⌕ÅÆᐰȨzK,ÉᵨoFrml.k129.ᔣËᨵᦪḄC:\test\test.txtᦻÎÏᦪ$%ḄᦻᡭmnoOpen"C:\test\test.txt,ForAppendAs#511130.u467ḄÒ:ÓÔÕWᐭÃZ$᦮ᦪÖ×ᐸᜧ¦ÙWÚÛḄÜÝ஺᝞:ÞÃZᦪßàÃZ¨zxy,᝞xáy,âã஻ÃZᦪÚä஻x>y,âã஻æYZᦪᜧ}æáZᦪ஻x஻஻AndIsNumeric(Textl.Text)Then'᝞ᦻ᪾ËWᐭᦪñᦪx=Vai(Textl.Text)'ÞWᐭḄᦪñßà¨zxElseMsgBox஻Vᙠᦻ᪾Wᐭᦪñ஻Textl.SetFocusExitSubEndIfIfText2.Text<>஻஻AndIsNumeric(Text2.Text)Theny=Vai(Text2.Text)ElseMsgBox஻Vᙠᦻ᪾Wᐭᦪñ஻Text2.SetFocusExitSubEndIfIfx=yThenMsgBox஻ÃZᦪÚä஻ElselfThenMsgBox஻æYZᦪ¦}æáZᦪ஻ElseEndIf

18EndSub131.4ᑡ67òḄ᡻jôo1822j=0:n=5Doj=(j+D*(j+2)n=n-1LoopUntiln<3Printj;n132.4☢67òᙠ£¤öãḄô஺515PrivateSubCommandl_Click()DimbAsInteger,kAsIntegerb=1Fork=1To5b=b*kIfb>=15ThenExitForElsek=k+1EndIfNextkPrintk,bEndSub133.u467÷èl+x+x-2/2!+x-3/3!+……+x'/n!ḄûÏ⌕èüýþ<0.0000loPrivateSubCommand1_C1ick()DimxAsSingle,nAsInteger,iAsIntegerDimsAsSingle,tAsSinglex=InputBox(zinputx஻)s=1:n=1:t=lDos=s+tn=n+1Loop__________PrintsEndSubÿᫀ1t=t*x/n2[NY]untilt<0.00001134.•ᦪᦪḄ▤#஺%ᑏ'ᵨᦪ)*᝞,-⊡ᐙ*0஺s=s*IPublicFunctionf(nAsDouble)AsDoubleDimsAsDoubleDimiAsIntegerIfn<0ThenExitFunctions=lFori=1Ton

19Nextif=sEndFunctionᜧ⚪GH1IᙠὃLᦻNᜳPᨵR*ᦻNwy5.vbpXᐸZ[ᦻNwy5.frm,]*0^_`᦮Ḅ-ᙠᨵbcḄᙢefᐭhiᑁkᯠmᑤ◀bXᡠᨵqrsHᓽ’cIv_wxᦋᐸz{ᑖ஺}~_ᦋᦻNᦻNᜳ஺⚪᝞ᙠZ[ᨵTextlḄᦻ᪾C1,᪗⚪“᪥஻Ḅᢥ஺ᐸPᦻ᪾ᵨᩭᐭH᝞ᡠI⌕ᙠᦻ᪾PᐭḄᑁk“*"¢H-ὃL£¤')¥ឋZ§I஺⌕*0¨©mᐭᓫ«ᢥm¬©᪥஺᝞®ᐭḄᑁk^"ABC"ᡈ"abc"²3³´ᑣᵨMsgBox·¸᪾¹"hi"ᔲᑣ¹“┯¼''H᝞ᡠI஺H2IᙠὃLᦻNᜳPᨵR*ᦻNwy6.vbpXᐸZ[ᦻNwy6.frm,]*0^_`᦮Ḅ-ᙠᨵbcḄᙢefᐭhiᑁkᯠmᑤ◀bXᡠᨵqrsHᓽ'cIv_wxᦋᐸz{ᑖ஺}~_ᦋᦻNᦻNᜳ஺⚪᝞ᙠZ[ᨵ¿ChiஹCh2Ch3ḄÁ⌱᪾᪗⚪ÃÄ"*0"ஹ஻ᦪÅÆÇᳮ”ÊËÌÍ“ÎᨵC1,᪗⚪“⌱Ï”ḄᢥH᝞ᡠI஺⌕*0¨©m᝞®⌱ÐÑÁ⌱᪾ᑣÒᓫ«ᢥᙠZ[¹ÓÔḄ·¸஺Õ᝞᝞®⌱Ð"*0"”ᦪÅÆÇᳮ”Á⌱᪾ᑣᓫ«ᢥmÖᙠZ[¢"ᡃ⌱ḄÏ*^*0ᦪÅÆÇᳮ”Ø᝞®⌱ДᦪÅÆÇᳮ”Á⌱᪾ᑣᓫ«ᢥmÖᙠZ[¢"ᡃ⌱ḄÏ*^ᦪÅÆÇᳮ”஺Forml,|n|x|ᡃ⌱Ḅ17rᦪᳮ,⌱r1ஹὃÙὃL¬ᦻ᪾¥ឋPasswordCharḄÚᵨÕP§PasswordChar¥ឋ"*",ᯠmᙠC1ḄClickÜNPfᐭ᝞ÝṹIfTextl.Text="ABC"OrTextl.Text="abc"ThenMsgBox"hi"ElseMsgBox"┯¼”2ஹ᝞ᡠàáZâáãÓÔḄäNᙠᢥḄClickÜNPåᐭ᝞Ýṹ

20DimsAsStringsç஻ᡃ⌱ḄÏ*^஻IfChi.Value=1Thens=s&஻*0஻EndIfIfCh2.Value=1Thens=s&஻ᦪÅÆÇᳮ஻EndIfIfCh3.Value=1Thens=s&Ch3.CaptionEndIfPrints136.êë2.4536D-02Ḅíî^஺ïðñ137.ÖhḄóôᦪNḄôᦪõᓝôᦪ¬ᣚḄ⊤ùúo(N-Int(N/10)*10)*10+Int(N/10)138.Z[ᨵ1Timerlᘤ1Shapelþÿ
ᨵ☢ṹDimflagAsBooleanPrivateSubForm_Load()Flag=TrueTimerl.Enabled=TrueTimerl.Interval=1000EndSubPrivateSubTimerl_Timer()IfflagThenShape1.Height=Shapel.Height*2Shape1.Width=Shape1.Width*2ElseShape1.Height=Shapel.Height*஺.5Shape1.Width=Shapel.Width*0.5EndIfFlag6NotflagEndSub᡻9ᡠ;<Ḅᦔ?@OShapelBCḄDEᙠ᡽ᜧᑮJᩭ2LMឮOJCP2QC᝱SᑗᣚVWᑗᣚXY139.\⌕^◀ᑡ⊤᪾
cḄᡠᨵᑡ⊤⚗efgᵨḄij@XXClear140,⌕no9p᝞?ᢥst᪗vwxyz{|t᪗t᪗Ḅ}~ᙶ᪗ᙠḄ᪗(Labell)c᝞ᡠyt᪗vw஺☢Ḅ@X-PrivateSubFormMouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenLabel1.Caption=஻x="&X&"y6"&YEndIfEndSub

21141.ᐵ£|᝱ᦪ¥Ḅ¦§c¨©Ḅ@oReDima(k+l)ReDimpreservea(10)142.ᑡᐵ£®¯|ᩩḄ±²c┯´Ḅ@—Value·ឋ¹⊤ᓫ»¯|ᩩ¼½Ḅ¾ᜮp¯|᪾ᔣvᡈᔣ{|ḄÂÃ143,
c¯|ᩩḄ@ᦻÅ᪾144.ᙠÆXÇCommandlḄÈÉᢥÊM¼ÇᑖÌTextlஹText2ḄᦻÅ᪾ᯠÏᑏ᝞Ñ
ÒPrivateSubCommand1_C1ick()N=Textl.TextSelectCaseNCase1To20X=10Case2,4,6X=20CaseIs<10X=30Case10X640EndSelectText2.Text=XEndSubo9᝞?ᙠᦻÅ᪾TextlcÖᐭ10,ᯠᓫ»ÈÉᢥÊᑣᙠText2cḄᑁÚ@o10145.ᦪÛÜÝsin30°ᑏᡂVB⊤àÜ@஺Sin(30*3.14/180)146.ᙠᵨãᵨäå᪾
æç஻ᡭ஻ᡈ஻éê஻ᦻ
äå᪾p᝞?◤⌕ᢣíᦻ
ᑡ⊤᪾ᡠᑡîḄᦻ
ïð@ᦻÅᦻ
(ᓽ.txtᦻ
)ᑣ¨©Ḅò²óÜ@_஺஻ᦻ
(•txt)|*.txt”147.ᑡ±²cx¨©Ḅ@oøÃᒹúûᦪüᡈὅᑁþḄïðÿ
148.ᨵ᝞OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_C1ick()'./1Fori=1To3Forj=lTo4b(j,i)=a(i,j)NextjNexti‘./2x9b(l,1)Fori=lTo4Forj=lTo3Printb(i,j);Ifx

22PrintNextiEndSub?ḄᦪBaCDEF஺HᐵJKLḄML?NOḄP஻./1஻RHNSTU149.WXYPictureBoxZ[ḄAutoSize]ឋ_True`XaᙠcZ[?dᐭXYfZ[ḄghijhkᜧḄmᱏ`amᱏḄᜧoiZ[ḄᜧopfP஺pq150.☢NOuᵨw᝱ᦪBḄPoDimarr()AsIntegerReDimarr(3,5)151.HᐵJw᝱ᦪBḄz{?|NOḄPuᵨReDim}~RHᦋw᝱ᦪBḄ152.ᢥCommand!.Ḅ[᝞PrivateSubCommand1Click()Dimarr(5,5)AsIntegerDimIAsInteger,jAsIntegerFori=lTo4Forj=2To4Arr(i,j)=i+jNextjNextiPrintarr(l,3)+arr(3,4)EndSub᡻UKLaP—O11153.HᦪBḄ}~?aNOḄPoDima(-3To2000)AsSingle154.☢ᐵJᦻ[ḄL|NOḄPoXYᦻ[?|X155,KᨵXYᑡ⊤᪾Z[Listl஺HML?┯¤ḄPListl?ᨵListCountTYᑡ⊤⚗156.᡻U☢Ḅ¦aPoABCBCDDimstrlAsString,str2AsStringstrl=஻abc஻strl9UCase(strl)Fori=1To3str2=Chr(Asc(strl)+i)strl=strl&str2NextiPrintstrl157.ᙠ?Ḅªa᝞«¬ᙠ®c¯a°±²³?´µªḄFa¶·cuᵨᐵ¸
ᙠ?´µª஺static158.H¹º»l+x+x-2/2!+x-3/3!+……+x'/n!Ḅ¾¿À,⌕»¤ÂÃh<0.0000loPrivateSubCommand1Click()DimxAsSingle,nAsInteger,iAsIntegerDimsAsSingle,tAsSinglex=InputBox(azinputx஻)

23s1:n=1:t=lDos=s+tn=n+1Loop__________PrintsEndSubt=t*x/nuntilt1Theny9x+2Elselfx<5Theny=x+3Elselfx=2Theny9xEndIfPrinty161.Ꮇ⌴èéᦪfact(n)ᵨᩭ»nḄ▤ìaØ⊡ᐙ஺PrivateFunctionfact(nAsInteger)AsLongIfn=0Orn=1Thenfact=1Elsefact=_EndIf

24EndFunctionn*fact(n-1)ᜧ⚪î(1)ᙠÏï_FormlḄ?ÎXYÏï_LIḄ᪗ðaᐸ᪗⚪_஻0஻aBorderStyle]ឋ_1ñòó¿XYÏï_TimerlḄô`ᘤ஺Øö〉WḄZ[]ឋaøùᑏ〉WḄ[auúᙠTU`aû◞Xýþ᪗ð?Ḅᦪ
¿1஺᝞mᡠḄḄ஺ᵨ஺*ᙠὃᦻ"ᜳ$%&ᦻ"'(sjt5.vbp,23ᦻ"'(sjt5.friiioᐘFormll-IEx|(2)ᙠὃᦻ"ᜳ$ᨵ=>&ᦻ"sjt6.vbp,⌕ABCD%᝞FGHᓫJᑡ⊤᪾Ḅ⚗%ᑣPQ⌱STU⚗஺V᝞FᓫJ"X"ᢥZ%ᑣᙠ23[\]ᡠᨵ⌱Ḅᑡ⊤⚗(᝞_ᡠ)஺⌕A`ᦋᑡ⊤᪾Ḅ〉cdឋ%BCPfG⌱%ghᣵḄjk%lḄmᦋ(noḄᑁq%ᐸst[uvw%x`ᦋḄᐸyzᑖ஺ᨬDl`ᦋDḄf}ᩭḄᦻ"'஺ᫀ᪆=⚪᪗"ḄBorderStyledឋᡈ᪗"Ḅ᪾᪵஺Pf01%(0%᪗"᪾(1%᪗"ᨵ᪾஺ᐸ¡("'.BorderStyle=0ᡈ1£ᘤ"ḄIntervaldឋᡈ£ᘤ¨"©ªḄª◞%f¬(ᓫ®%°஺ᑮ65535³⚪´¡µ¶=>'(FormlḄ23%¹J&ᐹ»ḄTimer"_᪗%ᯠDᙠ23[.¾¿]=>£ᘤ%ÀÁdឋ2ÂᐸIntervaldឋ(1000஺¹J&ᐹ»ḄLabel"_᪗%ᯠDᙠ23[¾¿]=>᪗"%ÀÁdឋ2ÂᐸNamedឋ("LI",Captiondឋ("0",BorderStyledឋ(1஺ᡭÇÈṹ2Â%\ᐭ᝞$ḄÈṹ

25PrivateSubTimerl_Timer()LI.Caption=LI.Caption+1EndSubᢥ⌕AÐᦻ"ᓽÒᡂÔ⚪஺2⚪ᑡ⊤᪾ḄMultiSelectdឋᵨᩭᑡ⊤᪾"ᔲPfØCGÙ⌱S஺Pf0ஹ12Û%(0,wØCGÙ⌱S(1,ᵨÜ᪗ᡈÝÞßPf⌱G>ᑡ⊤⚗(2,ᢥ$Shiftß%ᵨÜ᪗ᓫJ⌕⌱SḄ=>ᑡ⊤⚗%áᓫJ⌕⌱SḄᨬD=>ᑡ⊤⚗%Pfâã⌱ὅ©ªḄᡠᨵᑡ⊤⚗ᢥ$Ctrlß%ᵨÜ᪗ᓫJᑡ⊤⚗%PfâãḄ⌱G>ᑡ⊤⚗஺³⚪´¡ᡭÇ&ᦻ"sjt6.vbp,⌱ᑡ⊤᪾"%ÀÁdឋ2ÂᐸMultiSelectdឋ(1,g`ᦋåæḄÈṹ஺`ᦋDḄÈṹ᝞$PrivateSubCl_Click()Fori=0To11.ListCount-1If11.Selected(i)=TrueThenPrint11.List(i)EndIfNextiEndSub162..êëì<î%A>B,no⊤ñòᐵôḄõoSgn(Y-X)-Sgn(A-B)=0163.ùúûᨵG>23Ḅ&Vü%f$ýunoḄ—o23PfÀÁ஻
ឋ஻᪾ᢣ164.ᨵY=Hf(x>0,xMod3,0)"x=10,#$Ḅ&'஺1165,ᙠ+☢ᡈ.ᦪ012345⌱78᪀Ḅ'oWhile166.᡻@+ᑡ
BC1DE8FGo70Dima(10)AsIntegerDimiAsIntegerFori=1To10A(i)=2*i-1NextiPrinta(4);EraseaPrinta(4)167.\+ᐵ^_᝱ᦪaḄ0,bcḄ'ReDima(k+l)ReDimpreservea(10)168.j☢'kᨬᜧnoᦪḄ.ᦪḄ✌qFunctiongcd(ByValxAsInteger,ByVaiyAsInteger)AsIntegerw⌕DE8ஹ12ஹ16z3{ᦪḄᨬᜧnoᦪ1+☢bcḄ'oPrintgcd(8,gcd(12,16))169.}~ᑡ⊤᪾Listl0}ᐭw⊤⚗1j.ᑡᐵ^ListlḄ50┯Ḅ'ᨬ{⊤⚗ḄBGListCount170.᝞Fᙠ᪾02{⌱᪾1᪾ḄEnabledឋ"GFalse,2{⌱᪾ḄEnabledឋ"GTrue,ᑣ+☢50bcḄ'஺2{⌱᪾2ᵨ

26171.+☢
BCḄ@8FG஺12624Fori=lTo4n=lForj=lToIn=n*jNextjPrintnNexti172.\+ᐵ^ᢥḄ50bcḄ'oᢥ¡\¢£¤ᱏ173.ᙠ¦§¡{¨©GCommonDialoglḄªᵨ᪾1{¨©GCommandlḄᢥ஺ᯠ¬ᑏ᝞+®¯
PrivateSubCommandl_Click()CommonDialogl.FileName=""CommonDialogl.Filter="allfile|*,*|(*.DoC)|*.Doc|(*.Txt)|*.Txt”CommonDialogl.Filterindex=2CommonDialogl.DialogTitle=஻VBTest஻CommonDialogl.Action=1EndSub^z{
B1\+50┯Ḅ'ᙠµ᪾0ᢣḄ¶·ᦻ¹ºGᦻ»᪾(*.Txt)174.\+50┯Ḅ'oᙠ᪗½¾ᙽ023À¯
175.⊤ÁÂ25.28mod6.99Ḅ&'஺4176."ᨵX=InputBox(஻Dᐭᦪ&஻1஻0஻1஻£Ä஻)1
B@1᝞FÅÆÇ¡Dᐭᦪ&10ÈᢥÉÊÆ1ᑣ+ᑡ50bcḄ'______oËÌXḄ&'ÍÎÏ஻10஻177.ÐᵨÑÒÓÔḄᑡ⊤⚗ÕÖᑮ{ᑡ⊤᪾0஺Additem178.+☢bcÐᵨ_᝱ᦪaḄ'oDimarr()AsIntegerReDimarr(50)AsString179.\+¯
ḄØ3'Åᦪa0ÙÚᨬᜧ&PrivateSubFindMax(a()AsInteger,ByRefMaxAsInteger)DimsAsInteger,fAsIntegerDimiAsIntegers=Lbound(A)fÛUbound(A)Max=a(s)Fori=sTofIfa(i)>MaxThenMax=a(i)NextEndSub\¡ᐵ^¡5¯
Ḅ501┯Ḅ'¯
ÝÞßµàÖᩩâÉᨬᜧ&ḄFindMax=Max180.᝞Fãä_᝱ᦪaᙠåÀæ3çᶇéᩭḄᑁì1ßᵨᐵÆÍ஺Preserve

27181.\+ᐵ^᪾Ḅ501┯Ḅ'᪾\íîᯖð182.w᡻@\+
BCñòóDᐭ1,3,5,ᑣ᡻@8FGo1Dima(4)AsInteger,b(4)AsIntegerFork=0To2a(k+1)=Vai(InputBox("ôDᐭᦪõ஻))b(3-k)=a(k+1)NextkPrintb(k)183.ᙠÐᵨOPENᡭøᦻñ1᝞Fḕᶍ஻forû஻1ᑣᡭøḄᦻüýÑÂGoþÿ
184.ᨵListlḄᑡ⊤᪾Commandl!"ᢥ$%&ᨵ'☢Ḅ)*+,-PrivateSubCommandl_Click()n%=Listl.ListindexIfn>0Thench$=Listl.List(n)Listl.List(n)=Listl.List(n-1)Listl.List(n-1)=chEndIfEndSub,FGHI%⌱K1ᑡ⊤⚗%ᯠNᓫP!"ᢥ$%ᑣRSḄTUVW⌱KḄXVᨬZ☢Ḅᑡ⊤⚗%ᑣ⌱KḄᑡ⊤᪾[\Zᑡ⊤᪾]^_ᣚab185.dᨵᦪfghij-DimA(-lTo2,-1To1)AsLong,ᑣᦪfAᙠᑁKᡠᓰḄt⁚ᦪo48186.GH'☢Ḅ,F%wᓫPI%xyḄᑁzo3163PrivateSubTest(xAsInteger)x=x*2+1Ifx<8ThenCallTest(x)EndIfx=x*2+1Printx;EndSubPrivateSubForm_Click()Test3EndSub45.GH᝞',FN%TUo2127DimiAsInteger,yAsIntegerFori=3To15Step3y=y+ii=i+3NextiPrinti;y

28187.',FV1ᑮ1000ᡠᨵ3᦮◀ḄᦪḄ%ᢥ⌕ᗐ,F஺PrivateSubCommandl_Click()DimnAsInteger,sAsLongn=1DoWhilen<=1000IfnMod3=0Thens=s+n___________n=n+1LoopPrintsEndSub188.Fᦻ*+PRINTijᡈijKḄᦪᑏᐭ£¤஺WRITE189.da,b᦮¦§¨%©ᙳX0,'ᑡᐵ¬⊤Kឤᡂ°ḄV஺a/b*b=a190.²ᦪLen(Str(Vai(z%123.4஻)))Ḅ¶஺619L⌕·¸ᑡ⊤᪾¹ᐕ»ᓫ⌱ᑡ⊤⚗%¼dbḄ½ឋoMultiSelect192.dᨵ᝞',F-OptionBase1PrivateSubFormClick()DimADimiAsIntegerA=Array(1,2,3,4,5,6,7,8,9)Fori=lTo4PrintA(4+i);NextiEndSub,FGHN%ᓫP%ᑣᙠxyḄV஺5678193.GH',F%ᓫP!"ᢥ$Nᙠᑁzo0PrivateSubCommandl_Click()Dima()AsIntegerDimiAsInteger,jAsIntegerReDima(3,4)Fori=1To3Forj=1To4a(i,j)=(i-1)*10+jNextjNextiReDima(4,5)Printa(2,3)EndSub194.ÂᵨᵫijPrivateSubConvert(YAsInteger)ÆÇḄSub+,I,'XVᢥ¶È⌴ḄVoConvertX195.RS100ᑁ(XË100)ÌaÍÎ᦮ᦪḄVB⊤V-Int(Rnd(l)*90)+10196.dᨵ᝞'ᵨ+,-PublicFunctionf(xAsInteger)DimyAsInteger

29X=20y=2f=x*yEndFunctionᙠÏ!"ᢥ$%ᐸÑCommandl,ᯠNÒᑏ᝞')*+,PrivateSubCommandl_Click()StaticxAsIntegerx=10y=5y=f(x)Printx;yEndSub,FGHN%᝞UᓫP!"ᢥ$%ᑣᙠxyḄᑁzV2040197.dᨵijX=InputBox(஻ᐭᦪ¶஻%஻0஻%஻yÓ஻)%,FGHN%᝞UÔÕ¤ᐭᦪ¶10&ᢥÖ×Õ%ᑣ'ᑡØÙKÚÛḄVo§¨XḄ¶VtÜÝ஻10஻198.'ᑡ,FÞḄ᡻HTUVoXà2Y=1IfX*Y<1ThenY=Y-1ElseY=-1PrintY-X>0False199.ᨵTextlᦻá᪾%&Òᑏâ'☢)*+,-PrivateSubTextl_KeyPress(KeyAsciiAsInteger)KeyAscii=KeyAscii+3EndSub,FGHI%ᙠᦻá᪾KᐭtÜ஻A஻%ᑣᙠᦻá᪾Kä▭xyḄV-D200.ᐭVBæ,FI%W!"HᒹËÌij%ᑣÌijḄᑖ◞Ü-201.ê¨2.4536D-02Ḅë¦V஺ìíî202.ᙠÏᦻá᪾%ᯠNÒᑏ᝞')*+,-PrivateSubForm_Click()XàInputbox(஻ïᐭ᦮ᦪ஻)PrintX+Textl.TextEndSub,FGHI%ᙠᦻá᪾Kᐭ456,ᯠNᓫP%ᙠᐭðñ᪾Kᐭ123,ᓫP஻ÛÆ஻ᢥ$N%ᙠxyḄᑁzV஺123456203.'ᨵᐵᦻ*ḄØÙK%ÚÛḄV—oᙠÍÎᦻ*K%óôõḄöîV÷ÆḄ204.Imageø*ùúûᱏNḄýþ஺[ûᱏᜧ
205.VisualBasicᔠḄᦪᐗ஺X(3.5)206.ᐵ!"#ᢥ%Ḅ&'()*Ḅ஺"#ᢥ%+,-./ᱏ207.234ᑏ6ᔣ89ᦻ;(ᑏ<ᩩ>?Ḅ@ABCṹ᝞FTypeRtypeNameAsString*10TelAsString*20EndType

30PrivateSubCommandl_Click()DimpAsRTypep.Name=InputBox(஻de஻)p.Tel=InputBox(஻ᵯgh஻)Openz/Books.dat஻ForRandomAs#1Put#1,,pClose#1EndSubo@Apqrᨵ┯uBvᦋḄxᙠz{|}஻TypeRType஻~+஻Private"208.ᵨᑴḄx6<"#ᢥ%ᦪConmiandl,oᦪḄ┯uḄ.O"#ᢥ%ḄᡠᨵCaptionឋCommandl209.᝞4ᑏḄ@⌕ᐸᵨB¡¢£@¤ᙠ—(஺᪗§¨ᙽ210.ᨵ☢@ACṹFPrivateSubCommandl_Click()Fork=5To1StepTx=k+x*10NextkPrintxEndSub@Apq¬Bᓫ®"#ᢥ%CommandL°±²54321211.⊤µ¶(-l)*Sgn(-100+Int(Rnd*100))Ḅ¸஺1212.⊤µ¶Int(-17.8)+Abs(17.8)Ḅ¸஺-0.2213.ᐵ!/ᱏ᪾ஹ/»᪾Ḅ&'(B)*Ḅ/ᱏ᪾,¼Printx-.ᦻ½214.e¾¿frml஺&'()*Ḅ஺@Apq(ᵨÁÂFfrml.Caption=஻Ã᪗⚪஻,ᦋÅḄ᪗⚪215.ᑡ@AÇḄ᡻q²¿____18ߟDimA(5,5)AsIntegerFori=1To3Forj=1To4A(i,j)=i*jNextjNextiPrintA(2,3)+A(3,4)+A(4,5)216.pq@ABᓫ®"#ᢥ%¬ᙠ+°±ᑁÌ-0஺PrivateSubCommandl_Click()Dima()AsIntegerDimiAsInteger,jAsIntegerReDima(3,4)Fori=1To3Forj=1To4a(i,j)=(i-1)*10+jNextjNexti

31ReDima(4,5)Printa(2,3)EndSub217.ᐵ!Íᦪ@Ḅ&'(B)*ḄoÍᦪ@ÎÏḄz{ÐÍᦪÑÒ¸Ḅz{ÓᨵᐵÔ218.ᙠVB(BÍᦪ@ÐÕ@A@ḄÖ×~

32DimiAsIntegers=Lbound(A)f=Ubound(A)Max=a(s)Fori=sTofIfa(i)>MaxThenMax=a(i)NextEndSub()ᐵ+),-.Ḅ0,12┯4Ḅ5o-.6789:;<ᩩ>?ᨬᜧḄBCFindMax=Max226.G⌕IJKLMᩩḄᨬNOP0,ᨬᜧOP255,8SᐸMinUMax_WឋYZO[஺227.G^_a`aᐜcdefghᵨ(j᝞
a=0),ᑣ^_aḄmn5__Variant஺228.᡻Z(rBCs2kḄP_2.454—஺DimiAsSingleFori=0.45To2Step0.5k=k+1NextiPrinti;k229.(}ᨵᐵᦻḄ0,12Ḅ5஺ᙠᦻ12Ḅ5cḄ230.hᵨBCDimA(5)AsIntegerᦪAs2(rḄᨵ஺Aᦪ1ḄᡠᨵᐗP0231.ᨵr☢.ṹ
PrivateSubCommandl_Click()a=3s=0Fork=1To5s=s+aModka=a+kNextkPrintsEndSub.Zs2ᓫ¡¢ᢥ¤Commands¥¦§¨54஺232.ᙠ©ªᓃH<ᦻ᪾2ᐸ¯°PTextl,P±ᙠ.Zs◚³9ᦻ᪾28hᵨḄBCPoTextl.Visible=False233.(rᐵ+M᝱ᦪḄ1µḄ5ohᵨReDimBC¶(ᦋ^M᝱ᦪḄmn234.Gᙠ8ᵨ.1ᵨ஻PrivateSubSubl(XAsInteger,YAsSingle)஻cd±».Subl,(r¼ᵨ».SublḄCallBC1—CallSubl(5)_______5┯4Ḅ஺235.VB1¶(hᵨ½¾cdḄSub-.UFunction-.2Function-.°P¿ᦪ2ÀÁ-.¶(>?஺236.(r0,1Ḅ5oᦻ1Ḅ5cḄ

33237.ÂÃÄ)¥ᐭÆ<᦮ᦪn,ᑨÉ9ᦪ5ᔲ5Ëᐰᦪ஺᝞¨<ᦪḄᡠᨵÍ»UÎÏ+9ᦪ2ᑣ°9ᦪPËᐰᦪ஺PrivateSubCommand1_C1ick()DimnAsInteger,iAsIntegerDimsAsIntegern=InputBox(஻Ð¥ᐭ⌕ᑨÉḄᦪ஻)i=1_s=lDoi=i+1IfnModi=0Thens=s+iLoopuntili=n-lIf_s=nThenPrintn;஻5Ëᐰᦪ஻EndSub238.Z᝞r.s2¥¦§¨P—30—oa=0Forj=1To30Step2a=a+jmod5NextjPrinta239.Ó.1ᒹÕÖ©ªforml.form2U<᪗ØÙᙽmoduli,ṹ᝞F:moduliÜᵨÝṹ
PublicbAsInteger©ªformlḄṹ:PublicaAsIntegerPrivateSubForm_Click()'formlḄclickaa=10b=20Form2.ShowEndSub©ªform2Ḅṹ
PrivateSubForm_Click()PrintForml.aàPrintbEndSub᡻Z.2áâãÖ©ª2ᙠä婪)æç—1020o240.Z᝞r.s2¥¦§¨P_2127_____oDimiAsInteger,yAsIntegerFori=3To15Step3y=y+ii=i+3NextiPrinti;y241.Oᙠ©ª)ᨵ<ᦻ᪾Textl,<᪗èᦪLabell,ᐳᨵ10᪗è2(r.

34ÝêëᙠᓫÆ<᪗èìI᪗èḄᑁîï;ᑮᦻ᪾ëᨵᑁîs஺PrivateSubLabell_Click(IndexAsInteger)Textl.Text=Textl.Text&&஻஻EndSublabel1(index),caption242.ñᦻÜ-PRINTBCᡈWRITEBCóôõö1Ḅᦪ÷ᑏᐭùÄ஺243.Z᝞r.Ý2¥¦§¨P_16oPrivateSubcommandl_c1ick()a=l:b=2:c=3a=a+b:b=b+a:c=b+aIfa<>3Orb<>3Thena=b-a:b=c-a:c=b+aEndIfPrinta+b+cEndSub