（加试题）幸运数。一组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)
___________________ ②
End If
Next i
③
top = top + 1
For i = 1 To bott
A(1) = b(1)
Next i
Loop
For i = 1 To bott
List1.Addltem Str(a(i))
Next i
End Sub
(1)Private Sub Command1_Click()中的click是____________(
(2)改正加框处的代码，并在横线处填写合适的代码
①_____________________________
②_____________________________
③_____________________________
