設(shè)有n盞燈，放在一排．從1到n依次順序編號(hào)．有n個(gè)人也從1到n依次編號(hào)．第1個(gè)人（1號(hào)）將燈全部關(guān)閉，第2個(gè)人（2號(hào)）將2的倍數(shù)的燈打開(kāi)，第3個(gè)人（3號(hào)）將編號(hào)為3的倍數(shù)的燈做相反處理（該燈如果已打開(kāi)，則將它關(guān)閉；如為關(guān)閉則將它打開(kāi)），以后的人和3號(hào)一樣，將編號(hào)為自己號(hào)數(shù)倍數(shù)的燈做相反處理．問(wèn)當(dāng)n個(gè)人操作后，哪幾盞燈是亮的（亮燈為0，關(guān)閉為1）．程序代碼如下：
Private Sub Command1_Click（　?。?br />  Const n=20
  Dim i As Integer,j As Integer
  Dim a（1 To n） As Integer
  For j=1 To n
     a（j）=0
  Next j
  For i=1 To n
     For j=1 To n
        If ①then
             ②
        End If
    Next j
  Next i
  For j=1 To n
     If a（j）=0 Then list1．AddItem Str（j）
  Next j
End Sub
為了實(shí)現(xiàn)程序該功能，在橫線處填寫(xiě)正確代碼．
①

j mod i=0

j mod i=0

 ②

a（j）=1-a（j）

a（j）=1-a（j）

．