对分查找课后巩固练习

1、对分查找课后巩固练习1、用对分查找从数列8、11、12、15、17、21、30、35、80中查找数据15,则依次访问的数据为（）A、17-11-12-15B、17-12-15D、17-12-11-15条记录并与待查项进行比较所花时间为8毫秒，则用对分法在该系统中查找任意一位学生档案最多花费的时间约为（）A、160量秒B、80毫秒C、10毫秒D、120量秒3、某对分査找算法的VB程序段如下：i=1：j=9：n=0key=Vai(Textl.Text)DoWhilei二jn=n+1m二Fix(i+j)/2)Ifkey二d(m)ThenExitDo'ExitDo表示退出循环Ifkey<

2、d(m)Thenj二m-1Elsei=m+1Loop数组元素d(l)到d(9)的值依次为“7,12,18,25,39,58,61,72,86”。若该程序段运行结束后，n的值为2,则key的值是()A、39B、18或61C、18或72D、12或614、某对分査找算法的VB程序段如下：1=1：j=7：s=key=Int(Rnd*100)DoWhilei<=jm=(i+j)2Ifkey=a(m)Thens=s+”更：ExitDo'ExitDo表示退出循环Elselfkey<a(m)Thenj二m-1：s二s+”L”Elsei二m+1：s二s+”R”EndIfLoopTextl.T

3、ext=s数组元素a(l)到a(7)的值依次为“24,35,38,41,45,69,78”。若该程序段执行后，文本框Textl中显示的内容可能是A.RLB.LMRC.RLRD.LRLM5、数组a为一组正整数，奇数在前，偶数在后。奇数与偶数已分别按升序排序。依据对分查找思想：设计一个在数组a中查找数据Key的程序。实现该功能的VB程序段如下：i=1：j=10Key=Vai(Textl.Text)DoWhilei<=jm=(i+j)2Ifa(m)二KeyThenExitDo，ExitDo表示退出循环IfKeyMod2=1Anda(m)Mod2=0ThenEElselfKeyMod2=0And

4、a(m)Mod2=1ThenEElseEndIfLoopIfi>jThens=“没有找到！”Elses=“位置：”+Str(m)Text2.Text=s上述程序中方框处可选语句为：®i=m+1j=m_1(3)IfKeyva(m)Thenj=m-1Elsei=m+1则(1)、(2)、(3)处语句依次是A.、B.、C.、D.、6、编写VB程序，实现如下功能：在文本框Textl中输整数x,单击“查找删除”按钮Commandl,在数组a(从小到大排列并显示在标签Label1中)中查找该数。若找到，则从数组a中删除该数(该数后的数组元素都往前移一位)，并在标签Label2中显示删除后的结

5、果(运行效果如图所示)；否则在标签Label2中显示“该数没有找到”。Dima(lTo10)AsIntegerPrivateSubFormLoad()DimiAsIntegerRandomizea(l)二Int(Rnd()*10+1)Labell.Caption=Str(a(l)Fori=2To10a(i)二a(i-1)+Int(Rnd()*10+1)Labell.Caption二Labell.Caption+®NextiEndSubPrivateSubCommandlClick()DimiAsInteger,jAsInteger,DimxAsInteger,fAsBooleanx=Vai(Textl.Text)i=1：j二10：f二FalseDoWhile®m=Ifa(m)=xThenf=TrueElselfTheni=m+1Elsej=LoopIff=TrueThenm As Integer, k As Integer'该数据后面的元素都往前移一位，思考如何移位Fork=mTo9NextkLabel2.Caption=Fork=1To9'逐个显示删除后的数组