Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim score As Single, n As Integer, sum As Integer = 0
Dim c1 As Integer = 0, c2 As Integer = 0, c3 As Integer = 0, c4 As Integer = 0, c5 As Integer = 0
n = CInt(InputBox("输入几个人的成绩?"))
For i ... |