1.請問一下
我做了一歌唱比賽的程式
那總共有五位評審與十位參賽者
我現在已用陣列的方式
將各參賽者的成績及總分一一輸出在表單上
我現在想要將各歌者的成績做一個排名
那我該如何做
我不知道要怎麼做它才能將名次排列出
煩請告知謝謝

2.我不太懂你說的方法耶
我把程式碼貼上來
請你幫我看看好了
那我覺得應該可以在把程式簡化
可是又不知怎麼做
所以煩在請教囉
Picture1.Cls
For i = 0 To 10
table(i, 7) = 0

Next i
Picture1.Print "編號"; Tab(10); "歌者"; Tab(20); "評審1"; Tab(30); "評審2"; Tab(40); "評審3"; Tab(50); "評審4"; Tab(60); "評審5"; Tab(70); "總分"; Tab(80); "總平均"
table(0, 0) = 0
table(1, 0) = table(0, 0) + 1
table(2, 0) = table(1, 0) + 1
table(3, 0) = table(2, 0) + 1
table(4, 0) = table(3, 0) + 1
table(5, 0) = table(4, 0) + 1
table(6, 0) = table(5, 0) + 1
table(7, 0) = table(6, 0) + 1
table(8, 0) = table(7, 0) + 1
table(9, 0) = table(8, 0) + 1
table(10, 0) = table(9, 0) + 1
For i = 0 To 10
For j = 2 To 6
  table(i, 7) = table(i, 7) + table(i, j)
  Next j
  table(i, 8) = table(i, 7) / 5

Next i
For i = 0 To n - 1
For j = 0 To 8
  Picture1.Print Tab(j * 10); table(i, j);

Next j
Picture1.Print
Next i
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(0) 人氣()