暴力法排序

dim scores(6)

scores(0)=96

scores(1)=97

scores(2)=94

scores(3)=56

scores(4)=44

scores(5)=32

scores(6)=79

loopcounter = 0

for i = 0 to 6 '依序排出最大、次大、三大......第七大(最小)值

  max=0

  for j = 0 to 6 '依序找出陣列中最大值

    if scores(j) > max then

      max = scores(j)

      maxid = j

    end if

    loopcounter = loopcounter + 1

  next

  msgbox("第" & i + 1 & "名是" & maxid + 1& "號" & max & "分")

  scores(maxid)=0 '回報最大值後，就把他設成最小值0

next

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