230问答网 > 编写VB程序，5名选手参加比赛，10个评委打分，计算每位选手最高分，最低分，平均分，要求使用数组来

编写VB程序，5名选手参加比赛，10个评委打分，计算每位选手最高分，最低分，平均分，要求使用数组来

2025-03-26 05:18:49

推荐回答（1个）

回答1：

Private Sub Command1_Click()
'产生分数
Dim Cj(1 To 5, 1 To 10) As Single
Randomize (Timer)
For i = 1 To 5
For j = 1 To 10
Cj(i, j) = Int(Rnd * 101)
Print Cj(i, j);
Next j
Print
Next i
'处理分数
Dim Zf As Single
Dim Zgf As Single
Dim Zdf As Single
For i = 1 To 5
Zf = 0
Zgf = 0
Zdf = 100
For j = 1 To 10
Zf = Zf + Cj(i, j)
If Zgf < Cj(i, j) Then Zgf = Cj(i, j)
If Zdf > Cj(i, j) Then Zdf = Cj(i, j)
Next j
Print "总分为：" & Zf & "，最高分为：" & Zgf & "，最低分为：" & Zdf
Next i
End Sub