小李编写了一个分红包的VB程度，对于m元分成n（n＜=20）个红包的算法如下：
（1）先根据当前金额与待分配红包数计算每份红包的平均金额aver
（2）产生一个[0.01，aver*2]之间的随机数作为第i个红包金额a（i）
（3）将总金额减去a（i）后重复（1）
上述算法直到分配到n-1份，最后一份直接给a（n），运行界面如图所示：

如总金额为200，红包个数为10个，则第1个红包在0.01到20之间产生，若产生的第1个红包为17.45，则第2次的红包在0.01到（200-17.45）/9*2之间产生．请在下列程序的横线处填上正确的代码，以实现上述功能．
Dim a（1 To 20）As Single
Private Sub Command1_Click（　　）
       Dim n As Integer,m As Single
       Dim aver As Single'平均值
       n=Val（Text1．Text）'红包总数
       m=Val（Text2．Text）'总金额

（1）

（1）

       Randomize
       For i=1 To n-1
             a（i）=Rnd*（aver*2）+0.01
             a（i）=Int（a（i）*100+0.5）/100
             m=m-a（i）

（2）

（2）

       Next i

（3）

（3）

       List1．Clear
       For i=1 To n
             List1．AddItem Str（a（i））
       Next i
End Sub.