Re: 拜託大家幫幫忙！！急救！！

[icehorng (萊汀)]

※ 引述《berniey (yuki)》之銘言：
: 請大家幫我寫個ＶＢ程式～題目如下
: 歌唱大賽5位歌者進入總決賽，有十位評審參與評分工作，但每位歌者所獲得的十
: 位評審分數中，要先去掉最高分與最低分再平均才是歌者的得分，試寫一程式記錄
: 十位評審給五位歌者的分數，最後再計算每位歌者的得分
: 拜託～大家幫幫忙
: 把程式檔ＰＯ在上面吧
: 謝謝～～～
Module Module1

    Sub Main()
        Dim i, j, min, max
        Dim x(4, 9), sum(4)
        For i = 0 To 4
            Console.Write("請輸入十位評審給第 ")
            Console.Write(i + 1)
            Console.WriteLine(" 位的成績")
            sum(i) = 0
            For j = 0 To 9
                Console.Write("第 ")
                Console.Write(j + 1)
                Console.WriteLine(" 位評審 : ")
                x(i, j) = Val(Console.ReadLine())
                sum(i) = sum(i) + x(i, j)
            Next
            min = x(i, 0)
            max = x(i, 0)
            For j = 0 To 9
                If x(i, j) < min Then min = x(i, j)
                If x(i, j) > max Then max = x(i, j)
            Next
            Console.Write("第 ")
            Console.Write(i + 1)
            Console.Write(" 位平均 : ")
            Console.WriteLine((sum(i) - max - min) / 8)
        Next

    End Sub

End Module

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.115.229.222