【正文】
統(tǒng)計 按鈕的主要代碼如下: Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim d As Integer, e As Integer, i As Integer Dim score As Single For i = 1 To n score = arr(i) Select Case score Case Is 60 a = a + 1 Case 60 To 69 b = b + 1 Case 70 To 79 c = c + 1 Case 80 To 89 d = d + 1 Case Else e = e + 1 End Select Next i = n = a = b = c = d = e End Sub 按要求 保存文件即完成本題。 最后把修改后的文件按原文件名存盤。 注意: 不能修改程序的其他部分和控件屬性。要求編寫程序,統(tǒng)計總?cè)藬?shù),并 統(tǒng)計不及格、 60~ 6 70~ 7 80~ 89及 90~ 100各分?jǐn)?shù)段的人數(shù),將統(tǒng)計