作业帮 > 综合 > 作业

再求vb高手.利用二分法查询有序数列.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/08 01:06:26
再求vb高手.利用二分法查询有序数列.
编写程序,随机产生15个100以内的整数,使用“二分法查询”方法对数组中的元素值进行查询(提示:只能对有序数进行查询).
要求:若指定的数存在,则显示该数并指出在数组中的位置,若不存在,则显示“查无此数”.
产生完15个随机数后,要进行有序排列.
假定数组为S(15)
private sub NumCheck(byval Tmp1 as long)
dim I as long
i=int(15/2)
if s(i)tmp1 then
while s(i) tmps1
if (tmp1>s(i) and tmp1S(i) then
i=int(i/2)
else
i=i+int(15-i)
end if
wend
else
print tmp1
print i
end if
end su