设有n盏灯，放在一排。从1到n依次顺序编号。有n个人也从1 到n依次编号。第1 个人（1号）将灯全部关闭，第2 个人（2号）将2 的倍数的灯打开，第3个人（3号）将编号为3 的倍数的灯做相反处理（该灯如果已打开，则将它关闭；如为关闭则将它打开），以后的人和3号一样，将编号为自己号数倍数的灯做相反处理。问当n个人操作后，哪几盏灯是亮的（亮灯为0，关闭为1）。程序代码如下：
Private Sub Command1_Click()
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
为了实现程序该功能，在画线处填写正确代码。
① ②
