建一个Command1，单击按钮即可。（百分制，无小数）代码如下。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝Private Sub Command1_Click()Dim i As Integer, s As Integer, n As Integer, a(100) As Integern = InputBox("请输入学生人数")For i = 1 To ns = InputBox("请输入第" & i & "个学生的成绩")a(s) = a(s) + 1NextFor i = 0 To 100If a(i) > 0 Then Print "分数为" & i & "的学生共有" & a(i) & "人"Ne
