排序查找程序实现习题VIP免费

程序填空练习四（排序、查找程序的初步改编）班级姓名学号1、（选择排序）对N个元素用选择排序法进行排序，元素交换次数SWAP的范围是CA．SWAP∈[0，N]B．SWAP∈[1，N]C．SWAP∈[0，N-1]D．SWAP∈[1，N-1]2、（内码+函数+进制转换）小明观察字符“Baby”的内码如图所示，3、则随机产生一个大写英文字母的VB表达式是CA．Chr(Int(Rnd()*25+41))B．Chr(Int(Rnd()*26+41))C．Chr(Int(Rnd()*25+65))D．Chr(Int(Rnd()*26+65))3、（选择排序2015.9模拟选考）用选择排序对数组b中5个数据“86，23，98，65,2”按从小到大的顺序排序：Fori=1To4k=iForj=i+1To5Ifa(j)iThent=a(i):a(j)=a(k):a(k)=tEndIfNexti整个排序过程中，数组中的数据比较次数和交换次数分别为AA．10次和3次B．10次和4次C．15次和3次D．15次和10次4、（对分查找2015.9模拟选考）编写VB程序,实现如下功能:在文本框Text1中输入一个整数,单击“查找删除”按钮Command1,采用对分查找法在数组A(从小到大排列,并显示在标签Label1中)中查找该数。若找到,则从数组A中删除该数(该数后面的数组元素都前移一位),并在标签Label2中显示删除后的结果(运行效果如图所示);否则,在标签Label2中显示“该数没有找到”。该题图实现上述功能的VB代码如下,但划线处代码有错,请改正，并补充完整空白处的代码。DimA(1To10)AsInteger’用于保存10个按从小到大顺序排列的整数’Form_Load事件过程产生10个整数,按升序保存在数组A中,并在标签Label1中显示PrivateSubForm_Load()代码略EndSubPrivateSubCommand1_Click()DimiAsInteger,jAsInteger,mAsInteger,kAsIntegerDimxAsInteger,fAsBoolean’变量f用于标记是否在数组中找到xx=Val(Text1.Text)i=1:j=10f=FalseDoWhile(i<=j)And(f=False)m=Int((i+j)/2)IfA(m)=xThenf=TrueIfA(m)>xTheni=m+1Elsej=m-1‘(1)答案：a(m)