
1个回答
展开全部
假设需要排序的内容存在于数组item()中 dim a,b as int16 for a =len(item)-1 to 0 step -1'遍览数组中的所有元素 for b = a-1 to 0 step -1'遍览剩下的所有元素 if item(a)>item(b) then'将当前元素与其前面的所有元素进行比较如果当前元素较大则与之前的元素进行交换 dim temp =item(b) item(b)=item(a) item(a)=temp next b next a
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询