15.幸運(yùn)數(shù),一組由1開始的奇數(shù)數(shù)列為 1,3,5,7,9,11,13,15,17,19,21,23,25,…… 此數(shù)列的第二項(xiàng)為3,將此數(shù)列的第3n個(gè)數(shù)劃除,留下的數(shù)為: 1,3,7,9,13,15,19,21,25,…… 新數(shù)列的第三項(xiàng)為7,將新數(shù)列的第7n個(gè)數(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ù),但加框處代碼有錯(cuò),請(qǐng)改正。 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ù)列,依次存儲(chǔ)在數(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)
②Ⅲ 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