算法與程序設(shè)計(jì)VB試題與答案10

VB101、打開(kāi)文件“考生文件夾\178\工程1.vbp”，完善Command1_Click事件及fac函數(shù)并保存。實(shí)現(xiàn)功能：用遞歸法求3!+5!+7!的值，將結(jié)果輸出到窗體上。PublicFunctionfac(aAsInteger)AsIntegerIfa=1Thenfac=①Elsefac=a*②(a-1)EndIfEndFunctionPrivateSubCommand1_Click()DimsAsIntegers=fac(3)+fac(③)+fac(7)Print"s=";sEndSub①1②fac③52、打開(kāi)文件“考生文件夾\614\工程1.vbp”，完善Command1_Click事件代碼并保存。實(shí)現(xiàn)功能：當(dāng)單擊“顯示”按鈕后，隨機(jī)產(chǎn)生10個(gè)屬于區(qū)間[0，100)的自然數(shù)，并保存于數(shù)組a中，然后在窗體上顯示這10個(gè)數(shù)以及這10個(gè)數(shù)中的最大值。(注：你的運(yùn)算結(jié)果有可能跟樣圖中數(shù)值不一致)PrivateSubCommand1_Click()Dima(9)AsIntegerDimmaxAsIntegerDimiAsIntegerMe.ClsPrintRandomizeFori=0To①a(i)=Int(Rnd*100)Printa(i)Nextimax=a(0)Fori=1To9Ifmax<a(i)Thenmax=②EndIfNextiPrint"這10個(gè)自然數(shù)中的最大值=";③EndSub①9②a(i)③max3、打開(kāi)文件“考生文件夾\181\工程1.vbp”，完善Command1_Click事件并保存。實(shí)現(xiàn)功能：從鍵盤(pán)輸入10個(gè)學(xué)生的測(cè)試成績(jī)，在窗體上輸出最高分和最低分。PrivateSubCommand1_Click()Dimcj(10)AsSingleDimiAsIntegerDimmaxAsSingleDimminAsSingleFori=1To10cj(i)=Val(InputBox("請(qǐng)輸入10個(gè)學(xué)生的成績(jī)","成績(jī)輸入"))Nextimax=cj(1)min=cj(1)Fori=2To10Ifcj(i)>maxThenmax=①EndIfIf②Thenmin=③EndIfNextiPrintmax,minEndSub①cj(i)②cj(i)<min③cj(i)4、打開(kāi)文件“考生文件夾\43\工程1.vbp”，完善Command1_Click事件及fib函數(shù)并保存。實(shí)現(xiàn)功能：用遞歸法求斐波那契數(shù)列1，1，2，3，5，8，…第10項(xiàng)的值，將結(jié)果輸出到窗體上。PublicFunctionfib(nAsInteger)AsIntegerIf(n=1)Or(n=2)Thenfib=①Elsefib=fib(n-1)+fib(n-2)②EndFunctionPrivateSubCommand1_Click()DimsAsIntegers=fib(③)Print"s=";sEndSub①1②endif③105、打開(kāi)文件“考生文件夾\175\工程1.vbp”，完善Command1_Click事件及s函數(shù)代碼并保存。實(shí)現(xiàn)功能：用遞歸法求1+2+3+…+100的值，結(jié)果輸出在窗體上。PublicFunctions(nAsInteger)AsIntegerIfn=1Thens=①Elses=②+s(n-1)EndIfEndFunctionPrivateSubCommand1_Click()DimsumAsIntegersum=s(③)Print"sum=";sumEndSub①1②n③1006、打開(kāi)“考生文件夾\776”中的文件“蝸牛爬竹.vbp”，完善Command1_Click事件代碼并保存。實(shí)現(xiàn)功能：青竹高17米，蝸牛從青竹底端慢慢爬向頂端，晴天每天爬1.4米，雨天每天爬1.8米，若蝸牛爬到頂端用了11天，計(jì)算晴天、雨天各多少天？（晴天對(duì)應(yīng)文本框text1PrivateSubCommand1_Click()DimxAsSingleDimyAsInteger