PB冒泡排序

最新推荐文章于 2020-11-22 09:57:17 发布

满上

最新推荐文章于 2020-11-22 09:57:17 发布

阅读量281

点赞数

分类专栏： pb

本文链接：https://blog.csdn.net/tomandllj/article/details/99826325

版权

pb 专栏收录该内容

30 篇文章 1 订阅

订阅专栏

long ll_i, ll_k, ll_data[], ll_temp, ll_cnt
ll_data={10,15,8,23,6,4,58,96,89,65}

//冒泡排序
ll_cnt = upperbound(ll_data)
for ll_i = 1 to ll_cnt - 1
	ll_temp = ll_data[ll_i]
	for ll_k = ll_i + 1 to ll_cnt
		if ll_temp > ll_data[ll_k] then
			ll_data[ll_i] = ll_data[ll_k]
			ll_data[ll_k] = ll_temp
			ll_temp = ll_data[ll_i]
		end if
	next
next

string ls_data
for ll_i = 1 to ll_cnt
	ls_data += string(ll_data[ll_i]) + ','
next
ls_data = left(ls_data, len(ls_data) - 1)
messagebox('', ls_data)