数组与自定义类型.ppt

*5.对于给定的一组数15、8、4、13、6、10、17、1，键盘输入一个数，用顺序查找法找出该数在数组中的位置。分析：假设用变量p来标记是否找到，用x存放想查找的数。给变量p赋初值为false，使x与数组中的每一个元素进行比较，如果相等，给变量p赋值为true，表示找到了，并退出循环。如果所有的数都与x比较,但找不到与x相等的数，则p值仍为false。循环结束后，可根据变量p的值判断是否找到要找的数。OptionBase1Dima(),m%,n%，i%PrivateSubcommand1_Click()Dimx!,pAsBoolean,i%x=InputBox(请输入要查找的数)p=FalseFori=mTonIfx=a(i)Thenp=TrueExitForEndIfNextiIfp=TrueThenMsgBox找到了，在数组中的位置为第i位ElseMsgBox没找到！EndIfEndSubPrivateSubForm_Load()Showa=Array(15,8,4,13,6,10,17,1)m=LBound(a)n=UBound(a)Fori=mTonPrinta(i);NextiPrintEndSub*6.将一个数插入到数组中指定位置数组中元素的插入过程是：1）输入插入的位置及要插入的数2）增加数组元素的个数3）将待插入位置以后的数逐一后移一位，腾出插入位置4）在插入位置插入数Dima(),m%,n%,i%PrivateSubCommand1_Click()x=InputBox(“请输入要插入的数)Dok=InputBox(请输入要插入的位置，范围是m～n)LoopUntilk=mAndk=nn=n+1ReDimPreservea(n)Fori=n-1TokStep-1a(i+1)=a(i)Nextia(k)=xFori=mTonPrinta(i);NextiPrintEndSubPrivateSubForm_Load()Showa=Array(15,8,4,13,6,10,17,1)m=LBound(a)n=UBound(a)Fori=mTonPrinta(i)NextiPrintEndSub*7.删除数组中指定的元素数组中元素的删除过程：1）输入要删除的数2）设置一个变量p表示是否找到，给p赋值为false。在数组中查找要删除的数的位置，如果有这个数，将该数所在数组中位置赋值给k，给p赋值为true，将k以后的每一位元素前移一位，实现删除操作。3）比较完了根据p的值判断是否找到，p为false则给出相应信息，如果p为true则减少数组元素的个数，将删除后数组元素输出。Dima(),m%,n%PrivateSubCommand1_Click()Dimx!,pAsBooleanx=InputBox(“请输入要删除的数”)：p=FalseFori=mTonIfa(i)=xThenp=True:k=iForj=k+1Tona(j-1)=a(j)NextjEndIfNextiIfp=FalseThenMsgBox没有要删除的数Elsen=n-1ReDimPreservea(n)Print：Print删除x后的元素为Fori=mTonPrinta(i);NextiEndIfEndSubPrivateSubForm_Load()Showa=Array(15,8,4,13,6,10,17,1)m=LBound(a)：n=UBound(a)Fori=mTonPrinta(i);NextiEndSub1．二维数组的定义格式：Dim数组名（下界1TO上界1，下界2TO上界2）[As数据类型］二维数组一般可以看成是一个二维表、行列式、矩阵或平面