VB编程题 急急急！！！！！！！！！！！！

来源：百度知道 编辑：UC知道 时间：2024/06/19 00:26:03
有20名歌手参加演唱比赛，有10个评委对歌手的演手评分。每个歌手的得分为去掉一个最高分和最低分后的平均得分。计算歌手的得分，统计每个评委打出打出最高分和最低分的次数（评委打分可用随机数模拟）

稍等！

好了！
把窗口拉大一点以方便在窗口上显示内容，不用控件，点击窗口即可运行，代码如下：
Dim F(20, 12) As Single, Max As Single, Min As Single
Dim I As Integer, J As Integer, Gd(2, 10) As Integer

Private Sub Form_Click()
Form1.AutoRedraw = True
Randomize
For I = 1 To 20
Print "第"; I; "名歌手得分：";
For J = 1 To 10
F(I, J) = Int(Rnd * 100) / 10
Print Format(F(I, J), "0.0"); " ";
Next
Max = F(I, 1)
Min = F(I, 1)
F(I, 11) = 1
F(I, 12) = 1
F(I, 0) = F(I, 1)
For J = 2 To 10
F(I, 0) = F(I, 0) + F(I, J)
If Max < F(I, J) Then
Max = F(I, J)
F(I, 11) = J
End If
If Min > F(I, J) Then
Min = F(I, J)
F(I, 12) = J
End If<