1、 算法加試題一周一練(8)行政班：教學(xué)班：姓名：學(xué)號(hào)：【加試題1】下列VB程序的功能是：查找四位正整數(shù)中的超級(jí)素?cái)?shù)。素?cái)?shù)又稱質(zhì)數(shù)，指在一個(gè)大于1的自然數(shù)中，除了1和此整數(shù)自身外，沒(méi)法被其他自然數(shù)整除的數(shù)。超級(jí)素?cái)?shù)的定義為：當(dāng)一個(gè)素?cái)?shù)從低位到高位依次去掉一位數(shù)后剩下的數(shù)仍然是素?cái)?shù)，則此數(shù)為超級(jí)素?cái)?shù)。如數(shù)7331、733、73、7均為素?cái)?shù)，所以7331為超級(jí)素?cái)?shù)。程序運(yùn)行時(shí)，單擊Command1，則在列表框List1中顯示所有四位數(shù)的超級(jí)素?cái)?shù)。程序流程圖如圖所示虛線內(nèi)程序段所采用序算法名稱是(枚舉、解析、對(duì)分查找)程序加框處代碼有錯(cuò)，請(qǐng)改正。PublicFunctionprime(xAsInteg

2、er)AsBoolean判斷是否素?cái)?shù)，若是返回True，否則返回FalseDimiAsIntegerIfx=1Thenprime=FalseExitFunctionElseITOC o 1-5 h zIFori=2Tox2IfxModi=0Then:prime=False:I.I；ExitFunctioniLEndIfJNextiprime=TrueEndIfEndFunctionPrivateSubCommand1_Click()DimiAsInteger,tmpAsIntegerDimflagAsDoubleFori=1001To9999Step2tmp=iflag=TrueDoWhile

3、tmp0IfNotprime(tmp)Thenflag=FalseExitDoEndIftmp=tmp/10LoopIfflagThenList1.AddItemStr(i)NextiEndSub【加試題2】下列程序的功能是：模擬字處理軟件word里面的替換功能。程序運(yùn)行時(shí),在文本框Text1中輸入原文，在文本框Text2中輸入原字符（要被替換的字符）,在文本框Text3中輸入將要替換成的字符。單擊替換按鈕（Commandl）,將原文（Textl）被替換后的內(nèi)容顯示在文本框Text4中。程序的運(yùn)行界面如圖所示。（1）程序加框處代碼有錯(cuò)，請(qǐng)改正。PrivateSubCommandl_Click(

4、)Dimst1AsString,st2AsStringDimtmpAsIntegerDimch1AsString,ch2AsStringDimiAsInteger,lent1AsIntegerDimlent2AsInteger,lengthAsIntegerDimflagAsBooleanst1=Text1.Textlent1=Len(st1)原文長(zhǎng)度ch1=Text2.Textlent2=Len(ch1)原字符長(zhǎng)度length=lent1-lent2+1ch2=Text3.Text要替換成的字符i=0st2=flag=FalseDoWhilei=lengthtmp=Mid(st1,i,len

5、t2)從原文i開始取lent2長(zhǎng)度的子串，與原字符比較Iftmp=ch1Then和原字符比較flag=True嚴(yán)2=st2+中2如果子串和原字符串相等，則替換為ch2i=i+1Elsetmp=Mid(st1，i，1)st2=st2+tmpi=i+1EndIfLoopIfflagThenText4.Text=st2ElseMsgBox(沒(méi)有找到匹配的字符串)EndIfEndSub【加試題3】下列程序的功能是：模擬電子詞典翻譯單詞的過(guò)程。電子詞典里面有個(gè)字典庫(kù)，通過(guò)查找字典庫(kù)，找到相應(yīng)的單詞，然后輸出字典庫(kù)里面該單詞對(duì)應(yīng)的中文意思。下列程序中數(shù)組a用來(lái)存儲(chǔ)英文單詞，數(shù)組b用來(lái)存儲(chǔ)中文意思，第i個(gè)單

6、詞保存在a(i)中，相對(duì)應(yīng)的中文翻譯保存在b(i)中。程序界面如下圖所示，左邊列表框列出所有單詞和中文翻譯,在右邊文本框Textl中輸入一個(gè)單詞，單擊“翻譯”按鈕(Commandl),程序就進(jìn)行查找，如果找到就在標(biāo)簽Label3中輸出該單詞對(duì)應(yīng)的中文翻譯，否則就輸出“沒(méi)有找到該單詞！”。虛線內(nèi)程序段所采用的查找算法名稱是。程序加框處代碼有錯(cuò)，請(qǐng)改正。Constn=30Dima(1Ton)AsStringPrivateSubForm_Load()此過(guò)程用于將單詞和中文翻譯存儲(chǔ)在數(shù)組a和數(shù)組b中對(duì)數(shù)組a按升序進(jìn)行排序，代碼略EndSubFunctionsearch(keyAsString)AsIn

7、tegerTOC o 1-5 h zDimiasInteger,jasInteger丁=_17j=_n；:DoWhilei=j；;m=(i+j)2!；Ifa(m)=keyThenI；search=m:ExitFunctioniElseIfkeya(m)Then；1J=m-1i1Else!I；i=m+1i:EndIf；Loop；search=0沒(méi)查找到EndFunctionPrivateSubCommand1_Click()DimkeyAsString,kAsIntegerkey,二Text1.Textk=searchIf(k0)ThenLabel1.Caption二a(k)ElseLabel1

8、.Caption=沒(méi)有找到該單詞！EndIfEndSub【加試題4】下列VB程序的功能是找出所有零巧數(shù)。所謂零巧數(shù)是具有下述特征的四位正整數(shù)：其百位數(shù)為0，如果去掉0，得到一個(gè)三位正整數(shù)，而該正整數(shù)乘以9，等于原數(shù)。例如2025=225*9，所以2025是零巧數(shù)。程序運(yùn)行時(shí)，單擊計(jì)算按鈕(Commandl),在列表框List1中顯示所有符合條件的數(shù)字，程序的運(yùn)行界面如圖所示。請(qǐng)?jiān)趧澗€上填入合適的代碼。PrivateSubCommandl_Click()DimxAsInteger,aAsInteger,bAsIntegerDimcAsInteger,dAsInteger,iDimflagAsBooleanDimstAsStringFori=l000To9099flag=DimcAsInteger,dAsInteger,iDimflagAsBooleanDimstAsStringFori=l000To9099flag=FalseAsIntegera=b=il000(il00)Modl0c=(il0)Modl0d=Ifb=0Thenx