Private Sub Command1_ Click()

    Dim s As Long

    Dim iAs Integer,a As Integer,b As Integer

    For i=0 To 9999 Step

        s=310000+i

        If s Mod 46=0 Then

            a=

            b=s\ 10 Mod 10

            If a=b Then List1. AddItem Str(s)

        End If

    Next i

End Sub

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))      ' 计算信息选择题各题的得分率

        ElseIfi>= 26 Andi<= 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