高中信息技術(shù)-VB枚舉算法與程序?qū)崿F(xiàn)-瀏覽題閱覽題-會考復(fù)習(xí)題

高中信息技術(shù)VB枚舉算法與程序?qū)崿F(xiàn)瀏覽題閱覽題會考復(fù)習(xí)題學(xué)校:姓名:班級：_一評卷人得分1.使用枚舉法解決問題，在列舉問題的可能解的過程中()可以遺漏，但不應(yīng)重復(fù)B?不能遺漏,也不應(yīng)重復(fù)。C.可以重復(fù)，但不應(yīng)遺漏?？梢赃z漏,也可以重復(fù)?！敬鸢浮緽【解析】2?有如下VB程序段m=a(1)Fori=2to100Ifa(i)>mthenm=a(i)Nexti該程序段執(zhí)行后，變量m中存儲的是()A?累加值B.計數(shù)值C.a(1)至a(10O)中的最大值D?最小值【答案】C【解析】3．讀程序，寫出下列程序的輸出結(jié)果55、s=1Forj=100To—100Step-1s=s*jNextjMsgBox(s)上述程序段中S=s*j的執(zhí)行次數(shù)是()

A、400A、400B、401C、20OD、201【答案】D【解析】.統(tǒng)計1~1000間個位數(shù)是4,且能被9整除的數(shù)共有多少個，可以采用的算法是()A.查找算法B.枚舉算法C?解析算法D.排序算法【答案】B【解析】?在游戲中經(jīng)常有開數(shù)字密碼鎖得場景，已知一個6位數(shù)的密碼鎖，正確的數(shù)字順序組合是由下面一組數(shù)字426815經(jīng)過兩次冒泡排序得到,請問開鎖的正確數(shù)字組合可能是()。864251B.842651C.126845D.124685【答案】A【解析】6?某食品連鎖店5位顧客貴賓消費卡的積分依次為810,512,613,700,900。采用選擇排序算法對其排序，若完成第一遍時的結(jié)果為：512,810,613,700,900,貝烷成第二遍的結(jié)果是()A?512,613,700,900,810512,810,613,900,700512,900,613,700,810512,613,810,700,900【答案】D【解析】7?模擬剪刀石頭布的游戲，骰子是一個正六面體，用1?3這3個數(shù)分別代表剪刀、石頭、布這三種情況，使用RND隨機函數(shù)可以表示為()INT(RND(3)+1)INT(RND*2+1)INT(RND(2)+1)INT(RND*3+1)【答案】D解析】

8.三個正整數(shù)a、b、c滿足等式a2+b2=c2,a、b、c稱為“勾股數(shù)”求出100以內(nèi)所有“勾股數(shù)”可采用的算法是()A?枚舉算法B.解析算法C.冒泡排序D?順序査找【答案】A【解析】9.有如下VB程序：DimiAsInteger,jAsInteger,kAsstring,nAsIntegern=3List1.ClearFori=1Tonk=Forj=1Toik=k+”*"NextjListl.AddltemkNextiTOC\o"1-5"\h\z該程序運行后,在列表框List中顯示的是()杲船杲*****A.B?C.D?【答案】A【解析】10.關(guān)于枚舉算法的說法錯誤的是()—般是通過循環(huán)中嵌套分支結(jié)構(gòu)來實現(xiàn)的。循環(huán)結(jié)構(gòu)用來“枚舉”,分支結(jié)構(gòu)用于“檢驗”。列舉所有可能解的范圍時,可以擴大但不能縮小，以防漏解。采用枚舉法時，也可能找不到符合條件的解?！敬鸢浮緾【解析】11.VB標(biāo)準(zhǔn)函數(shù)RND的作用是返回一個大于等于0且小于1的隨機數(shù)。只能產(chǎn)生大于等于100且小于200隨機整數(shù)的VB表達(dá)式是()A、Int(Rnd*100)B、Int(Rnd*101+100)C、Int(Rnd*99+100)D、Int(Rnd*100+100)【答案】D【解析】下列語句用于計算"s=1+4+7+10+...+25”的值。①Fori="1"To25Step!2.②Nexti③s=0@s=s+i正確的語句順序是()A.①②③④B.①③④②c.③①④②D.④③①②【答案】c【解析】13.解決上問題所用的算法是：()A、枚舉法B、解析法c、順序查找D、選擇法【答案】B【解析】14?已知三角形的三條邊長分別為a、b、c，半周長p(a+b+c)/2，該三角形面積計算公式為：s=y：p(p-a)(p-b)(p-c)，計算S的VB語句是()s=\：p(p-a)(p-b)(p-c)s=Sqr(p(p-a)(p-b)(p-c))s=Jp*(p-a)*(p-b)*(p-c)s=Sqr(p*(p-a)*(p-b)*(p-c))【答案】D【解析】小李有一被污損的保修卡(如圖),客服熱線中有一個數(shù)字被污損掉了,找出這個數(shù)字的適合算法是（）的適合算法是（）A?枚舉算法B?解析算法C.對分查找算法D.遞歸算法【答案】A【解析】數(shù)組a中存放了某校田徑運動會中八名100米短跑運動員的成績，數(shù)據(jù)存放情況如表：a(1)a(2)Aa(3)a(4)a(5)Aa(6)Aa(7)Aa(8)a12.8^13.312?312.613?512?11313?8若按升序排列,并采用冒泡排序算法自右向左進(jìn)行比較和交換,那么前兩輪排序的數(shù)據(jù)交換總次數(shù)為（）。A.5B?6C?7D.8【答案】D【解析】17?三個正整數(shù)a、b、c滿足等式a2+b2=c2,a、b、c稱為“勾股數(shù)"求出100以內(nèi)所有“勾股數(shù)可采用的算法是（）A、枚舉算法B、解析算法C、冒泡排序D、順序查找【答案】A【解析】評卷人得分二、填空題請認(rèn)真閱讀并分析下面VisualBasic程序代碼，按要求完成題目。Dima(1To6)AsIntegerDimn,i,j,kAsIntegerPrivateSubCommand1_Click()Fori=1Ton-1Forj=(1)TonIfa(i)Va(j)Thenk=a(i):(2):a(j)=kEndIfNextjNextiFori=1Tonlist2.AddItemStr(a(i))NextIEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Thenn=n+1a(n)=Val((3))List1.AddItemStr(a(n))Text1.Text="＂:Text1.SetFocusEndIfEndSub①程序中出現(xiàn)了text和list兩種控件，其中Iist控件的中文名稱是列表框,text控件的中文名稱是。(2)在上述程序段中3處帶序號的空白地方補充恰當(dāng)?shù)恼Z句，完善程序?！敬鸢浮竣傥谋究?l)i+l(2)a(i)=a(j)(3)textl.text【解析】下面程序的功能是:計算表達(dá)式1+3+5+???+(2n-1)的值，在文本框Text1中輸入n的值,結(jié)果在文本框Text2中輸出。則程序中劃線處的語句應(yīng)填。PrivateSubCommand1_Click()DimsumAsLong,iAsInteger,nAsIntegersum=0n=Va1(Textl.Text)Fori=1To2*n-1Step2NextiTex12?Text=Str(sum)EndSub【答案】sum=sum+i【解析】20．王敏的E-Mail郵箱密碼忘記了，但她需要收一封很重要的來信，請你幫她盡可能找出密碼。她零星記得自己的密碼信息:密碼是六位數(shù)字，前面兩位為31；最后兩位數(shù)字相同；能被16和46整除。程序界面如圖所示，單擊"幫助找回密碼"按鈕(Command1)后，可能的密碼顯示在列表框List1中。解決此問題的相應(yīng)程序如下：PrivateSubCommand1_Click()DimaAsInteger,sAslong,bAsInteger,iAsIntegerFori=0To9999①s=310000＋iIfsMod46=0Then②b=(sMod100)\100Ifa=bThenList1.Add1temStr(s)EndIfEndIfNextiEndSub＜）NYM/輸出＜）NYM/輸出到LiJitl/s*-310ii?h+i（1）解決此問題的算法是（選填:枚舉算法或排序算法）在程序①和②畫線處，填入適當(dāng)?shù)恼Z句或表達(dá)式，把程序補充完整:（2）程序中①畫線處應(yīng)填入。（3）程序中②畫線處應(yīng)填入?！敬鸢浮浚?）枚舉算法（2）step16（3）a=smod10【解析】21．輸入一個三位數(shù)的整數(shù),要求將此三位數(shù)的各位上的數(shù)字重新排列,組成一個盡可能大的三位數(shù)。例如:輸入213，重新排列可得到盡可能大的三位數(shù)是321。現(xiàn)要求編寫VB程序（運行界面如圖所示），實現(xiàn)如下功能:在文本框Textl中輸入一個三位數(shù)整數(shù)，單擊“求解"按鈕Commandl，在文本框Text2中顯示重新組合后的最大三位數(shù)整數(shù)。某同學(xué)按此要求編寫的程序如下，其中函數(shù)max（x）用于求解最大三位數(shù)整數(shù),但加框處代碼有錯,請改正。①②Functionmax(xAsInteger)AsIntegerDimaAsInteger,bAsInteger,cAsInteger,tAsIntegera=x\100b=x\10)\10'①c=xmod10IfaVbThent=a:a=b:b=tIfaVcThent=a:a=c：c=tIfb<cThent=c:c=b:b=tmax=c*100+b*10+a＇②EndFunctionPrivateSubCommand1_Click()DimnAsInteger,yAsIntegern=Vai(Text1.Text)y=max(n)Text2.Text=Str(y)EndSub【答案】①(x\10)mod10②a*100+b*10+c【解析】22?現(xiàn)需計算1*2*3*……％=?有如下程序段，在劃線處填入合適的語句或表達(dá)式，完成程序。s=1i=1DoWhileiV=nS=s*ii=i+1【答案】Loop【解析】23．本程序要求完成的功能是：計算s=1/1+2/(1*2)+3/(1*2*3)+???+n/(1*2*3*???*n)的值。請將已有VB代碼補充完整。n=inputbox(“請輸入n的值”)(1)(1)Fori=1tont=t*is=s+(2)NextiPrints(1)(2)【答案】(l)t=l(2)i/1【解析】24?素數(shù):只能被1和它本身整除的自然數(shù)。要求編寫VB程序找出任意兩個整數(shù)之間中所有的素數(shù)及個數(shù)，程序運行界面如下圖所示。請根據(jù)算法將下列程序補充完整。Functionprime(aAsInteger)AsBooleanDimjAsIntegerprime=Truej=2DoWhileprimeAndj<=a\2IfaModj=0Thenprime=FalseExitDoEndIfLoopEndFunctionPrivateSubCommand1_Click()DimiAsInteger,aAsInteger,bAsIntegerDimcountAsIntegera=Val(Tex11?Text)b=Val(Text2.Text)Fori=aTobf②=TrueThenList1.AddItemStr(i)count=count+1EndIfNextiLabell.Caption="素數(shù)共有"+Str(count)+"個!"EndSub【答案】①j=j+1②prime(i)【解析】本題考核VB基本語句含義的理解，自定義函數(shù)的應(yīng)用。5.有如下VisuaIBasic程序：PrivateSubCommand1_Click()DimsAsIntegerDimIAsIntegerS=0Fori=1To10s=s+i\7NextiText1.text=str(s)Endsub該程序段運行后,文本框Text1中顯示【答案