Re: [VB6 ] 新手問題>"<

看板Visual_Basic作者fumizuki (小獅子)時間19年前 (2005/10/24 16:15)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串2/2 (看更多)

※ 引述《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