vb考試題及答案

窗體鳳凰傳奇編程題PrivateSubCommand1_Click()Text1.FontSize=20Textl.Alignment=2Textl.Fontltalic=TrueEndSubPrivateSubCommand2_Click()Combo1.Text="荷塘月色”Combo1.Additem"游過(guò)了四季"Combo1.Additem"荷花依然香”EndSubPrivateSubCommand3_Click()Textl.Visible=FalseCombo1.Visible=FalseEndSub窗體，時(shí)鐘PrivateSubOptionl_Click()Timer1.Enabled=TrueTimerl.Interval=100EndSubPrivateSubOption2_Click()Timerl.Enabled=FalseLabell.Visible=TrueLabel1.Caption="所以我們要珍惜現(xiàn)在，活在當(dāng)下！”EndSubPrivateSubTimerl_Timer()Label1.Caption="我們都是遠(yuǎn)視眼，模糊了離我們最近的幸?！盠abel1.Visible=NotLabel1.VisibleEndSub1用@(橫19豎10)整成T型Fori=1To19PrintNextiFori=1To10PrintTab(10);@Nexti2求100?200之間所有合數(shù)和Dimi,j,sAsIntegerFori=100To200Forj=2ToSqr(i)If(iModj)=0ThenPrint(CStr(i))Sum=sum+iExitForEndIfNextjNextiPrintsum3求出1000到9999間平方根恰好是中間兩位數(shù)字的四位數(shù)并求和DimiAsIntegerDimjAsIntegerFori=1000To9999j=Vai(Mid(Trim(Str(i)),2,2))Ifj*2=iThenPrinti,sum=sum+iEndIfNextiPrintsum8求出200-300之間，能被3整除，又能被7整除。DimiasintegerForI=201to300If((Imod3)=0)and((imod7)=0)thenPrint(cstr(i))Sum=sum+iEndifNextPrintsum5打印數(shù)列2/1,3/2,5/3,8/5,13/8…的前10項(xiàng)，并求其和。Dimi,s,t(10),r(10)AsIntegers=0t(0)=1r(0)=2Fori=1To10Ifi=1Thent(i)=t(i-1)+1Elset(i)=t(i-1)+t(i-2)EndIfr(i)=r(i-1)+t(i-1)NextiFori=0To9s=r(i)/t(i)+sPrintr(i)&"/"&t(i)NextiPrints6寫(xiě)程序解決百錢買百雞問(wèn)題。Dima,b,cAsIntegerFora=0to20Forb=0To33c=100-a-bIf(5*a+3*b+c/3=100)ThenPrinta,b,cEndIfNextbNexta7生成一個(gè)一維數(shù)組(十個(gè)元素依次為15、32、72-)寫(xiě)出最大值、最小值、平均值Dima(9)asintegerDimi,sasintegera(0)=15a(1)=32a(2)=72a(3)=43a(4)=96a(5)=18a(6)=3a(7)=177a(8)=88a(9)=17max=a(O)min=a(O)s=0fori=0to9ifa(i)>maxthenmax=a(i)endififa(i)<minthenmin=a(i)endifs=s+a(i)nextaver=int(s/10)print(cstr(max))print(cstr(min))print(cstr(aver))4把一元鈔票換成一分，2分和五分的硬幣(變量N中)Dimi,j,kasintegerFori=1to100Forj=1to50Fork=1to20If((i+2*j+k*5)=100)ThenPrint(cstr(i))Print(cstr(j))Print(cstr(k))n=n+lEndifNextNextNext11求1!+2!+3!+4!+5!Dimi,j,k,sasintegerFori=1to5K=1Forj=ltoiK=k*jNextS=s+kNextPrint(cstr(s))16求1!+2!+3!+-+10!的值，并在窗體上輸出，結(jié)果存入變量L中DimIAsIntergerDimsAsLongDimjAsIntergerS=1ForI=1to10S=s*iL=L+sNextPrintstr(1)18求10!的值。DimiasintegerSum=lFori=1to10Sum=sum*iNextPrintsum20求出100-200之間，能被5整除，但不能被3整除。DimIasintegerForI=1to100If((imod5)=0)and((imod3)=00)thenPrint(cstr(i))Sum=sum+1EndifNext9求50以內(nèi)奇數(shù)的和。DimiasintegerFori=1to50Ifimod2=1thenSum=sum+lEndifNextPrintsum10求10X11X12+11X12X13+…+15X16X17的結(jié)果，并將結(jié)果輸出到窗體上，將結(jié)果存入變量M中Dimi,jasintegerDimsaslongFori=10to15S=1Forj=itoi+2S=s*jNextM=m+sNextPrint(CStr(m))12求100以內(nèi)偶數(shù)的和，并將結(jié)果存入變量sum中。DimiasintegerFori=ltolOOIfiMod2=0thenSum=sum+iEndifNextPrintsum12求1+2+3+…+100的值，并把結(jié)果輸出在窗體上，結(jié)果存入變量sum中。DimiasintegerFori=lto100Sum=sum+iNextPrintsum13、求到1,3,3,9,27,243,……的前6項(xiàng)的和，并將結(jié)果輸出到窗體上，將結(jié)果存入變量sum中DimiasintegerDimj(1to6)AsIntegerForI=1to6Ifi<3ThenJ(i)=3c(i-1)ElseJ(i)=j(i-l)*j(i-2)EndifSum=sum+j(i)NextPrintsum14編寫(xiě)代碼功能如(圖)已知S=H+2?+3?+…+10"編寫(xiě)程序求S的值，并輸出到窗體上DimiAsIntegerFori=1to10s=s+i*iNextPrint(cstr(s))15求3+6+9+12+15+18+…+300的和，并將結(jié)果輸出到窗體上，將結(jié)果存入變量sum中DimiasintegerFori=1to300IfIMod3=0Thensum=sum+iEndifNextPrintsum17求1-1/2+1/3-1/4+…+1/99-1/100的值。將結(jié)果存入變量J中。DimIasintegerFori=1To100IfiMod2=1Thenj=j+1/iElseIfiMod2=0Thenj=j-1/iEndIfNextPrintJ19求S=l+l/4+1/9+1/16+ l/100oDimiasintegerS=0Fori=1to10S=s+1/(i*2)NextPrint(s)21求1+5+10+15+-500的和DimiasintegerFori=lto500Ifimod5=0thenSum=sum+iEndifNextPrintsum22求10-20之間所有素?cái)?shù)的乘積DimiasintegerDimjasintegerDimbasBooleans=lb=falsefori=10to20forj=2toi-2ifimodj=0thenb=trueendifnextifb=falsethens=s*iendifb=falsenextprintstr(s)23求1+1X2+1X2X3+-+1X2X3X???X10Dimi,jasintegerDimkaslongK=1S=0Fori=lto10Forj=ltoiK=k*jNextS=s+kK=1NextPrint(cstr(s)).求1到100的素?cái)?shù)和DimsasdoubleDimiasinteger,jasintegerS=0Fori=lto100Forj=2toi-lIfimodj=0thenExitforEndifNextjIfi=jthenS=s+iEndifNextiPrintsPrintsum.一球從100米高度自由下落，每次落地返回原高度的一半，求10次落地時(shí)共經(jīng)過(guò)多少米Dimj,iAsIntegerS=0J-100Fori=2to10尸j/2S=s+2*jNextS=100+sPrint(Cstr(s))26求1+2+5+8+13+…前20項(xiàng)的和。結(jié)果保存到SUM中DimIasintegerDimj(1to20)asintegerFori=lto20Ifi<3thenJ(i)^iElseJ(i)=j(i-l)+j(i-2)EndifSum=sum+j(i)NextPrintsum27s=20+21+22+…+263.求s的值。結(jié)果儲(chǔ)存到S中DimIasinteger1二20Whilei<=263S=s+iI=i+1WendPrint(cstr(s))28求10至I」50之間的素?cái)?shù)1編寫(xiě)一函數(shù)：functionsushuDimIasintegerF