vb 冒泡排序

来源：百度知道 编辑：UC知道 时间：2024/05/10 11:06:22
我有一些数据如:
小张 30
小王 50
小李 70
........
我想进行一个排序
我将这些数据读入到两个数组中
a数组保存名字,B数据保存数字,然后进行排序后再显示出来..
不知道代码该怎么写啊?
我真的很笨啊,我不知道在哪里显示出来啊?
text1.text=text1.text & ta & " " & tb & vbcrlf

不知道这句应该放在哪个位置啊... 帮帮忙啦

我按照你给的代码排不了序的? 还是按照原来的显示出来的

冒泡法你懂吧?比较B数,在交换B数时把A数也交换

冒泡法是吧,这比较简单
a()=名字....
b()=数字....
dim la as long
dim tb as long,ta as string
dim i as long,j as long
la=ubound(a)
for i=1 to la
for j=la to i step -1

if b(j)>b(j-1) then
tb=b(j)
b(j)=b(j-1)
b(j-1)=tb

ta=a(j)
a(j)=a(j-1)
a(j-1)=ta
end if

next j
next i

for i=0 to la
text1.text=text1.text & a(i) & " " & b(i) & vbcrlf
next i

连那句都不知道应该放在哪个位置的话...你真应该认真复习一下了.
一旦你把基本的搞懂了,学下去就轻松了

Sorry!!漏了step -1,已经更正了