Question

vb编程 某次歌手大赛,有10个评委给某选手打分,分数为0到100的整数,求出该选手的平均分

Answer 1

添加一个按钮, 把以下代码复制进去：

Option Explicit
Private Sub Command1_Click()
    Dim i As Long, score(9) As Integer, scores As Long, s As String
    Randomize Time
    For i = 0 To 9 '10个评委
        score(i) = Int(Rnd * 99) + 1 '随机100以内一个整数分数
        scores = scores + score(i) '累积总分, 供计算平均分用
        s = s & CStr(score(i)) & ", " '成绩单
    Next
    MsgBox "打分情况: " & s & vbCrLf & "随机打分后, 计算的平均分为: " & scores / 10 & "." '打分
End Sub