《排序查找程序实现习题.docx》由会员分享，可在线阅读，更多相关《排序查找程序实现习题.docx（4页珍藏版）》请在三一文库上搜索。
1、程序填空练习四（排序、查找程序的初步改编）班级 姓名 学号 1、 （选择排序）对N个元素用选择排序法进行排序，元素交换次数SWAP的范围是 CASWAP0，NBSWAP1，NCSWAP0，N-1DSWAP1，N-12、 （内码+函数+进制转换）小明观察字符“Baby”的内码如图所示，3、 则随机产生一个大写英文字母的VB表达式是CAChr(Int(Rnd()*25+41)BChr(Int(Rnd()*26+41)CChr(Int(Rnd()*25+65)DChr(Int(Rnd()*26+65)3、 （选择排序2015.9模拟选考）用选择排序对数组b中5个数据“86，23，98，65,2”按从
2、小到大的顺序排序：For i=1 To 4k=iFor j=i+1 To 5If a(j)a(k) Then k=jNext jIf ki Thent=a(i):a(j)=a(k):a(k)=tEndIfNext i整个排序过程中，数组中的数据比较次数和交换次数分别为AA10次和3次B10次和4次C15次和3次D15次和10次4、 （对分查找2015.9模拟选考）编写VB程序,实现如下功能:在文本框Text1中输入一个整数,单击“查找删除”按钮Command1,采用对分查找法在数组A(从小到大排列,并显示在标签Label1中)中查找该数。若找到,则从数组A中删除该数(该数后面的数组元素都前移一
3、位),并在标签Label2中显示删除后的结果(运行效果如图所示);否则,在标签Label2中显示“该数没有找到”。该题图实现上述功能的VB代码如下,但划线处代码有错,请改正，并补充完整空白处的代码。Dim A(1 To 10) As Integer用于保存10个按从小到大顺序排列的整数Form_Load事件过程产生10个整数,按升序保存在数组A中,并在标签Label1中显示Private Sub Form_Load()代码略End SubPrivate Sub Command1_Click()Dim i As Integer,j As Integer, m As Integer,k As In
4、teger Dim x As Integer,f As Boolean变量f用于标记是否在数组中找到xx=Val(Text1.Text)i=1:j=10f=FalseDo While (ix Then i=m+1 Else j=m-1(1) 答案：a(m)xLoopIf Then 答案：f=trueFor k=m To 9A(k+1)=A(k)答案：A(k)=A(k+1)(2)Next kLabel2.Caption=For k=1 To 9Label2.Caption=Label2.Caption+Str(A(k)+Next kElseLabel2.Caption=该数没有找到EndIfEn
5、d Sub5、（双重循环+累加）编写Visual Basic程序，实现显示九九乘法表，程序运行界面如图所示。单击“九九乘法表”按钮（Command1），在列表框List1中输出一张九九乘法表。（1）要使窗体的标题显示为“九九乘法表”， 可在其属性窗口中将 属性值修改为“九九乘法表”。 （2）为实现上述功能，请在划线处填入合适代码。Private Sub Command1_Click()Dim s As String, i, j As IntegerFor i = 1 To 9 s = For j = 1 To 答案：i s = s + Str(j) + * + Str(i) + = + + 答
6、案：str(i*j) Next j 答案：list1.additem s Next i End Sub6、下列VB程序的功能是：程序运行时，单击命令按钮Commandl后，产生10个1，999范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中。数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。（1）虚线框内程序段所采用的排序算法名称是 。（填：冒泡排序/选择排序）（2）在程序划线处，填入适当的语句或表达式，把程序补充完整。 （3）现有某数组
7、b内放有5个数，分别为“55,77,11,1,33”，利用该排序方式排序，运行结束后，共比较了 次，数据交换了 次。答案：10次和7次Dim a(1 To 10) As IntegerFunction f(x As Integer) As Boolean 代码略End FunctionPrivate Sub Commandl_Click()Dim n As Integer n用于统计已经产生的随机整数个数Dim i As Integer.j As IntegerDim x As Integer.k As IntegerRandomize 初始化Rnd函数n=0List1.Clear 清除列表框中内容List2.ClearDo While n10 x= 答案：int(rnd()*999)+1 产生1，999范围内的随机整数 If Not f(x) Then n=n+1 a(n)=x List1.AddItem Str(a(n) End IfLoopFor i=1 To 答案：9 For j=10 To i+1 step -1 If Then答案：a(j)a(j-1) k=a(j):a(j)=a(j-1):a(j-1)=k End If Next j Next i For i=1 To 10 List2.AddItem Str(a(i)Next iEnd Sub