作者fumizuki (小獅子)
看板Visual_Basic
標題Re: [VB6 ] 新手問題>"<
時間Mon Oct 24 16:34:49 2005
※ 引述《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
1F：推 darkwu:大謝O_Q 可以再請教一下for each e in score的意思嗎？>"< 10/24 19:58