Dim a(1 To 1000) As Integer, n As Integer

    Private Sub Command1_Click()

        Dim i As Integer, j As Integer

        Dim fz(1 To 16) As Integer 'fz数组存储信息各题满分值

        Dim b(1 To 33) As Double   '数组b存储全卷各题的得分率

            For i = 1 To 16  ‘数组fz存储信息16个小题的满分值

              If i <= 12 Then fz(i) = 2

              fz(13) = 4: fz(14) = 8: fz(15) = 7: fz(16) = 7

            Next i

            For i = 2 To n  '把数组a数据分别统计到各题中

              b(j) = a(i ) + b(j)  

            Next i

            For i = 1 To 33  '仅处理信息各题的平均分

              If i <= 12 Then

                b(i) = b(i) / (a(1) * fz(i))’计算信息选择题各题的得分率

            ElseIf i >= 26 And i <= 29 Then

                b(i) =

            End If

            Next i

            For i = 1 To 16

          If i > 12 Then j = i + 13 Else j = i

          b(j) = Int(b(j) * 1000 + 0.5) / 10 '对结果四舍五入保留1位小数

          List2.AddItem Str(i) +  Str(b(j)) + "%"

            ave=   

            Next i

          Text1.Text = Str(ave / 100)

          End Sub

          Private Sub Form_Load()

          ‘读入数据到数组a，数据个数n，代码略

     End Sub