為什麼沒有辦法把輸入的數值(減最高分和減最低分再平均呢?)
那裡寫錯了呢?(我是買王國榮新觀念的VB6在259頁的第5題)
請各位老鳥幫忙一下
Dim score(4, 9)
For i = 0 To 4
Sum = 0
For j = 0 To 9
score(i, j) = Val(InputBox("請輸入第" & i + 1 & "位歌者第" & j + 1 & "評審分數"))
Sum = Sum + score(i, j)
Next j
Max = UBound(score, 2) 'ubound不是會把第二維的最高分數給max嗎?
Min = LBound(score, 2) 'lbound不是會把第二維的最低分數給min嗎?
Print "第"; i + 1; "位歌者的分數為"; Sum - Min - Max; "平均分數為"; (Sum - Max - Min) / 10
Next i