VB練習(xí)7-2(西北大學(xué))

練習(xí)7-21、選擇題：1）下面程序段，運(yùn)行后的結(jié)果是（PrivateSubCommand1_Click()Dimb%(1to4),i%,t#Fori=1to4b(i)=iNextit=Tof(b())Print“t=”;t,EndSubFunctionTof(a()AsInteger)Dimt#,i%t=1Fori=2ToUbound(a)t=t*a(i)NextiTof=tEndFunctionA）t=18B)t=24C)t=30D)t=322、填空題：1）在窗體上畫一個(gè)名為Command1的命令按鈕，然后編寫如下程序：OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerFori=1to10a(i)=iNextCallSwap

Fori=1to10Printa(i);NextEndSubSubswap(b()AsInteger)n=Fori=1ton/2t=b(i)b(i)=b(n)b(n)=tNextEndSub3、編程題：1）刪除數(shù)組中指定位置的元素第16717題明：對(duì)于動(dòng)態(tài)數(shù)組元素個(gè)數(shù)改變需要用ReDim語句定義數(shù)組元素個(gè)數(shù)要?jiǎng)h除某一個(gè)元素可以令該元素后面的元素依次覆蓋前面的元素，然后修改數(shù)組元素個(gè)數(shù)，實(shí)現(xiàn)刪除）2向數(shù)組中指定位置插入新元素即將新添加的元素放到數(shù)組指定位置本第167頁16題）3）移動(dòng)數(shù)組元素。將數(shù)組中某個(gè)位置的元素移動(dòng)到指定位置課本第167頁15題）4）有5個(gè)人坐在一起，問第5個(gè)人多少歲？他說比第4個(gè)人大兩歲。問第四個(gè)人的歲數(shù)，他說比第三個(gè)人大兩歲。問3個(gè)人，又說比第二個(gè)大兩歲。問第二個(gè)人，說比第一個(gè)人大兩歲。最后問第一個(gè)人，他說是歲。編寫程序用遞歸算法計(jì)算第五個(gè)人有多大歲數(shù)。5）某同學(xué)在上樓梯時(shí),有時(shí)一步一級(jí)樓梯,有時(shí)一步兩級(jí)樓梯,如果樓梯有N級(jí),他上完這N級(jí)樓梯有多少種不同方法?答案：1、B2、1）a，Ubound（b）,n=n-13、5）假設(shè)樓梯級(jí)數(shù)N時(shí)的方法數(shù)是F(N)那么第一步可選擇1或2級(jí)樓梯。

當(dāng)?shù)谝徊綖?級(jí)時(shí)剩下樓梯的級(jí)數(shù)為N-1，故方法數(shù)為F(N-1)；當(dāng)?shù)谝徊綖榧?jí)時(shí)，剩下樓梯的級(jí)數(shù)為N-2，故方法數(shù)為。FunctionF(ByValnAs