幸運(yùn)數(shù)，一組由1開始的奇數(shù)數(shù)列為
1，3，5，7，9，11，13，15，17，19，21，23，25，……
此數(shù)列的第二項為3，將此數(shù)列的第3n個數(shù)劃除，留下的數(shù)為：
1，3，7，9，13，15，19，21，25，……
新數(shù)列的第三項為7，將新數(shù)列的第7n個數(shù)刪除，留下的數(shù)為：
1，3，7，9，13，15，21，25，……
若一直重復(fù)上述步驟，最后剩下的數(shù)就是幸運(yùn)數(shù)：
1，3，7，9，13，15，21，25，31，33，37，43，49，51……
下列程序的功能是找出1000以內(nèi)的幸運(yùn)數(shù)，但加框處代碼有錯，請改正。
Private Sub Command1_ Click （　?。?br />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
‘產(chǎn)生由1開始的奇數(shù)數(shù)列，依次存儲在數(shù)組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

（　?。?/div>

（　?。?/div>中的click是

C

C

（A對象名B屬性名C事件名）
（2）改正加框處的代碼，并在橫線處填寫合適的代碼