資源描述：
《VB上機(jī)程序題庫》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、VB上機(jī)程序題庫一、1到50相加PrivateSubCommand1_Click()DimaAsInteger,mAsIntegers=0Forn=1To50s=s+nNextnText1.Text=sEndSub二、隨機(jī)產(chǎn)生13個(gè)元素的數(shù)組（找出max和min），并分別以逆序和順序顯示在兩個(gè)標(biāo)簽中（文本框內(nèi)）Dima(1To13)AsIntegerPrivateSubCommand2_Click()Fori=1To12Forj=i+1To13Ifa(i)>a(j)Thent=a(i):a(i)=a(j)
2、:a(j)=tEndIfNextp=Str(a(1))Fori=2To13p=p&","&Str(a(i))NextLabel2.Caption=LTrim(p)EndSubPrivateSubForm_Load()DimpAsStringRandomizep=""Fori=1To13DoForj=1Toi-1Ifx=a(j)Thenyes=1:ExitForNextLoopWhileyes=1a(i)=xp=p&Str(a(i))NextLabel1.Caption=LTrim(Left(p,Len(p
3、)-1))Label2.Caption=""三、托運(yùn)行李，重不超過50千克每千克0.25元，超過50不超過100時(shí)超過部分0.35每千克，超過100時(shí)超過部分每千克0.45，計(jì)算托運(yùn)費(fèi)PrivateSubCommand1_Click()DimwAsSingle,xAsSinglew=Val(Text1.Text)Ifw<=50Thenx=0.25*wElseIfw<=100Thenx=0.25*50+0.35*(w-50)Elsex=0.25*50+0.35*50+0.45*(w-100)EndIfEnd
4、IfText2.Text=xEndSub四、求兩個(gè)數(shù)中較大數(shù)的函數(shù)過程，利用該函數(shù)求3個(gè)數(shù)中最大數(shù)PrivateSubCommand1_Click()Dima,b,cAsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Label1.Caption="最大數(shù)是："&Max(a,Max(b,c))EndSubPrivateFunctionMax(x,yAsSingle)Ifx>yThenMax=xElseMax=yEndIfEndFunctio
5、n五、從1加到100PrivateSubCommand1_Click()Dims,iAsIntegers=0Fori=1To100s=s+iNextiPrintsEndSub六、用formload方式求1到10相加PrivateSubForm_Load()DimtAsSingle,iAsLongShowt=0Fori=1To10Step1t=t+iNextiPrint"總和："&Str(i)EndSub七、任意數(shù)判斷奇偶PrivateSubCommand1_Click()DimxAsIntegerx=Va
6、l(Text1.Text)IfxMod2=0ThenLabel1.Caption="偶數(shù)"ElseLabel1.Caption="奇數(shù)"EndSub八、判斷閏年P(guān)rivateSubCommand1_Click()DimyAsIntegerDimleapyearAsBooleany=Val(Text1.Text)If(yMod4=0AndyMod100<>0)Or(yMod400=0)Thenleapyear=TrueLabel2.Caption="閏年"Elseleapyear=FalseLabel2.C
7、aption="不是閏年"EndIfEndSub九、求平均數(shù)Dima(1To10)AsIntegerPrivateSubCommand1_Click()s=0Fori=1To10a(i)=InputBox("數(shù)組元素")s=s+a(i)NextiPrints/10EndSub十、隨機(jī)數(shù)組找最大、最小Dima(1To8)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerFori=1To8a(i)=Int(Rnd*(100-1+1)+1)NextiFori=1To
8、7Forj=i+1To8Ifa(i)>a(j)Thent=a(i):a(i)=a(j):a(j)=tEndIfNextjNextiPrinta(1),a(8)EndSub十一、文本框中100以內(nèi)7的倍數(shù)，求和PrivateSubCommand1_Click()DimiAsInteger,sAsLong,tAsStrings=0:t=0Fori=1To100IfiMod7=0Thens=s+it=t&Str(i)&Chr(13)
