正整数n的阶乘，在数学中定义为：n!=1×2×3×…×n,如：3!=1×2×3，现在输入一个正整数n（n＜=30），计算出1～n中的每一个整数的阶乘的精确结果．小北按照上述要求，设计一个求前n个正整数的阶乘问题的VB程序，功能如下：在程序中他采用加法代替乘法的方法来计算阶乘，如：3!=2!×3=2!+2!+2!．程序启动后在文本框Text1中输入n的值，单击“计算”按钮Command1，在列表框List1中输出前n个数的阶乘．当n=10时，程序运行效果如图所示：

实现上述功能的VB程序如下请在横线处填入合适的代码．
Const maxn=80
Dim i As Integer,j As Integer,k As Integer,n As Interger,r As Interger
Dim a（1 To maxn）As Integer,b（1 To maxn）As Integer,s As String
Private Sub Form_Load（　　）
     List1．Clear
     For i=1 To maxn
         a（i）=0
     Next i
End Sub
Sub array_sum（j As Integer）'该过程用于计算 j!，并将j!的精确值按位保存在数组a中
    For k=1 To j-1
      For i=1 To maxn
      r=

a（i）+b（i）

a（i）+b（i）

      If r＞=10 Then

a（i+1）

a（i+1）

=a（i+1）+1
      a（i）=r Mod 10
      Next i
    Next k
End Sub
Private Sub Command1_Click（　　）
    n=Val（Text1．Text）
    a（1）=1
    List1．AddItem“1!=“&Str（a（1））
    For j=2 To n
        For i=1 To maxn
            b（i）=a（i）
        Next i
        s=““
        Call array_sum（j）'该语句用于调用自定义过程 array_sum
        s=s+Str（j）+“!=“
        k=maxn
        Do While a（k）=0

k=k-1

k=k-1

        Loop
        For i=k To 1 step-1
            s=s+Str（a（i））
        Next i
        List1．AddItem s
    Next j
End Sub.