高校问答梦见杀绿色大蟒蛇:请教关于VB的问题
来源：百度文库 编辑：高校问答 时间：2024/05/13 19:53:41
根据要求分别编两个过程：
(1) 编一个冒泡法排序子过程，对己知的若干个整数按递增次序排列。
[ 提示 ]
子过程形式为：
Sub Sortl(a%())
(2) 编一个二分法查找函数过程，查找某数，找到返回该数在数组中的下标位置，找不到值为 -1 。
函数过程形式为：
Function Searchl(a%() ， Key%) As Integer
a%() 为有序的数组， Key% 为要查找的某数。
主调程序可通过随机函数产生若干个数，先后调用 Sort1 子过程和 Search 函数过程。
(1) 编一个冒泡法排序子过程，对己知的若干个整数按递增次序排列。
[ 提示 ]
子过程形式为：
Sub Sortl(a%())
(2) 编一个二分法查找函数过程，查找某数，找到返回该数在数组中的下标位置，找不到值为 -1 。
函数过程形式为：
Function Searchl(a%() ， Key%) As Integer
a%() 为有序的数组， Key% 为要查找的某数。
主调程序可通过随机函数产生若干个数，先后调用 Sort1 子过程和 Search 函数过程。
冒泡法排序：
for i =1 to max-1
for j= i+1 to max
if a(i)>a(j) then 交换
next
next
折中法查找就是每次与排列的中间一个值比较，若KEY大于这个值则搜索范围缩小为max\2到max之间，若小于这个值则缩小为1到fix(max/2)之间，依次类推，当KEY找到或min+1=max时退出循环。