第7章 数组例题汇总以及上机作业ppt课件

本章上机,本章所有作业题,上机验证或编制调试实验8的案例3杨輝三角讲过的典型例题上机验证,第七章数组,1）.可通过循环给数组元素赋初值Fori=1To10A数组的每个元素值为1A(i)=1Nexti2）.数组的输入输入10个数，并存入到数组A中Fori=1To10A(i)=Val(InputBox(“输入A(”IfiMod10=0ThenPrint每行打印10个元素NextiPrintFori=1ToN1排序p=iForj=i+1ToNIfa(p)a(j)Thenp=jNextjt=a(i):a(i)=a(p):a(p)=t交换数据NextiPrint排序后数据:Fori=1ToNPrinta(i);IfiMod10=0ThenPrint打印换行NextiEndSub,Fori=1Ton-1Forj=1Ton-iIfa(j)a(j+1)Thent=a(j)：a(j)=a(j+1)：a(j+1)=tEndifNextjNexti,冒泡法排序（升序）程序：,演示,第五章数组,一维数组的应用数据排序,二维数组数据的输入,ConstN=4,M=5,L=6Dima(1toN,1toM)AsInteger,i%,j%,k%1）.给二维数组a输入数据的程序段如下：Fori=1to4Forj=1to5A(i,j)=Val(InputBox(a（MaxPrint在第第Spc(2);IfiMod10=0ThenPrint输出10个数据后换行NextiPrintEndSub,习题在一个文本框中，输入多个用“，”分隔的整数，按回车键后，将各数据按升序打印输出在窗体上。程序运行情况如图所示。,动态数组,PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenDimi%,j%,p%,n%,m%,t%Dimb()AsInteger,a()AsString将文本框输入的文本,以,为分隔符分离字符子串存入数组a的各元素中a=Split(Text1.Text,)n=LBound(a):m=UBound(a)ReDimb(nTom)Fori=nTom将数组a中的数字字符串转化成数字存入数组b中b(i)=Val(a(i)NextiFori=nTom-1排序p=iForj=i+1TomIfb(p)b(j)Thenp=jNextjt=b(i):b(i)=b(p):b(p)=tNextiFori=nTom将排序后的数据输出到窗体上Printb(i);NextiEndIfEndSub,大量数据的输入和处理例7-9输入一个45的二维整数数组，输出数组元素的平均值及该数组。PrivateSubForm_Click()DimA(1To4，1To5)AsInteger,iAsInteger,jAsIntegerDimAverageAsInteger,SumAsIntegerSum=0Fori=1To4按行依次输入各元素值Forj=1To5A(i,j)=Val(InputBox(请输入A(NextjPrintNextiEndSub,寻找最大值或最小值例7-10求数组中最大元素和所在下标及各元素之和。部分程序代码如下：DimMaxAsInteger,iMaxAsInteger,sumAsInteger.Max=a(1):iMax=1:sum=a(1)Fori=2To10sum=sum+a(i)Ifa(i)MaxThenMax=a(i)iMax=iEndIfNexti,数组排序排序是将一组数按递增或递减的次序重新排列。常用的排序算法有选择法、冒泡法、插入法和合并排序等。1.选择法排序选择法是在每一轮排序时找最小（递增顺序）数的下标，出了内循环（一轮排序结束），再交换最小数的位置。例7-11选择排序法的应用。2.冒泡法排序冒泡法在每一轮排序时将相邻的数比较，当次序不对就交换位置，出了内循环，最小数已冒出。例7-12冒泡法排序法的应用。,数组中元素的插入和删除操作1.插入例7-14设有一按升序排列的有n个元素的数组a（数组元素均为整数），现要将一个数“11”插入其中后仍保持其有序。解题算法描述如下：（1）查找插入位置k(1kn-1)；（2）从n-1到k逐一往后移动一个位置，将第k个元素的位置腾出；（3）将数据插入。,程序代码如下：PrivateSubCommand1_Click()Dima%(1To10),i%,k%Print插入前：；Fori1To9a(i)2*iPrinta(i)；NextiFork1To9If11a(k)ThenExitForNextkFori9TokStep1a(i1)a(i)Nextia(k)11Print:PrintPrint插入后：；Fori1To10Printa(i)；NextiEndSub,程序的运行结果如下图：,2.删除删除算法的步骤如下：（1）查找欲删除的元素所在位置k；（2）从k+1到n个位置开始逐个向前移动；（3）将数组元素个数减1。,相关代码如下：Dima()ReDima(1Ton)Forik1Tona(i1)a(i)NextiReDimPreservea(1Ton1),交换数组中各元素交换数组中的各元素，实际上是找下标之间的规律，在数组操作时经常使用。例7-15交换的要求是将数组第1个元素与最后一个元素交换，第2个元素与倒数第2个元素交换，以此类推。结果如图所示。,程序代码如下：OptionBase1PrivateSubForm_Click()Dima()aArray(a，b，c，d，e，f，g，h，i，j)Print交