幸运数，一组由1开始的奇数数列为
1，3，5，7，9，11，13，15，17，19，21，23，25，……
此数列的第二项为3，将此数列的第3n个数划除，留下的数为：
1，3，7，9，13，15，19，21，25，……
新数列的第三项为7，将新数列的第7n个数删除，留下的数为：
1，3，7，9，13，15，21，25，……
若一直重复上述步骤，最后剩下的数就是幸运数：
1，3，7，9，13，15，21，25，31，33，37，43，49，51……
下列程序的功能是找出1000以内的幸运数，但加框处代码有错，请改正。
Private Sub Command1_ Click （　　）
Dim a（500）As Integer,b（500）As Integer
Dim i As Integer,m As Integer,k As Integer
Dim top As Integer,bott As Integer
‘产生由1开始的奇数数列，依次存储在数组a中，代码略
top=2：bott=500
Do While top＜bott
③
For i=1 To bott
If i Mod a（top）＜＞0 Then
b（k）=a（i）

k=k+1

k=k+1

②Ⅲ
End If
Next i
①
top=top+1
For i=1 To bott
a（i）=b（i）
Next i
Loop
Fori=1 To bott
List1．AddItem Str（a（i））
Next i
End Sub
（1）Private Sub command1_cick

（　　）

（　　）

中的click是

C

C

（A对象名B属性名C事件名）
（2）改正加框处的代码，并在横线处填写合适的代码