'某个班有十名学生从键盘输入成绩,统计不及格和及格的人数 Private Sub Form_Click() Dim jige As Integer Dim bujige As Integer Dim score As Single Dim i As Integer jige = _________________ bujige = ___________________ For i = 1 To 10 score = _____________________("请输入第" & i & "个学生的成绩:")) Print score If score _________ 60 Then jige = _________________________ Else bujige = _________________ ________________ Next i Print "及格人数:" & jige Print "不及格人数:" & bujige