高校问答金庸群侠传2狄云:VB怎么用冒泡排序?
来源：百度文库 编辑：高校问答 时间：2024/04/26 21:50:08
dim aaa(1000,3) as single
dim chan(3) as single
dim j,k as single
for j=0 to 1000-1
for k= 0 to 1000-1-j
if(aaa(k,1)>aaa(k+1,1))
chan(k,0)=aaa(k,0)
chan(k,1)=aaa(k,1)
chan(k,2)=aaa(k,2)
冒泡的思路我知道，可是到两个数据交换的时候就很麻烦了，
怎么做？
我的那数组上有有字符 还有 数字
dim chan(3) as single
dim j,k as single
for j=0 to 1000-1
for k= 0 to 1000-1-j
if(aaa(k,1)>aaa(k+1,1))
chan(k,0)=aaa(k,0)
chan(k,1)=aaa(k,1)
chan(k,2)=aaa(k,2)
冒泡的思路我知道，可是到两个数据交换的时候就很麻烦了，
怎么做？
我的那数组上有有字符 还有 数字
有两种办法。
一个用swap函数
二是写三条语句
A和B交换要借助第三个变量S
S=A
A=B
B=S