泡沫排序

dim scores(6)

dim number(6)

scores(0)=96

scores(1)=97

scores(2)=94

scores(3)=56

scores(4)=44

scores(5)=32

scores(6)=79

number(0)=1

number(1)=2

number(2)=3

number(3)=4

number(4)=5

number(5)=6

number(6)=7

loopcounter = 0

for i = 0 to 6

  for j = 0 to (6-i-1)

    if scores(j) > scores(j+1) then

      tmp = scores(j)

      scores(j) = scores(j+1)

      scores(j+1) = tmp

      tmp = number(j)

      number(j) = number(j+1)

      number(j+1) = tmp

    end if

    loopcounter = loopcounter + 1

  next

  msgbox("第" & i + 1 & "名是" & number(6-i) & "號" & scores(6-i) & "分")

next

msgbox("總共跑了" & loopcounter & "圈")