2016年10月技術選考VB算法加試題訓練

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

2、er)AsBoolean判斷是否素數(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里面的替換功能。程序運行時,在文本框Text1中輸入原文，在文本框Text2中輸入原字符（要被替換的字符）,在文本框Text3中輸入將要替換成的字符。單擊替換按鈕（Commandl）,將原文（Textl）被替換后的內容顯示在文本框Text4中。程序的運行界面如圖所示。（1）程序加框處代碼有錯，請改正。PrivateSubCommandl_Click(

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

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

6、詞保存在a(i)中，相對應的中文翻譯保存在b(i)中。程序界面如下圖所示，左邊列表框列出所有單詞和中文翻譯,在右邊文本框Textl中輸入一個單詞，單擊“翻譯”按鈕(Commandl),程序就進行查找，如果找到就在標簽Label3中輸出該單詞對應的中文翻譯，否則就輸出“沒有找到該單詞！”。虛線內程序段所采用的查找算法名稱是。程序加框處代碼有錯，請改正。Constn=30Dima(1Ton)AsStringPrivateSubForm_Load()此過程用于將單詞和中文翻譯存儲在數(shù)組a和數(shù)組b中對數(shù)組a按升序進行排序，代碼略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沒查找到EndFunctionPrivateSubCommand1_Click()DimkeyAsString,kAsIntegerkey,二Text1.Textk=searchIf(k0)ThenLabel1.Caption二a(k)ElseLabel1

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