错误在         a(t) = a(i)<<<

解决方案 »

  1.   

    For i = m - 1 To 1 Step -1
            For j = 1 To b(i)
                a(t) = a(i)
                t = t - 1
            Next j
        Next i
      

  2.   

    从你上面的这段程序来看,有许多语法错误
    如:Private Sub Form_Load()0D 
    0A    Dim i As Integer, j As Integer, k As Integer, t As Integer, m As Integer
    a(1) = 1: a(2) 3D 2: a(3) = 4: a(4) = 3: a(5) = 3:
    m 3D 1
    0A        For j = 1 To b(i)
    t = t + 10D
    0A    Next j