Visual Basic程序设计-Ch4-数组.pptVIP

* 排序问题 * 排序问题 冒泡法排序 思路是将相邻两个数比较，将小的调到前头。 第1趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已“沉底”，放在最后一个位置，小数上升“浮起”。 第2趟对余下的n-1个数（最大的数已“沉底”）按上法比较，经n-2次两两相邻比较后得到次大的数。 以此类推，n个数共进行n-1趟比较，在第j趟中要进行n-j次两两比较。 * Private Sub Command1_Click() Dim i%, j%, p%, temp% For i=1 to 9 (For i=1 to n-1) For j= 1 to 10-i (For j=1 to n-i) if(a(j)a(j+1) then temp=a(j) a(j)=a(j+1) a(j+1)=temp endif next j next i For i= 1 to 10 print a(i); next I End sub 排序问题 * 查找问题 查找方法：顺序查找、折半查找。 顺序查找： 从数组的第1个元素开始，按顺序依次与number比较，如果某数与number相等，即a(i)=number，则结束查找并显示找到位置i。如果所有数都与其不等，则数组中不存在number这个数。 折半查找： 只能在排好序的数中查找。先确定要查找的数据所在的范围，然后逐步缩小范围，直到找到或找不到该数据为止。 * 折半查找算法 假设有序数据保存在数组元素a(1)-a(N)中，查找的数放在number中，步骤如下： 设low为数组的下界(1)，high为数组的上界(N)。 求[low,high]区间的中间位置mid=(low+high)/2，mid取整数。 如果numbera(mid)，且数列中存在number时，说明number在区间[low,mid-1]范围内，修改新的查找区间，即high=mid-1，返回步骤2。 如果numbera(mid)，且数列中存在number时，说明number在区间[mid+1,high]范围内，修改新的查找区间，即low=mid+1，返回步骤2。 如果number=a(mid)，则查找成功，mid即为所查找位置。 * 查找问题 生成100个[0,100]之间的随机整数作为原始数据，存于数组A中，在数组A中查找指定的元素Number。 * 查找按钮：折半查找法 * 生成随机数按钮 排序按钮：比较交换法 * 数据删除问题 生成20个[0,100]之间的随机整数作为原始数据，存于数组A中，然后删除数组A中指定位置的元素。 分析: 删除数组A中指定的Pos位置的元素，可将Pos位置元素之后的所有元素依次向前移动一位 pos A(Pos)=A(Pos+1) A(Pos+1)=A(Pos+2) … A(N-1)=A(N) For I = Pos To N - 1 A(I) = A(I + 1) Next I * 数据删除问题 设计界面： Text2 Command1 * * 数组插入问题 生成20个[0,100]之间的随机整数作为原始数据，存于数组A中，然后在数组A中指定位置Pos插入Num。 分析: 如果Pos=0，则将Num插在第1个位置 如果Pos=20，则将Num插在最后一个位置 pos Num A(N+1)=A(N) A(N)=A(N-1) …… A(Pos+1)=A(Pos) For I=N+1 To Pos+1 Step -1 A(I) = A(I - 1) Next I * 数组插入问题 设计界面： Text3 Text2 Command1 * liux_yt @163.com 第4章 数组 Visual Basic程序设计 --Visual Basic语言程序设计教程及实验 管理学院信管教研室 * 主要内容 静态数组 动态数组 控件数组 数组常用算法 * 引例 输入10个数，输出它们的平均值及大于平均值的那些数。 若使用A1,A2,A3,A4,A5,A6,A7,A8,A9,A10 Dim N%, S!, Ave!, A1!, A2！….,A10! A1=Val(InputBox(“Enter A1 Number”)) A2=Val(InputBox(“Enter A2 Number”)) A3=Val(InputBox(“Enter A3 Numb