※ 引述《darkwu (GoPets ID：darkwu2003)》之铭言： : 小弟最近在靠"新观念的Visual Basic 6.0教本"在学习VB : 对於每章後面的习题遇到了些问题，因为没附解答的关系所以来此求助QQ" : 题目是： : 歌唱大赛5位歌者进入总决赛，有10分评审参与评分工作，但每位歌者所获得的 : 10位评审分数中，要先去掉最高分与最低分再平均才是歌者的得分，试写一程 : 式记录10位评审给5分歌者的分数，最後再计算每位歌者的得分。 : 我的问题在於也许最高分和最低分别非各只有1个 : 也许是2个高最3个低这样。 : 但这样的话我不知道如何让它自己判别"个数"及除数~"~ : 请问有人可以帮忙吗...？3Q~ @@ 那我前面记录的部份就略过不写了@@ score(0) score(1) .... 分别存五位参赛者的成绩(阵列) score(0)(0) score(0)(1) score(0)(2) ... 分别存十位评审给的分数 score(1)(0) score(1)(1) score(1)(2) ... 以此类推 For i = 0 To 4 '找最大值与最小值 min = score(i)(0): max = min For Each e In score(i) If e < min Then min = e If e > max Then max = e Next '成绩加总，min 和 max 略过 c = 0 For Each e In score If e <> min And e <> max Then c = c + 1: sc(i) = sc(i) + e Next '求平均值 sc(i) = sc(i) \ c Print "参赛者" & (i + 1) & " " & sc(i) & "分" Next -- ▃▅▇▆▄ ▆▂▃ ` 逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" . █████████▃i ▁▄▇ 更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄* ◢ ▂█▄▇▅▂▌. 我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 61.222.155.162