杭州交通信息网天刀功力怎么到3万:高手进来看看，一个关于VB的程序设计题！
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/30 04:09:36
老师布置的2个VB程序设计题，想破头都不知道该怎么做，高手帮忙看下，谢谢！
根据要求分别编两个过程：
(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 函数过程。
这是什么东东啊？
评论 ┆ 举报
最佳答案此答案由提问者自己选择，并不代表百度知道知识人的观点
回答：win_server20.
学长
5月19日 00:10 function sjx(a,b,c)
dim p as single,s as single
if (a+b)>c and (a+c)>b and (b+c)>a and a>0 and b>0 and c>0 then
p=(a+b+c)/2
s=sqr(p*(p-a)*(p-b)*(p-c))
else
s=0
end if
sjx=s
end function
这是一个function，不能放到sub里。
打错了，开平方是sqr() 不是sqrt
该回答在5月22日 18:16由回答者修改过
揪错 ┆ 评论2 ┆ 举报