VB期末考試

《VB期末考試》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。

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(????3?)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?1┯o??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????DO?)??????/01“Basic”?78?:List1.List(Listl.ListIndex)="Basic”12.VB???q?×??,.??ùú???13.?????a)*?T?,!"?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???ì|é??:;?í?é?(??,í?é?e???é??)???TUò1?o?:78Picturel.PictureLoadPicture("")19.4???VB?3?q??┯o??°VB?÷ì|??￡??3ù??q20.?úRight("Beijing”,4)???jing21.4??1TU?????!"????ü?QR¨?Private'Dim)*22.?)?XYZyt?ü??